# Alsacian castles with their building year
data(castles)
castyear <- foldert(lapply(castles, "[", 1:4))
fpcayear <- fpcat(castyear, group.name = "year")
interpret(fpcayear)
if (FALSE) {
interpret(fpcayear, moment="var")
}
Run the code above in your browser using DataLab