From 9bf61f7e47781c686310f2a458fb54f06c387460 Mon Sep 17 00:00:00 2001 From: Jeremy Kidwell Date: Wed, 27 Oct 2021 12:52:31 +0100 Subject: [PATCH] changing paths on data files to be relative --- Connect Project R Markdown.Rmd | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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])