data(hearts)
hp <- pca(eFourier(hearts, nb.h=20, norm=FALSE, start=FALSE))
dudi.plot(hp, "aut",
pch=20, star=FALSE, cex.points=0.2, clabel=0.5, axesell=FALSE,
nr.shp=15, nc.shp=15, scale.shp=0.2, pos.shp="full", col.shp=NULL)
Run the code above in your browser using DataLab