# NOT RUN {
data(Presidents)
isa.ca <- ISA(Presidents, delta = 0.1, transformation = "CA")
rownames(isa.ca$mu.hat) <- rownames(Presidents)
colnames(isa.ca$mu.hat) <- colnames(Presidents)
res.isa.ca <- CA(as.data.frame(isa.ca$mu.hat), graph = FALSE)
plot(res.isa.ca, title = "Regularized CA", cex = 0.8, selectRow = "contrib 40")
plot(res.isa.ca, title = "Regularized CA", cex = 0.6, invisible = "row" )
# }
Run the code above in your browser using DataLab