Difference between revisions of "File:Nadat.csv"

cat("Loading necessary packages and functions.\n")

library(OpasnetBaseUtils)
library(reshape)
library(xtable)

cat("Loading data and transforming it into the right format.\n")

data <- opasnet.csv("f/f0/Nadat.csv")
data <- melt(data, id.var = 1:4)
names(data)[1] <- "transect"

cat("Showing the first rows of data.\n")

head(data)

q.wiki <- c(0,1,2,3,4)

cat("Printing alpha diversities for transects.\n")

out <- diversity(amount = data$value, species = data$variable, transect = data$transect)
out

cat("Printing summary of diversity indices.\n")
out <- diversity.table(amount = data$value, species = data$variable, transect = data$transect)
out