data("vol")
data("comp")
data("setup")
# First need to calculate cumulative methane production data
cprod <- cumBg(vol,temp=20,comp=comp,time.name="days",extrap=TRUE)
head(cprod)
# Cumulative methane production at 30 d
summBg(vol=cprod,setup=setup,when=30,time.name="days")
# Or total cumulative biogas
summBg(vol=cprod,setup=setup,when=30,time.name="days",vol.name="cvBg")
# Cumulative CH4 only, subtract inoculum contribution
summBg(vol=cprod,setup=setup,when=30,time.name="days",inoc.name="inoc")
# And normalize by sub.vs column (mass of substrate VS here) (so the result is BMP)
summBg(vol=cprod,setup=setup,when=30,time.name="days",inoc.name="inoc",norm.name="msub")
# Same example, but return results for three times
summBg(vol=cprod,setup=setup,when=c(10,30,60),time.name="days",inoc.name="inoc",
norm.name="msub")
# Back to earlier example, but return all individual observations (and total production
# and individual contributions of substrate and inoculum
summBg(vol=cprod,setup=setup,when=30,time.name="days",inoc.name="inoc",norm.name="msub",
show.obs=TRUE)
# Something different: interpolated biogas production rates
summBg(vol=cprod,setup=setup,when=30,time.name="days",vol.name="rvBg",show.obs=TRUE)
# Example with dataset with different column names
data("vol2")
data("comp2")
data("setup2")
# First need to calculate cumulative methane production data
cprod <- cumBg(vol2,temp=20,comp=comp2,id.name="bottle",time.name="days",dat.name="meas.vol",
comp.name="CH4.conc",extrap=TRUE)
head(cprod)
# Cumulative CH4 production at 30 d, subtract inoculum contribution and normalize by sub.vs column
# (mass of substrate VS here)
summBg(vol=cprod,setup=setup2,when=30,id.name="bottle",time.name="days",descrip.name="description",
inoc.name="Inoculum",inoc.m.name="inoc.mass",norm.name="sub.vs")
Run the code above in your browser using DataLab