codes/stasitic.Rmd

@@ -45,7 +45,7 @@ sessionInfo()
 
 ## loading data
 ```{r}
-df <- read_csv('C:/Users/xiamen/Desktop/data_for_R/modified_robogator_paper/robotmod_data.csv') %>% 
+df <- read_csv('https://gitlab.socsci.ru.nl/preclinical-neuroimaging/robotmod/-/raw/main/robotmod_data.csv') %>% 
           mutate(trials = as.factor(trials)) %>% 
           mutate(group = as.factor(group)) %>% 
           mutate(sex = as.factor(sex)) %>% 
@@ -94,7 +94,7 @@ test_day <- df %>% filter(df$robot.day == 1)
 ```
 
 #### model comparision
-## sec/score model comparision (data: SD rat, 90% restrction, backing, Rday1) 
+## sec/score model comparision (data: SD rat, 90% restrction, foraging, Rday1) 
 ```{r}
 df.SD_Rday1 <- df %>% filter(df$robot.day == 1, df$group == "SD")
 p_sec <- ggplot(df.SD_Rday1, aes(x=trials, y=foraging.sec, group=group, colour=group, shape=sex))