data(ours)
#acm.burt(ours,ours)
ours.acm <-dudi.acm(ours, scann = FALSE, nf = 3)
ours.acm
acmin <- inertia.dudi(ours.acm,col.inertia=T,row.inertia=T)
acmin$TOT
acmin$row.abs
acmin$row.rel
acmin$col.abs
acmin$col.rel
scatterutil.eigen(ours.acm$eig,nf=3,box=T,sub="")
scatter.dudi(ours.acm,clab.row=0.80,clab.col=1.2,posieig="none")