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