### Example 1: simple atrificial data
xc <- as.data.frame(rbind(
c(4, 0, 0),
c(2, 4, 0),
c(0, 0, 5),
c(0, 0, 0)
))
rownames(xc) <- c("sample1", "sample2", "sample3", "sample4")
colnames(xc) <- c("species1", "species2", "species3")
ttsscount(xc)
### Example 2: field data of Villany Hills
data(vtable)
v1 <- ttsscount(vtable, FALSE)
v1
v2 <- ttsscount(vtable, species.columns = FALSE, segment = "adult")
v2
v3 <- ttsscount(vtable)
v3
Run the code above in your browser using DataLab