pa <- phyActFlowPropensity[,setdiff(colnames(phyActFlowPropensity),
c('goal1','feedback1'))]
dl <- prepData(pa)
dl <- prepFactorModel(dl,
list(flow=c('complex','skill','predict',
'creative', 'novelty', 'stakes',
'present', 'reward', 'chatter',
'body'),
f2=c('waiting','control','evaluated','spont'),
rc=c('novelty', 'waiting')))
str(dl)
Run the code above in your browser using DataLab