library(vegan)

devtools::install_github("jarioksa/twinspan")
library(twinspan)
library(vegan)


### 1
### Tundra species comp. data jsou v t.spe
summary(t.spe)
tw.1<-twinspan(t.spe, levmax=6)

summary(tw.1)
plot(as.dendrogram(tw.1, ), type="triangle")
plot(as.dendrogram(tw.1, "species"), type="triangle")

twintable(tw.1)
summary(tw.1)

### 2
a.spe<-read.delim("clipboard")
summary(a.spe)

tw.2<-twinspan(a.spe[,-1], levmax=6)

summary(tw.2)
plot(as.dendrogram(tw.2, ), type="triangle")
plot(as.dendrogram(tw.2, "species"), type="triangle")

twintable(tw.2)
summary(tw.1)