data_raw/Motor Cognition/CreateRdata.R

Motor <- haven::read_spss(file = "data_raw/Motor Cognition/PhaseDifference.sav")
Motor <- Motor[,1:3]

Motor <- cbind(Motor, Motor$PhaseDiff*(pi/180))
colnames(Motor) <- c("Cond", colnames(Motor[,-c(1,4)]), "Phaserad")

Motor$Cond <- factor(Motor$Cond, labels = c("exp", "semi.imp", "imp"))
Motor$AvAmp <- Motor$AvAmp - mean(Motor$AvAmp)

devtools::use_data(Motor)
joliencremers/bpnreg documentation built on Nov. 12, 2019, 3:28 a.m.