# Object linked data
data(potato)
potList <- as.list(potato[c(1,2,9)])
pot.sca <- sca(potList)
plot(scores(pot.sca), labels="names")
# Variable linked data
data(candies)
candyList <- lapply(1:nlevels(candies$candy),function(x)candies$assessment[candies$candy==x,])
pot.sca <- sca(candyList, samplelinked = FALSE)
pot.sca
Run the code above in your browser using DataLab