# NOT RUN {
# Analysis of Wiepkema's data
data(wiepkema)
# Symmetrisation and diagonal loading
symet(wiepkema,ident=TRUE)->swiepkema
# Correspondence Analysis
ca(wiepkema,isup=c(5,11),jsup=c(5,11))->afcwiepk
# Flow chart / transition graph
flux(tabcoord=afcwiepk$fr,tabtr=wiepkema,threshold=0.025,scale=2)
# }
Run the code above in your browser using DataLab