data(iris) # conjunto de dados
res <- GrandTour(iris[,1:4], method = "Torus", title = NA, xlabel = NA, ylabel = NA,
color = TRUE, linlab = NA, class = NA, posleg = 2, boxleg = TRUE,
axesvar = TRUE, axes = FALSE, numrot = 10, choicerot = NA,
savptc = FALSE, width = 3236, height = 2000, res = 300)
print("Dados projetados:"); res$proj.data
print("Vetores de projecao:"); res$vector.opt
print("Metodo da projecao Grand Tour:"); res$method
res <- GrandTour(iris[,1:4], method = "Interpolation", title = NA, xlabel = NA, ylabel = NA,
color = TRUE, linlab = NA, posleg = 2, boxleg = FALSE, axesvar = FALSE,
axes = FALSE, numrot = 10, choicerot = NA, class = iris[,5],
classcolor = c("goldenrod3","gray53","red"), savptc = FALSE,
width = 3236, height = 2000, res = 300)
print("Dados projetados:"); res$proj.data
print("Vetores de projecao:"); res$vector.opt
print("Metodo da projecao Grand Tour:"); res$method
Run the code above in your browser using DataLab