# NOT RUN {
data(iris) # conjunto de dados
data <- iris[,1:4]
Biplot(data)
cls <- iris[,5]
res <- Biplot(data, alpha = 0.6, title = "Biplot dos Dados\n valorizando os individuos",
class = cls, posleg = 2, boxleg = FALSE, axes = TRUE)
print(res$pvar)
res <- Biplot(data, alpha = 0.4, title = "Grafico valorizando as variaveis",
xlabel = "", ylabel = "", color = FALSE, obs = FALSE)
print(res$pvar)
# }
Run the code above in your browser using DataLab