From e4bf501877e22e233475533b5bc1960b84353437 Mon Sep 17 00:00:00 2001
From: hchung2 <30280733+hchung2@users.noreply.github.com>
Date: Thu, 26 Oct 2017 23:43:17 -0400
Subject: [PATCH] chung submission

"Isn't it funny how day by day nothing changes, but when we look back everything is different." - C. S. Lewis
---
 08_1.R | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 08_1.R

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")
+