data(women, package ="idm")
dat = women[,c(1:4)]
res_mca = i_mca(dat[1:300,])
nchunk = seq(301,2107,258)
for (k in c(1:(length(nchunk)-1)))
{
res_mca = update(res_mca,dat[c((nchunk[k]+1):nchunk[k+1]),],nchunk=k+1)
}
plot(res_mca, what=c(FALSE, TRUE), animation = FALSE)
Run the code above in your browser using DataLab