Import data
data.root <- read.table("SDEF_2017_RootLengths.txt", sep="\t", header=TRUE) data.ash <- read.table("SDEF_2016_RootAshWeights.txt", sep="\t", header=TRUE)
Calculates biovolume for each root, and converts units to cm^3
data.root < - CalculateBioVolume(data=data.root, units="cm^3")
Calculates total biovolume by date; and converts into cm^3
#tube <- list(df[,1]) #sumt <- aggregate(df$biovolume, by = tube, FUN = sum) dates_biovolume <- list(df[,4])#needs to be a list for aggregate function biovolume_sum <- by(data=df,INDICES=tube, FUN = sum) #biovolume_sum <-aggregate(df$biovolume, by = dates_biovolume, FUN = sum)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.