### 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")
(xc1 <- as.xcount(xc))
(xc2 <- as.xcount(xc, segment = "female"))
xc <- xc + 0.2
(xc3 <- as.xcount(xc, digits=0))
(xc4 <- as.xcount(xc, digits=1))
### Example 2: field data of Villany Hills
data(vtable)
v1 <- as.xcount(vtable, species.columns = FALSE)
v1
v2 <- as.xcount(vtable, species.columns = FALSE, segment = "adult")
v2
Run the code above in your browser using DataLab