RG#95: Interactive Biplot

# data

set.seed(1234)

P <- vector()
DF <- as.data.frame(matrix(rep(NA, 100), nrow=10))
names(DF) <- c(paste("M",1:10, sep=""))
for(i in 1:10) {
DF[,i] <- rnorm(10, 10, 3)
}

rownames (DF) <- paste("O", 1:10, sep = "")

require(BiplotGUI)

Biplots(Data = DF, groups = rep(1, nrow(DF)),PointLabels = rownames(DF),
AxisLabels = colnames(DF))

# you can work in the interactive menu window