first model based analyiss

.gitignore

@@ -3,3 +3,4 @@
 *.RData
 *.Ruserdata
 .Rproj.user
+*.rds
\ No newline at end of file

Developing_Marbles/A_RawData/TidyMarble_JointTask copy.R

@@ -155,7 +155,7 @@ keeps<-c("startTime","rt","key_press","riskyKey","red_marbles","blue_marbles",
          "OtherChoseRisk","ChooseRisk","valueGamble","probGamble","Social1Ind0","payoff","cumulatedPayoff","valueSure","trialID","PercentBlueEstimate",
          "HowSure","test_part","sex","age","subject","subjectNumber")
 
-MarbleData<-read.csv2("A_RawData/MarbleOCU_vlabNew.csv")
+MarbleData<-read.csv("A_RawData/MarbleOCU_vlabNew.csv")
 colnames(MarbleData)<-names
 MarbleDataTibble<-as_tibble(MarbleData)