User Tools

Site Tools


cs:indirect_ordination:solution_ex1

Řešení cvičení 2

library (vegan)
 
grasslands.spe <- read.delim ('http://www.davidzeleny.net/anadat-r/data-download/grasslands-spe.txt', row.names = 1)
 
grasslands.spe <- sqrt (grasslands.spe)
 
CLUS <- hclust (dist (grasslands.spe), method = 'ward')
klas <- cutree (CLUS, 4)
 
DCA <- decorana (grasslands.spe)
 
PCA <- rda (grasslands.spe)
 
plot (PCA, display = 'sites', type = 'n')
 
for (i in seq (1, 4)) ordispider (PCA, display = 'sites', groups = klas, show.groups = i, col = i)
cs/indirect_ordination/solution_ex1.txt · Last modified: 2017/10/11 20:36 (external edit)