# Imaginary dataset
age<-sample(15:60,50,replace=TRUE)
sex<-sample(c("M","F"),50,replace=TRUE)
size<-sample(155:190,50,replace=TRUE)
hair<-sample(c("Fair","Dark","Russet"),50,replace=TRUE)
eyes<-sample(c("Blue","Green","Brown"),50,replace=TRUE)
weight<-sample(50:85,50,replace=TRUE)
hand<-sample(c("Left.handed","Right.handed"),50,replace=TRUE)
tab<-data.frame(age,sex,size,weight,hand,eyes,hair)
amix<-dudi.mix(tab,scannf=FALSE,nf=2)
scat.mix.categorical(amix)
Run the code above in your browser using DataLab