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")

remaining sections to translate::

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)


bmcnellis/SDEF.analysis documentation built on June 4, 2019, 10 a.m.