,
Maria Herrmann [aut],
Jill Arriola [aut] ,
Raymond Najjar [aut] | Title: | Estuarine Bayesian Single-Station Estimation Method for Ecosystem Metabolism |
|---|---|
| Description: | Estimate ecosystem metabolism in a Bayesian framework for individual water quality monitoring stations with continuous dissolved oxygen time series. A mass balance equation is used that provides estimates of parameters for gross primary production, respiration, and gas exchange. Methods adapted from Grace et al. (2015) <doi:10.1002/lom3.10011> and Wanninkhof (2014) <doi:10.4319/lom.2014.12.351>. Details in Beck et al. (2024) <doi:10.1002/lom3.10620>. |
| Authors: | Marcus Beck [aut, cre] ,
Maria Herrmann [aut],
Jill Arriola [aut] ,
Raymond Najjar [aut] |
| Maintainer: | Marcus Beck <[email protected]> |
| License: | CC0 |
| Version: | 1.0.2.9000 |
| Built: | 2024-08-25 14:26:11 UTC |
| Source: | https://github.com/fawda123/EBASE |
Plot credible intervals for a, R, and b
credible_plot(res, params = c("a", "R", "b"))credible_plot(res, params = c("a", "R", "b"))
res |
output data frame from |
params |
character vector indicating which parameters to plot, one to any of |
This function plots 95% credible intervals (2.5th to 97.5th percentiles, approximate posterior distributions) for a, R and/or b using the output from ebase. Results in the plot are grouped by the ndays argument that was used in ebase.
A ggplot object
# plot credible intervals credible_plot(exres)# plot credible intervals credible_plot(exres)
Get credible intervals for a, R, b
credible_prep(res, params = c("a", "R", "b"), labels = FALSE)credible_prep(res, params = c("a", "R", "b"), labels = FALSE)
res |
output data frame from |
params |
character vector indicating which parameters to plot, one to any of |
labels |
logical indicating of parameter labels are output as an expression for parsing in plot facets, default |
This function gets 95% credible intervals (2.5th to 97.5th percentiles, approximate posterior distributions) for a, R, and/or b using the output from ebase. The function is used in credible_plot, but is provided as a separate function for convenience.
A data frame
# get credible intervals credible_prep(exres)# get credible intervals credible_prep(exres)
Estuarine Bayesian Single-station Estimation method for ecosystem metabolism
ebase( dat, Z, interval, ndays = 1, aprior = c(4, 2), rprior = c(300, 150), bprior = c(0.251, 0.125), bmax = 0.502, nogas = FALSE, doave = TRUE, maxinterp = 43200/interval, n.iter = 10000, update.chains = TRUE, n.burnin = n.iter * 0.5, n.chains = 3, n.thin = 10, model_file = NULL )ebase( dat, Z, interval, ndays = 1, aprior = c(4, 2), rprior = c(300, 150), bprior = c(0.251, 0.125), bmax = 0.502, nogas = FALSE, doave = TRUE, maxinterp = 43200/interval, n.iter = 10000, update.chains = TRUE, n.burnin = n.iter * 0.5, n.chains = 3, n.thin = 10, model_file = NULL )
dat |
input data frame |
Z |
numeric as single value for water column depth (m) or vector equal in length to number of rows in |
interval |
timestep interval in seconds |
ndays |
numeric for number of days in |
aprior |
numeric vector of length two indicating the mean and standard deviation for the prior distribution of the a parameter, see details |
rprior |
numeric vector of length two indicating the mean and standard deviation for the prior distribution of the R parameter, see details |
bprior |
numeric vector of length two indicating the mean and standard deviation for the prior distribution of the b parameter, see details |
bmax |
numeric value for the upper limit on the prior distribution for |
nogas |
logical indicating if gas exchange is not included in the metabolic model, see details |
doave |
logical indicating if the average dissolved oxygen concentration is used as the starting value for the estimation (default), otherwise the first observation will be used if |
maxinterp |
numeric value for minimum number of continuous observations that must not be interpolated within a group defined by |
n.iter |
number of MCMC iterations, passed to |
update.chains |
logical to run |
n.burnin |
number of MCMC chains to delete, passed to |
n.chains |
number of MCMC chains to run, passed to |
n.thin |
number of nth iterations to save for each chain, passed to |
model_file |
|
Required input data are time series for dissolved oxygen (mg L-1), water temperature (C), salinity (psu), total PAR (W m-2), and wind speed (m s-1). See the exdat example data file for a representation of the required data. Data are typically from continuously monitored water quality and weather parameters are hourly of sub-hourly time steps. Oxygen concentrations are converted to mmol/m3 prior to metabolic estimation. Water column depth is also required. This can be supplied as a single value or a vector of length equal to the number of rows in dat.
The metabolic estimates are based on a mass balance equation in Grace et al. 2015 with the gas exchange estimate from Wanninkhof 2004. It is similar to that provided by the BASEmetab R package at https://github.com/dgiling/BASEmetab, with modifications to estimate different parameters. The equation optimized in the JAGS model is:
More simply:
Gross production is provided by aPAR, respiration is provided by R, and gas exchange is provided by the remainder. The likelihood of the parameters a, R, and b given the observed data are estimated from the JAGS model using prior distributions shown in the model file. At each time step, the change in oxygen concentration between time steps is calculated from the equation using model inputs and parameter guesses, and then a finite difference approximation is used to estimate modeled oxygen concentration. The first modeled value starts at the mean oxygen concentration for all measurements in the optimization period. The estimated concentration at each time step is also returned for comparison to observed as one measure of model performance.
The prior distributions for the a, R, and b parameters are defined in the model file included with the package as normal distributions with mean and standard deviations provided by the aprior, rprior, and bprior arguments. The default values were chosen based on approximate values from national syntheses of metabolic estimates. An additional constraint is that all the prior distributions are truncated to be positive values as required by the core metabolism equation above. The upper limit for b is set as two times 0.251, as given in eqn. 4 in Wanninkhof 2014. Units for each parameter are (mmol m-2 d-1)/(W m-2) for a, mmol m-2 d-1 for R, and (cm hr-1)/(m2 s-2) for b.
The ndays argument defines the model optimization period as the number of days that are used for optimizing the above mass balance equation. By default, this is done each day, i.e., ndays= 1 such that a loop is used that applies the model equation to observations within each day, evaluated iteratively from the first observation in a day to the last. Individual parameter estimates for a, R, and b are then returned for each day. However, more days can be used to estimate the unknown parameters, such that the loop can be evaluated for every ndays specified by the argument. The ndays argument will separate the input data into groups of consecutive days, where each group has a total number of days equal to ndays. The final block may not include the complete number of days specified by ndays if the number of unique dates in the input data includes a remainder when divided by ndays, e.g., if seven days are in the input data and ndays = 5, there will be two groups where the first has five days and the second has two days. The output data from ebase includes a column that specifies the grouping that was used based on ndays.
Missing values in the input data are also interpolated prior to estimating metabolism. It is the responsibility of the user to verify that these interpolated values are not wildly inaccurate. Missing values are linearly interpolated between non-missing values at the time step specified by the value in interval. This works well for small gaps, but can easily create inaccurate values at gaps larger than a few hours. The interp_plot function can be used to visually assess the interpolated values. Records at the start or end of the input time series that do not include a full day are also removed. A warning is returned to the console if gaps are found or dangling records are found.
The maxinterp argument specifies a minimum number of observations that must not be interpolated within groups defined by ndays that are assigned NA in the output (except Date and DateTimeStamp). Groups with continuous rows of interpolated values with length longer than this argument are assigned NA. The default value is half a day, i.e., 43200 seconds divided by the value in interval.
The doave argument can be used to define which dissolved oxygen value is used as the starting point in the Bayesian estimation for the optimization period. The default setting (doave = TRUE) will use the average of all the dissolved oxygen values in the optimization period defined by ndays. For example, the average of all dissolved oxygen values in each 24 hour period will be used if doave = TRUE and ndays = 1. The first dissolved oxygen observation of the time series in the optimization period will be used as the starting point if doave = F. In this case, the simulated dissolved oxygen time series will always start at the first observed dissolved oxygen value for each optimization period.
A data frame with metabolic estimates for areal gross production (P, O2 mmol m-2 d-1), respiration (R, O2 mmol m-2 d-1), and gas exchange (D, O2 mmol m-2 d-1, positive values as ingassing, negative values as outgassing). Additional parameters estimated by the model that are returned include a and b. The a parameter is a constant that represents the primary production per quantum of light with units of (mmol m-2 d-1)/(W m-2) and is used to estimate gross production (Grace et al., 2015). The b parameter is a constant used to estimate gas exchange in (cm hr-1)/(m2 s-2) (provided as 0.251 in eqn. 4 in Wanninkhof 2014). Observed dissolved oxygen (DO_obs, mmol m-3), modeled dissolved oxygen (DO_mod, mmol m-3), and delta dissolved oxygen of the modeled results (dDO, mmol m-3 d-1) are also returned. Note that delta dissolved oxygen is a daily rate.
95% credible intervals for a, b, and R are also returned in the corresponding columns alo, ahi, blo, bhi, Rlo, and Rhi, for the 2.5th and 97.5th percentile estimates for each parameter, respectively. These values indicate the interval within which there is a 95% probability that the true parameter is in this range. Note that all values for these parameters are repeated across rows, although only one estimate for each is returned based on the number of days defined by ndays.
Model fit can also be assessed using the converge and rsq columns. The values in these columns apply to each group in the grp column as specified with the ndays argument. The converge column indicates "Check convergence" or "Fine" if the JAGS estimate converged at that iteration (repeated across rows for the group). The n.chains argument can be increased if convergence is not achieved. Similarly, the rsq column shows the r-squared values of the linear fit between the modeled and observed dissolved oxygen (repeated across rows for the group). These values can also be viewed with fit_plot.
The nogas argument can be set to TRUE to exclude gas exchange from the metabolic estimates. This will force the prior distribution for b as mean 0 and standard deviation approximately 0.
Grace, M.R., Giling, D.P., Hladyz, S., Caron, V., Thompson, R.M., Nally, R.M., 2015. Fast processing of diel oxygen curves: Estimating stream metabolism with BASE (BAyesian Single-station Estimation). Limnology and Oceanography: Methods 13, e10011. https://doi.org/10.1002/lom3.10011
Wanninkhof, R., 2014. Relationship between wind speed and gas exchange over the ocean revisited. Limnology and Oceanography: Methods 12, 351–362. https://doi.org/10.4319/lom.2014.12.351
# get one day of data dat <- exdat[as.Date(exdat$DateTimeStamp, tz = 'America/Jamaica') == as.Date('2012-06-01'), ] # run ebase, use more chains and iterations for a better fit, update.chains as T ebase(dat, interval = 900, Z = 1.85, n.chains = 2, n.iter = 50, update.chains = FALSE)# get one day of data dat <- exdat[as.Date(exdat$DateTimeStamp, tz = 'America/Jamaica') == as.Date('2012-06-01'), ] # run ebase, use more chains and iterations for a better fit, update.chains as T ebase(dat, interval = 900, Z = 1.85, n.chains = 2, n.iter = 50, update.chains = FALSE)
Oxygen saturation
ebase_eqboxy(temp, salt)ebase_eqboxy(temp, salt)
temp |
numeric for temperature (C) |
salt |
numeric for salinity (PSU) |
Function to calculate equilibrium OXYGEN concentration in seawater, from water temparure (C) and salinity (PSU)
oxysat (mmol/m^3)
Garcia, H., Gordon, L.I., 1992. Oxygen solubility in seawater: Better fitting equations. Limnology and Oceanography 37, 1307-1312. https://doi.org/10.4319/lo.1992.37.6.1307
temp <- c(10, 20, 30) salt <- c(30, 35, 40) ebase_eqboxy(temp = temp, salt = salt)temp <- c(10, 20, 30) salt <- c(30, 35, 40) ebase_eqboxy(temp = temp, salt = salt)
Format ebase output
ebase_form(out, dat, interval, maxinterp = 43200/interval)ebase_form(out, dat, interval, maxinterp = 43200/interval)
out |
data.frame for model output |
dat |
data.frame as returned by |
interval |
timestep interval in seconds |
maxinterp |
numeric value for minimum number of continuous observations that must not be interpolated within a group defined by |
This function is used internally with ebase and should not be called by itself.
Formatted output for ebase with interpolated rows as NA (except Date and DateTimeStamp as defined by maxinterp
library(dplyr) # get four days of data dat <- exdat %>% filter(lubridate::month(DateTimeStamp) == 6) %>% filter(lubridate::day(DateTimeStamp) %in% 1:4) dat <- ebase_prep(dat, Z = 1.85, interval = 900, ndays = 1) ebase_form(exres, dat, interval = 900, maxinterp = 48)library(dplyr) # get four days of data dat <- exdat %>% filter(lubridate::month(DateTimeStamp) == 6) %>% filter(lubridate::day(DateTimeStamp) %in% 1:4) dat <- ebase_prep(dat, Z = 1.85, interval = 900, ndays = 1) ebase_form(exres, dat, interval = 900, maxinterp = 48)
Plot results from EBASE
ebase_plot(res, instantaneous = TRUE)ebase_plot(res, instantaneous = TRUE)
res |
output data frame from |
instantaneous |
logical indicating if results are instantaneous (default) or averaged to daily |
All metabolic estimates are plotted as positive values (D is represented as net ingassing).
A ggplot object
# plot instantaneous ebase_plot(exres) # plot daily-averaged ebase_plot(exres, instantaneous = FALSE)# plot instantaneous ebase_plot(exres) # plot daily-averaged ebase_plot(exres, instantaneous = FALSE)
Prepare data for ebase
ebase_prep(dat, Z, interval, ndays = 1)ebase_prep(dat, Z, interval, ndays = 1)
dat |
input data frame |
Z |
numeric as single value for water column depth (m) or vector equal in length to number of rows in |
interval |
timestep interval in seconds |
ndays |
numeric for number of days in |
Checks if all columns are present by matching those in exdat, checks if DateTimeStamp is in ascending order, converts dissolved oxygen from mg/L to mmol/m3, calculates the Schmidt number (unitless) from water temp (C) and salinity (psu), and calculates dissolved oxygen equilibrium concentration (mmol/m3) from salinity and temperature
The ndays argument defines the number of days that are used for optimizing the above mass balance equation. By default, this is done each day, i.e., ndays= 1 such that a loop is used that applies the model equation to observations within each day, evaluated iteratively from the first observation in a day to the last. Individual parameter estimates for a, R, and b are then returned for each day. However, more days can be used to estimate the unknown parameters, such that the loop can be evaluated for every ndays specified by the argument. The ndays argument will separate the input data into groups of consecutive days, where each group has a total number of days equal to ndays. The final block may not include the complete number of days specified by ndays if the number of unique dates in the input data includes a remainder when divided by ndays, e.g., if seven days are in the input data and ndays = 5, there will be two groups where the first has five days and the second has two days. The output data from ebase includes a column that specifies the grouping that was used based on ndays.
Missing values are interpolated at the interval specified by the interval argument for conformance with the core model equation. Records at the start or end of the input time series that do not include a full day are also removed. A warning is returned to the console if gaps are found or dangling records are found.
A data frame with additional columns required for ebase. Dissolved oxygen as a volumetric concentration in dat as mg/L is returned in areal units as mmol/m2. If multiple time steps are identified, the number of rows in data frame is expanded based on the time step define by interval. Numeric values in the expanded rows will be interpolated if interp = TRUE, otherwise they will remain as NA values.
dat <- ebase_prep(exdat, Z = 1.85, interval = 900) head(dat)dat <- ebase_prep(exdat, Z = 1.85, interval = 900) head(dat)
Seawater density calculation
ebase_rho(temp, salt, P)ebase_rho(temp, salt, P)
temp |
numeric for temperature (C) |
salt |
numeric for salinity (PSU) |
P |
numeric for pressure above atmospheric (dbar) |
Density of seawater is calculated according to the internationally accepted (UNESCO) equations. The standard error of the equation is 3.6 x 10-3 kg/m-3.
Rho (kg/m^3)
Millero, F.J., Poisson, A., 1981. International one-atmosphere equation of state of seawater. Deep Sea Research 28, 625-629. https://doi.org/10.1016/0198-0149(81)90122-9
temp <- c(10, 20, 30) salt <- c(30, 35, 40) ebase_rho(temp = temp, salt = salt, P = 0)temp <- c(10, 20, 30) salt <- c(30, 35, 40) ebase_rho(temp = temp, salt = salt, P = 0)
Schmidt number calculation
ebase_schmidt(temp, salt)ebase_schmidt(temp, salt)
temp |
numeric for temperature (C) |
salt |
numeric for salinity (PSU) |
The Schmidt number is calculated for the air-sea gas transfer velocity.
sc (unitless)
temp <- c(10, 20, 30) salt <- c(30, 35, 40) ebase_schmidt(temp = temp, salt = salt)temp <- c(10, 20, 30) salt <- c(30, 35, 40) ebase_schmidt(temp = temp, salt = salt)
Estuarine Bayesian Single-station Estimation method for ecosystem metabolism for long time series
ebase_years( dat, Z, interval, ndays = 1, aprior = c(4, 2), rprior = c(300, 150), bprior = c(0.251, 0.125), bmax = 0.502, nogas = FALSE, doave = TRUE, maxinterp = 43200/interval, n.iter = 10000, update.chains = TRUE, n.burnin = n.iter * 0.5, n.chains = 3, n.thin = 10, model_file = NULL, ncores = NULL, quiet = TRUE, maxtry = 5 )ebase_years( dat, Z, interval, ndays = 1, aprior = c(4, 2), rprior = c(300, 150), bprior = c(0.251, 0.125), bmax = 0.502, nogas = FALSE, doave = TRUE, maxinterp = 43200/interval, n.iter = 10000, update.chains = TRUE, n.burnin = n.iter * 0.5, n.chains = 3, n.thin = 10, model_file = NULL, ncores = NULL, quiet = TRUE, maxtry = 5 )
dat |
input data frame |
Z |
numeric as single value for water column depth (m) or vector equal in length to number of rows in |
interval |
timestep interval in seconds |
ndays |
numeric for number of days in |
aprior |
numeric vector of length two indicating the mean and standard deviation for the prior distribution of the a parameter, see details |
rprior |
numeric vector of length two indicating the mean and standard deviation for the prior distribution of the R parameter, see details |
bprior |
numeric vector of length two indicating the mean and standard deviation for the prior distribution of the b parameter, see details |
bmax |
numeric value for the upper limit on the prior distribution for |
nogas |
logical indicating if gas exchange is not included in the metabolic model, see details |
doave |
logical indicating if the average dissolved oxygen concentration is used as the starting value for the estimation (default), otherwise the first observation will be used if |
maxinterp |
numeric value for minimum number of continuous observations that must not be interpolated within a group defined by |
n.iter |
number of MCMC iterations, passed to |
update.chains |
logical to run |
n.burnin |
number of MCMC chains to delete, passed to |
n.chains |
number of MCMC chains to run, passed to |
n.thin |
number of nth iterations to save for each chain, passed to |
model_file |
|
ncores |
numeric for number of cores to use for parallel processing, use |
quiet |
logical to suppress progress messages to the console |
maxtry |
numeric for maximum number of times to retry the model if it fails |
ebase is run for each year in the supplied data. This facilitates running ebase on long time series by running the model sequentially on each year of data, with progress messages printed to the console if quiet = FALSE. The model run for each year will restart if it fails, up to maxtry times, after which processing continues with the next year. The model is run in parallel using the number of cores used set by ncores. If ncores = NULL, sequential processing is used. All other arguments are passed to ebase.
Similar results can be obtained by running ebase on the entire data set, but this function is useful for long time series where the model may fail for some years, e.g., when weather data may be missing for some years.
Output identical to that returned by ebase, where the results for each year are appended to the data frame as the function progresses through the years. Note that the grp column that specifies the optimization period defined by ndays is unique to each year, e.g., values will be repeated across years.
# get one day of data dat <- exdat[as.Date(exdat$DateTimeStamp, tz = 'America/Jamaica') == as.Date('2012-06-01'), ] # run ebase, use more chains and iterations for a better fit, update.chains as T ebase_years(dat, Z = 1.85, interval = 900, n.chains = 2, n.iter = 50, update.chains = FALSE)# get one day of data dat <- exdat[as.Date(exdat$DateTimeStamp, tz = 'America/Jamaica') == as.Date('2012-06-01'), ] # run ebase, use more chains and iterations for a better fit, update.chains as T ebase_years(dat, Z = 1.85, interval = 900, n.chains = 2, n.iter = 50, update.chains = FALSE)
Sample data from Apalachicola NERRS
exdatexdat
A data.frame object with 27648 rows and 6 columns
date and time, America/Jamaica time zone, 15 minute time step
dissolved oxygen, mg/L
water temperature, C
salinity, psu
total PAR, W/m2
num, m/s
Other utilities:
exres
head(exdat)head(exdat)
Example results for four days from Apalachicola NERRS
exresexres
A data frame with 384 observations and 26 variables:
POSIXct, format: "2012-06-01 00:00:00" "2012-06-01 00:15:00" ...
Date, format: "2012-06-01" "2012-06-01" ...
Numeric, grouping variable defined by ndays in ebase
Numeric, depth in meters
Numeric, observed dissolved oxygen, mmol m-3
Numeric, modelled dissolved oxygen, mmol m-3
Numeric, lower credible interval of modelled dissolved oxygen
Numeric, upper credible interval of modelled dissolved oxygen
Numeric, change in dissolved oxygen, mmol m-3 d-1
Character, convergence status
Numeric, R-squared value
Numeric, parameter a (mmol m-2 d-1)/(W m-2)
Numeric, lower credible interval of parameter a
Numeric, upper credible interval of parameter a
Numeric, parameter b, (cm hr-1)/(m2 s-2)
Numeric, lower credible interval of parameter b
Numeric, upper credible interval of parameter b
Numeric, production, O2 mmol m-2 d-1
Numeric, lower credible interval of parameter P
Numeric, upper credible interval of parameter P
Numeric, respiratoin, O2 mmol m-2 d-1
Numeric, lower credible interval of parameter R
Numeric, upper credible interval of parameter R
Numeric, gas exchange, O2 mmol m-2 d-1)
Numeric, lower credible interval of parameter D
Numeric, upper credible interval of parameter D
Other utilities:
exdat
head(exres)head(exres)
Plot observed and modeled dissolved oxygen
fit_plot(res, bygroup = FALSE, scatter = FALSE, showfit = TRUE)fit_plot(res, bygroup = FALSE, scatter = FALSE, showfit = TRUE)
res |
output data frame from |
bygroup |
logical indicating if the plot is faceted by group |
scatter |
logical indicating if a scatter plot of modeled versus estimated dissolved oxygen is returned |
showfit |
logical indicating if a linear fit is shown in the plot, applies only if |
Dissolved oxygen (mmol/m3) is plotted as observed from the input data (points) and modeled (lines) based on inputs to ebase if scatter = FALSE. A scatter plot of modeled versus estimated dissolved oxygen is returned if scatter = TRUE, including a linear fit if showfit = TRUE. The plot is faceted by group based on the ndays argument to ebase if bygroup = TRUE. The r-squared value of the fit between modeled and observed dissolved oxygen is also shown in the facet label for the group if bygroup = TRUE.
A ggplot object
# plot observed and modeled DO fit_plot(exres) # plot observed and modeled DO by group fit_plot(exres, bygroup = TRUE) # as scatter plot fit_plot(exres, scatter = TRUE) # as scatter plot by group fit_plot(exres, scatter = TRUE, bygroup = TRUE)# plot observed and modeled DO fit_plot(exres) # plot observed and modeled DO by group fit_plot(exres, bygroup = TRUE) # as scatter plot fit_plot(exres, scatter = TRUE) # as scatter plot by group fit_plot(exres, scatter = TRUE, bygroup = TRUE)
Create a diagnostic plot showing interpolated values prior to metabolism estimates
interp_plot( dat, param = c("DO_obs", "DO_sat", "Z", "Temp", "Sal", "PAR", "WSpd", "sc"), Z, interval, ndays = 1 )interp_plot( dat, param = c("DO_obs", "DO_sat", "Z", "Temp", "Sal", "PAR", "WSpd", "sc"), Z, interval, ndays = 1 )
dat |
input data frame |
param |
character string of the parameter to plot, one of |
Z |
numeric as single value for water column depth (m) or vector equal in length to number of rows in |
interval |
timestep interval in seconds |
ndays |
numeric for number of days in |
Missing values in the input data can also be interpolated prior to estimating metabolism. This is the default behavior and it is the responsibility of the user to verify that these interpolated values are not wildly inaccurate. Missing values are linearly interpolated between non-missing values at the time step specified by the value in interval. This works well for small gaps, but can easily create inaccurate values at gaps larger than a few hours. The plot from this function can be used to visually assess the interpolated gaps.
A ggplot object
library(dplyr) # get four days of data dat <- exdat %>% filter(lubridate::month(DateTimeStamp) == 6) %>% filter(lubridate::day(DateTimeStamp) %in% 1:4) # create missing values set.seed(222) dat <- dat %>% slice_sample(prop = 0.9) %>% arrange(DateTimeStamp) interp_plot(dat, Z = 1.85, interval = 900, param = 'DO_sat')library(dplyr) # get four days of data dat <- exdat %>% filter(lubridate::month(DateTimeStamp) == 6) %>% filter(lubridate::day(DateTimeStamp) %in% 1:4) # create missing values set.seed(222) dat <- dat %>% slice_sample(prop = 0.9) %>% arrange(DateTimeStamp) interp_plot(dat, Z = 1.85, interval = 900, param = 'DO_sat')
Update metabolism jags fit
metab_update(metabfit, update.chains, n.iter)metab_update(metabfit, update.chains, n.iter)
metabfit |
initial jags metabolism output |
update.chains |
logical to update, only if TRUE |
n.iter |
number of iterations |
This function is used by ebase and is not to be called directly by the user. It provides additional model iterations if convergence is not achieved.
Updated jags metabolism output
Plot prior distributions for a, R, and b
prior_plot( aprior = c(4, 2), rprior = c(300, 150), bprior = c(0.251, 0.125), bmax = 0.502, n = 1000 )prior_plot( aprior = c(4, 2), rprior = c(300, 150), bprior = c(0.251, 0.125), bmax = 0.502, n = 1000 )
aprior |
numeric vector of length two indicating the mean and standard deviation for the prior distribution of the a parameter, see details |
rprior |
numeric vector of length two indicating the mean and standard deviation for the prior distribution of the R parameter, see details |
bprior |
numeric vector of length two indicating the mean and standard deviation for the prior distribution of the b parameter, see details |
bmax |
numeric value for the upper limit on the prior distribution for |
n |
numeric indicating number of random samples to draw from prior distributions |
This function produces a plot of the prior distributions that are used in ebase for the a, R, and b parameters for the optimization equation for estimating metabolism. The ebase function uses the same default values for the arguments for aprior, rprior, and bprior as required for this function. If the default values are changed for ebase, this function can be used to assess how changing characteristics of the prior distributions could influence the resulting parameter estimates and their posterior distributions (e.g., as shown with credible_plot.
All parameters follow a normal Gaussian distribution for the priors with the means and standard deviations defined by the arguments. All distributions are truncated to include only values greater than zero as required by the core metabolism equation. The upper limit for b is also set as twice the default value of the mean in the bprior argument. Truncated normal distributions are obtained using the rtruncnorm function with the number of random samples defined by the n argument.
The density curves for each parameter are normalized such that the peak values are always equal to 1.
A ggplot object
# default plot prior_plot() # changing the mean and standard deviation for the b parameter prior_plot(bprior = c(0.2, 0.05))# default plot prior_plot() # changing the mean and standard deviation for the b parameter prior_plot(bprior = c(0.2, 0.05))