# NOT RUN {
library(vegan)
data(bacteria)
data(eukaryotes)
data(soil)
dataset <- procmod_frame(euk = vegdist(decostand(eukaryotes,
method = "hellinger"),
method = "euclidean"),
bac = vegdist(decostand(bacteria,
method = "hellinger"),
method = "euclidean"),
soil = scale(soil,
center = TRUE,
scale = TRUE))
dim(dataset)
higher_ph = subset(dataset,soil[,"pH"] > 0)
dim(higher_ph)
without_bacteria = subset(dataset,soil[,"pH"] > 0, -bac)
dim(without_bacteria)
# }
Run the code above in your browser using DataLab