puc(
numItems = 9,
numSpecificFactors = 3
)
mydata <- data.frame(
numItems = c(9,18,18,36,36,36),
numSpecificFactors = c(3,3,6,3,6,12)
)
puc(
numItems = mydata$numItems,
numSpecificFactors = mydata$numSpecificFactors
)
Run the code above in your browser using DataLab