diff --git a/Connect Project R Markdown.Rmd b/Connect Project R Markdown.Rmd index bc30e75..cee107c 100644 --- a/Connect Project R Markdown.Rmd +++ b/Connect Project R Markdown.Rmd @@ -31,7 +31,7 @@ Note that the `echo = FALSE` parameter was added to the code chunk to prevent pr ## Upload Data ```{r Data Upload} -connect_data = read.csv("~/Documents/Github/re_connect_survey/data/connectDATA.csv") +connect_data = read.csv("./data/connectDATA.csv") ``` ## Summary of Data @@ -61,7 +61,7 @@ pie(Q25_frequencies, labels = c("Maybe", "No", "Yes")) ```{r Q26 bar/pie} -Q26_data <- read.csv("~/Documents/Github/re_connect_survey/data/Q26_data.csv") +Q26_data <- read.csv("./data/Q26_data.csv") Q26_freq_data <- data.frame(c("Other Priorities", "Lack Subject Knowledge", "Lack Confidence", "Current Syllabus", "Pupil Disinterest", "Department Head", "Available Work Schemes", "Unavailable Resources", "Uncertain of Pedagogical Approach"), c(table(Q26_data[,2]) [names(table(Q26_data[,2])) == "TRUE"], table(Q26_data[,3]) [names(table(Q26_data[,3])) == "TRUE"], @@ -86,7 +86,7 @@ pie(Q26_freq) ```{r Q3 bar/pie} -Q3_data <- read.csv("~/Documents/Github/re_connect_survey/data/Q3.csv") +Q3_data <- read.csv("./data/Q3.csv") #head(Q3_data) #table(Q3_data [,3:7])