Fixing quiz 4

alehaak · Jun 10, 2016 · 1e187e9 · 1e187e9
1 parent 5b600ff
commit 1e187e9
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Getting and Cleaning Data/Week 4/Quiz week 4.R b/Getting and Cleaning Data/Week 4/Quiz week 4.R
@@ -1,12 +1,14 @@
 #Question 1
     fileurl = 'https://d396qusza40orc.cloudfront.net/getdata%2Fdata%2Fss06hid.csv'
     data = './data/data.csv'
-    ##download.file(fileurl, data, mode = 'wb')
     download.file(fileurl, data)
     data1 <- read.csv(data)
     wtgp <- names(data1)
     strsplit(wtgp, 'wtgp')[123]
 
+#strsplit(names(read.csv(download.file(fileUrl, './data/data.csv'))), 'wtgp')[123]
+
+
 #Question 2 & 3
     # download data
         file.url <- 'https://d396qusza40orc.cloudfront.net/getdata%2Fdata%2FGDP.csv'