| TDRcalibrate-accessors | R Documentation |
Show and extract information from
TDRcalibrate objects.
## S4 method for signature 'TDRcalibrate,missing'
getDAct(x)
## S4 method for signature 'TDRcalibrate,character'
getDAct(x, y)
## S4 method for signature 'TDRcalibrate,missing'
getDPhaseLab(x)
## S4 method for signature 'TDRcalibrate,numeric'
getDPhaseLab(x, diveNo)
## S4 method for signature 'TDRcalibrate,missing'
getDiveModel(x)
## S4 method for signature 'TDRcalibrate,numeric'
getDiveModel(x, diveNo)
## S4 method for signature 'diveModel'
getDiveDeriv(x, phase=c("all", "descent", "bottom", "ascent"))
## S4 method for signature 'TDRcalibrate'
getDiveDeriv(x, diveNo, phase=c("all", "descent", "bottom", "ascent"))
## S4 method for signature 'TDRcalibrate,missing'
getGAct(x)
## S4 method for signature 'TDRcalibrate,character'
getGAct(x, y)
## S4 method for signature 'TDRcalibrate'
getSpeedCoef(x)
## S4 method for signature 'TDRcalibrate'
getTDR(x)
x |
|
diveNo |
numeric vector with dive numbers to extract information from. |
y |
string; “dive.id”, “dive.activity”, or
“postdive.id” in the case of |
phase |
character vector indicating phase of the dive for which to extract the derivative. |
The extractor methods return an object of the same class as elements of the slot they extracted.
signature(object="TDRcalibrate"): prints an
informative summary of the data.
signature(object="diveModel"): prints an
informative summary of a dive model.
signature(x="TDRcalibrate", y="missing"): this
accesses the dive.activity slot of
TDRcalibrate objects. Thus, it extracts a data
frame with vectors identifying all readings to a particular dive
and postdive number, and a factor identifying all readings to a
particular activity.
signature(x="TDRcalibrate", y="character"): as
the method for missing y, but selects a particular vector
to extract. See TDRcalibrate for possible
strings.
signature(x="TDRcalibrate",
diveNo="missing"): extracts a factor identifying all readings
to a particular dive phase. This accesses the
dive.phases slot of TDRcalibrate objects,
which is a factor.
signature(x="TDRcalibrate",
diveNo="numeric"): as the method for missing y, but
selects data from a particular dive number to extract.
signature(x="TDRcalibrate",
diveNo="missing"): extracts a list with all dive phase models.
This accesses the dive.models slot of TDRcalibrate
objects.
signature(x="TDRcalibrate",
diveNo="numeric"): as the method for missing diveNo, but
selects data from a particular dive number to extract.
signature(x="TDRcalibrate"): extracts the
derivative (list) of the dive model (smoothing spline) from the
dive.models slot of TDRcalibrate objects for one
or all phases of a dive.
signature(x="diveModel"): as the method
for TDRcalibrate, but selects data from one or all phases
of a dive.
signature(x="TDRcalibrate", y="missing"): this
accesses the gross.activity slot of
TDRcalibrate objects, which is a named list. It
extracts elements that divide the data into major wet and dry
activities.
signature(x="TDRcalibrate", y="character"): as
the method for missing y, but extracts particular
elements.
signature(x="TDRcalibrate"): this accesses the
tdr slot of TDRcalibrate objects, which is a
TDR object.
signature(x="TDRcalibrate"): this
accesses the speed.calib.coefs slot of
TDRcalibrate objects; the speed calibration
coefficients.
Sebastian P. Luque spluque@gmail.com
diveModel, plotDiveModel,
plotTDR.
## Too long for checks
## Continuing the Example from '?calibrateDepth':
utils::example("calibrateDepth", package="diveMove",
ask=FALSE, echo=FALSE, , run.donttest=TRUE)
dcalib # the 'TDRcalibrate' that was created
## Beginning times of each successive phase in record
getGAct(dcalib, "begin")
## Factor of dive IDs
dids <- getDAct(dcalib, "dive.id")
table(dids[dids > 0]) # samples per dive
## Factor of dive phases for given dive
getDPhaseLab(dcalib, 19)
## Full dive model
(dm <- getDiveModel(dcalib, 19))
str(dm)
## Derivatives
getDiveDeriv(dcalib, diveNo=19)
(derivs.desc <- getDiveDeriv(dcalib, diveNo=19, phase="descent"))
(derivs.bott <- getDiveDeriv(dcalib, diveNo=19, phase="bottom"))
(derivs.asc <- getDiveDeriv(dcalib, diveNo=19, phase="ascent"))
if (require(lattice)) {
fl <- c("descent", "bottom", "ascent")
bwplot(~ derivs.desc$y + derivs.bott$y + derivs.asc$y,
outer=TRUE, allow.multiple=TRUE, layout=c(1, 3),
xlab=expression(paste("Vertical rate (", m %.% s^-1, ")")),
strip=strip.custom(factor.levels=fl))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.