#'@title block-averaged coordinate shift
#'@description
#'Coord system components averaged within a block \cr
#'
#'@details a \code{GDopp} function for averaging coordinate measurements from ADV sensor (1Hz).\cr
#'assumes one second spin-up for high-frequency measurement, and a likely incomplete final second for high frequency.
#'
#'@param data.sen a data.frame created with load.ADV, with the window.idx column
#'@param window.idx window.idx column from adv data.frame.
#'@param freq the frequency (Hz) of the measurements
#'@keywords methods, math
#'@examples
#'\dontrun{
#'folder.nm <- system.file('extdata', package = 'GDopp')
#'file.nm <- "ALQ102.dat"
#'data.adv <- load_adv(file.nm=file.nm, folder.nm =folder.nm)
#'window.adv <- window_adv(data.adv,freq=32,window.mins=10)
#'data.sen <- load_sen(file.nm="ALQ102.sen", folder.nm = folder.nm)
#'
#'window_coord(data.sen,window.adv$window.idx,freq=32)
#'}
#'@export
window_coord <- function(data.sen, window.idx, freq = 32){
pass_vars <- data.sen[, names(data.sen) %in% c("heading", "pitch", "roll")]
matched_vals <- match_time(value=pass_vars, window.idx, freq)
return(matched_vals)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.