# NOT RUN {
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,
savepicture = FALSE)
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, class = iris[,5], posleg = 2, boxleg = FALSE,
axesvar = FALSE, axes = FALSE, numrot = 10, choicerot = NA,
savepicture = FALSE)
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