kidwellj/re_connect_survey
1
0
Fork 0
mirror of https://github.com/kidwellj/re_connect_survey.git synced 2024-11-01 07:52:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

changing paths on data files to be relative

Browse source
This commit is contained in:
Jeremy Kidwell 2021-10-27 12:52:31 +01:00
parent dd66f2f923
commit 9bf61f7e47
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Connect Project R Markdown.Rmd
View file

@ -31,7 +31,7 @@ Note that the `echo = FALSE` parameter was added to the code chunk to prevent pr
## Upload Data ## Upload Data
```{r Data Upload} ```{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 ## Summary of Data
@ -61,7 +61,7 @@ pie(Q25_frequencies, labels = c("Maybe", "No", "Yes"))
```{r Q26 bar/pie} ```{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"], 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"], table(Q26_data[,3]) [names(table(Q26_data[,3])) == "TRUE"],
@ -86,7 +86,7 @@ pie(Q26_freq)
```{r Q3 bar/pie} ```{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) #head(Q3_data)
#table(Q3_data [,3:7]) #table(Q3_data [,3:7])