Nothing
##' Perform linear time normalisation on trackdata.
##'
##' Performs linear time normalisation on trackdata.
##'
##' The data for each segment is normalised using the \code{approx} function.
##'
##' @param dataset A trackdata object as returned by \code{track}.
##' @param n The number of points (samples) required for each segment.
##' @return A new trackdata object where the data for each segment has the same
##' number (\code{n}) of samples.
##' @seealso approx
##' @keywords misc
##' @export linear
"linear"<- function(dataset, n = 20)
{
## perform linear time normalisation of a data set as returned
## from track(), and including $data and $index
outvals <- NULL
if(!is.matrix(dataset$data))
dataset$data <- cbind(dataset$data)
for(j in 1:nrow(dataset$index)) {
left <- dataset$index[j, 1]
right <- dataset$index[j, 2]
vec <- dataset$data[left:right, ]
if(!is.matrix(vec))
vec <- cbind(vec)
mat <- NULL
for(k in 1:ncol(vec)) {
linvec <- approx(vec[, k], n = n)
mat <- cbind(mat, linvec$y)
}
outvals$data <- rbind(outvals$data, mat)
}
rightin <- seq(n, n * nrow(dataset$index), length = nrow(dataset$index))
leftin <- rightin - n + 1
outvals$index <- cbind(leftin, rightin)
if(ncol(outvals$data) == 1)
outvals$data <- c(outvals$data)
outvals
}
##' linear av
##'
##' see function
##'
##'
##' @keywords internal
##' @export linear.av
"linear.av"<- function(dataset, labs)
{
finmat <- NULL
mat <- NULL
if(!is.matrix(dataset$data))
dataset$data <- cbind(dataset$data)
for(j in 1:ncol(dataset$data)) {
vec <- matrix(c(dataset$data[, j]), nrow(dataset$index), byrow
= TRUE)
outmat <- NULL
for(k in unique(labs)) {
temp <- labs == k
labvec <- vec[temp, ]
outval <- apply(labvec, 2, mean)
outmat <- c(outmat, outval)
}
mat <- cbind(mat, outmat)
}
tnum <- nrow(mat)
tlab <- length(unique(labs))
rightin <- seq(tnum/tlab, tnum, length = tlab)
leftin <- rightin - (tnum/tlab) + 1
finmat$data <- mat
finmat$index <- cbind(leftin, rightin)
finmat$lab <- unique(labs)
finmat
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.