Displaying 1 result from an estimated 1 matches for "xfrequ".
Did you mean:
xfreq
2000 Apr 03
1
window(): feature request
...w I have added some code that accomplishes this aim in a separate
function (which is probably an example of akward programming...).
sloppywindow <- function(x,start,end) {
if (!is.ts(x) || (NCOL(x) > 1))
stop("x is not a univariate time series") # does not work for frames
xfrequ <- frequency(x)
n <- length(x)
time.start <- if (length(start) > 1) {
if(start[2] > xfrequ) stop("invalid start")
start[1] + (start[2] - 1)/xfrequ
} else start
time.end <- if (length(end) > 1) {
if(end[2] > xfrequ) stop("invalid end&qu...