Learn R Programming

respirometry (version 1.2.1)

plot_pcrit: Plot Pcrit

Description

Creates a Pcrit plot (the threshold below which oxygen consumption rate can no longer be sustained) based on paired PO2 and MO2 values. Four Pcrit metrics are ploted: the traditional breakpoint metric (broken stick regression, black), the nonlinear regression metric (Marshall et al. 2013, green), the sub-prediction interval metric (Birk et al. 2019, red), the alpha-based Pcrit method (Seibel et al., in prep, blue), and the linear low O2 (LLO) method (Reemeyer & Rees 2019, purple). For details on how the Pcrit values are calculated, see calc_pcrit.

Usage

plot_pcrit(
  po2,
  mo2,
  level = 0.95,
  iqr = 1.5,
  NLR_m = 0.065,
  MR = NULL,
  mo2_threshold = Inf,
  showNLRs = FALSE,
  ...
)

Arguments

po2

a vector of PO2 values. Any unit of measurement should work, but the NLR calculation was optimized using kPa. If the NLR metric is giving you trouble, try converting to kPa using conv_o2.

mo2

a vector of metabolic rate values. Must be the same length and corresponding to po2.

level

applies to the Sub_PI metric only. Percentage at which the prediction interval should be constructed. Default is 0.95.

iqr

applies to the Sub_PI metric only. Removes mo2 observations that are this many interquartile ranges away from the mean value for the oxyregulating portion of the trial. If this filtering is not desired, set to infinity. To visualize which observations will be removed by this parameter, use plot_pcrit. Default is 1.5.

NLR_m

applies to the NLR metric only. Pcrit is defined as the PO2 at which the slope of the best fitting function equals NLR_m (after the MO2 data are normalized to the 90% quantile). Default is 0.065.

MR

applies to the alpha and LLO metrics only. A numeric value for the metabolic rate at which pcrit_alpha and pcrit_LLO should be returned. If not supplied by the user, then the mean MO2 of the "oxyregulating" portion of the curve is applied for pcrit_alpha and NA is returned for pcrit_LLO.

mo2_threshold

applies to the alpha metric only. A single numeric value above which mo2 values are ignored for alpha Pcrit estimation. Useful to removing obviously erroneous values. Default is Inf.

showNLRs

logical. Should all the NLR functions be plotted in a second plot? If FALSE then only the best fit NLR function will be plotted.

...

arguments to be passed to plot.segmented.

Value

A base graphic plot is created. The alpha, breakpoint, LLO, NLR, and sub-PI, Pcrit values are shown in the title. The broken-stick regression is shown by black lines. The black inverted triangle represents the breakpoint Pcrit. The dashed red curves signify the prediction interval used for the sub-PI Pcrit metric. Black circles represent oxyregulating observations used in the generation of the prediction interval, while transparent circles represent both the oxyconforming observations and those observations outside the IQR threshold (defined by iqr). The gray bands represent the confidence interval (defaults to 95% but will change with level). The green curve represents the best fitting NLR function and the green inverted triangle represents the NLR Pcrit (modified by NLR_m) The blue line represents alpha, which was fit based on the blue circle observation. The blue inverted triangle represents the Pcrit-alpha at MR. The purple inverted triangle represents the Pcrit-LLO at MR.

If showNLRs = TRUE, then a second plot is generated which shows all the NLR functions that converged. Vertical lines represent the Pcrit values corresponding to each curve.

Black = Michaelis-Menten

Red = Power

Green = Hyperbola

Blue = Pareto

Cyan = Weibull with intercept.

Details

Alpha Pcrit

Alpha is calculated from calc_alpha and the Pcrit corresponding to MR is returned. This determine's the animal's oxygen supply capacity and calculates the Pcrit at any given metabolic rate of interest.

Breakpoint Pcrit

Data are fit to a broken-stick regression using segmented.

LLO Pcrit

A subset of observations are chosen only from those with an MO2 < MR. Then, a linear model is fit through the observations and Pcrit is calculated as the PO2 at which the line reaches MR.

NLR Pcrit

Data are fit to the following functions: Michaelis-Menten, Power, Hyperbola, Pareto, and Weibull with intercept. Following the method developed by Marshall et al. 2013, the function that best fits the data (smallest AIC) is chosen and the Pcrit is determined as the PO2 at which the slope of the function is NLR_m (by default = 0.065 following the authors' suggestion).

Sub_PI Pcrit

This metric builds off the Breakpoint metric and results in a systematically lower Pcrit value. This is useful for applications where it is important to ensure that Pcrit is not being overestimated. It represents a reasonable lower bounded estimate of the Pcrit value for a given trial. Once the Breakpoint Pcrit is calculated, a 95% prediction interval (can be changed with the level argument) is calculated around the oxyregulating region (i.e. using PO2 values > breakpoint Pcrit). By default, iqr provides some filtering of abberant observations to prevent their influence on the calculated prediction interval. Finally, the Sub_PI Pcrit value is returned at the intersection of the oxyconforming line and the lower limit of the oxyregulating prediction interval.

References

Marshall, Dustin J., Michael Bode, and Craig R. White. 2013. <U+201C>Estimating Physiological Tolerances - a Comparison of Traditional Approaches to Nonlinear Regression Techniques.<U+201D> Journal of Experimental Biology 216(12): 2176<U+2013>82.

Birk, Matthew A., K.A.S. Mislan, Karen F. Wishner, and Brad A. Seibel. 2019. <U+201C>Metabolic Adaptations of the Pelagic Octopod Japetella Diaphana to Oxygen Minimum Zones.<U+201D> Deep-Sea Research Part I 148: 123<U+2013>31.

Seibel et al. in prep.

Reemeyer, Jessica E., and Bernard B. Rees. 2019. <U+201C>Standardizing the Determination and Interpretation of Pcrit in Fishes.<U+201D> Journal of Experimental Biology 222(18): jeb210633.

See Also

calc_pcrit, calc_alpha

Examples

Run this code
# NOT RUN {
mo2_data <- read.csv(system.file('extdata', 'mo2_v_po2.csv', package = 'respirometry'))
plot_pcrit(po2 = mo2_data$po2, mo2 = mo2_data$mo2)

par(mfrow = c(2, 1))
plot_pcrit(po2 = mo2_data$po2, mo2 = mo2_data$mo2, showNLRs = TRUE)

# }

Run the code above in your browser using DataLab