fithart <- homals(hartigan, ndim = 3, normobj.z = FALSE)
fithart
plot(fithart)
plot(fithart, var.subset = c(1,2,4), plot.dim = c(2,3))
plot(fithart, plot.type = "biplot", col.scores = "black")
plot(fithart, plot.type = "biplot", col.scores = "black", labels.scores = TRUE, col.points = 1:6)
plot(fithart, plot.type = "screeplot", col.lines = "red")
plot(fithart, plot.type = "transplot", plot.dim = 1:3, col.lines = c(1, 2, 4))
plot(fithart, plot.type = "objplot", plot.dim = 1:2, cex.scores = 0.9, col.scores = "black")
Run the code above in your browser using DataLab