Description Usage Arguments Details Value Author(s) Examples
plot the increase of uncertainty with decreaseing measurement duration
1 2 3 4 5 | plotDurationUncertainty(ds, colTime = "TIMESTAMP",
fRegress = c(exp = regressFluxExp, lin = regressFluxLinear,
tanh = regressFluxTanh), ..., durations = seq(max(65,
resFit0$tLag), max(times0), length.out = nDur +
1), nDur = 20, maxSdFlux = 1)
|
ds |
|
colTime |
column name of time [s] |
fRegress |
list of functions to yield
<< a single flux estimate, see details of |
... |
further arguments to |
durations |
durations to check. Default is equally spaced between tLag and maximum duration |
nDur |
number of durations to check |
maxSdFlux |
maxium allowed standard deviation of flux in [mumol / s] |
Produces a plot with standard deviation of the flux estimate versus the duration of the measurment. The lines correspond to the given maxium acceptable standard deviation and the duration that matches this criterion.
tibble result of calcClosedChamberFlux
for the minimum duration, with additional component
statAll |
tibble: each row a fit for a given duration |
Thomas Wutzler, Oscar Perez Priego
1 2 3 4 5 6 7 8 9 10 11 | #data(chamberLoggerEx2)
ds <- subset(chamberLoggerEx2, iChunk==99) # very strong (and therefore precise) uptake
#plot( CO2_dry ~ TIMESTAMP, ds )
resDur <- plotDurationUncertainty( ds, colTemp="AirTemp", volume = 0.6*0.6*0.6
, maxSdFlux = 0.8
, nDur=10
, durations = c(100,120,150)
)
resDur$duration
#plot( flux ~ duration, resDur$statAll[[1]] )
#plot( sdFlux ~ duration, resDur$statAll[[1]] )
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.