#Φάση 1
if(!require('ade4')) {
install.packages('ade4')
library('ade4')
}
if(!require('adegraphics')) {
install.packages('adegraphics')
library('adegraphics')
}
if(!require('FactoMineR')) {
install.packages('FactoMineR')
library('FactoMineR')
}
# Φάση 2
dimi=read.table("C:\\MAD\\TXT\\FileName.txt",header=TRUE)
dimi
(envpca <- dudi.pca(dimi, scannf = FALSE, nf = 3))
# Left: correlation circle, right: sites factor map.
g1 <- s.corcircle(envpca$co, plot = FALSE)
#g2 <- s.label(envpca$li, plot = FALSE)
ADEgS(list(g1))
# Φάση 2
dimi=read.table("C:\\MAD\\TXT\\benf.txt",header=TRUE)
dimi
(envpca <- dudi.pca(dimi, scannf = FALSE, nf = 3))
# Left: correlation circle, right: sites factor map.
g1 <- s.corcircle(envpca$co, plot = FALSE)
#g2 <- s.label(envpca$li, plot = FALSE)
ADEgS(list(g1))
# Φάση 3
dimi.hc=HCPC(dimi, 3)
dimi.hc=HCPC(dimi, 3)
dimi.hc=HCPC(dimi, 3)
q()
