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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.