# NOT RUN {
data(DataQuan) # conjunto de dados quantitativos
data <- DataQuan[,2:ncol(DataQuan)]
rownames(data) <- DataQuan[,1]
Biplot(data)
LinNames <- paste("C",1:nrow(data), sep="")
Biplot(data, alpha = 0.6, title = "Biplot dos Dados\n valorizando os individuos",
xlabel = "Eixo X", ylabel = "Eixo Y", color = TRUE, obs = TRUE,
linlab = LinNames)
Biplot(data, alpha = 0.4, title = "Grafico valorizando as variaveis",
xlabel = "", ylabel = "", color = FALSE, obs = FALSE)
# }
Run the code above in your browser using DataLab