diff --git a/08_1.R b/08_1.R
new file mode 100644
index 0000000..ea7c97f
--- /dev/null
+++ b/08_1.R
@@ -0,0 +1,6 @@
+
+Line <- scan("Cflorida.vcf", what = character(), sep = "\n")
+str_replace_all(Line[2], "(CF|cf)[0-9]*.[Aa][0-9]?.([0-9]{3})", "Cf.Sfa.\\2")
+file.create("8_1.txt")
+write(Line, file = "8_1.txt")
+