search for: xn2

Displaying 7 results from an estimated 7 matches for "xn2".

Did you mean: on2
head.ts, tail.ts loses time
2024 Jun 09
2
head.ts, tail.ts loses time
...;- dim(x)) if(is.na(n[1]) || n[1]==0)ts(NULL) # firstn <- head(tmx, n[1]) if(is.null(d)){ return(window(x, firstn[1], tail(firstn, 1))) } else{ if(length(n)<2){ return(window(x, firstn[1], tail(firstn, 1))) } else { Cols <- head(1:d[2], n[2]) xn2 <- x[, Cols[1]:tail(Cols, 1)] return(window(xn2, firstn[1], tail(firstn, 1))) } } } tail.ts <- function (x, n = 6L, ...) { utils:::checkHT(n, d <- dim(x)) tmx <- as.numeric(time(x)) # if(is.na(n[1]) || n[1]==0)ts(NULL) # lastn <- tail(tmx, n[1]) if(is....
head.ts, tail.ts loses time
2024 Jun 10
1
head.ts, tail.ts loses time
...gt; # > firstn <- head(tmx, n[1]) > if(is.null(d)){ > return(window(x, firstn[1], tail(firstn, 1))) > } else{ > if(length(n)<2){ > return(window(x, firstn[1], tail(firstn, 1))) > } else { > Cols <- head(1:d[2], n[2]) > xn2 <- x[, Cols[1]:tail(Cols, 1)] > return(window(xn2, firstn[1], tail(firstn, 1))) > } > } > } > > > tail.ts <- function (x, n = 6L, ...) > { > utils:::checkHT(n, d <- dim(x)) > tmx <- as.numeric(time(x)) > # > if(is.na(n[1]) || n...
head.ts, tail.ts loses time
2024 Jun 10
2
head.ts, tail.ts loses time
...>> # >>> firstn <- head(tmx, n[1]) if(is.null(d)){ >>> return(window(x, firstn[1], tail(firstn, 1))) } else{ >>> if(length(n)<2){ return(window(x, firstn[1], >>> tail(firstn, 1))) } else { Cols <- head(1:d[2], n[2]) >>> xn2 <- x[, Cols[1]:tail(Cols, 1)] return(window(xn2, >>> firstn[1], tail(firstn, 1))) } } } >>> >>> >>> tail.ts <- function (x, n = 6L, ...) { >>> utils:::checkHT(n, d <- dim(x)) tmx <- >>> as.numeric(time(x))...
head.ts, tail.ts loses time
2024 Jun 10
1
head.ts, tail.ts loses time
...]) >> if(is.null(d)){ >> return(window(x, firstn[1], tail(firstn, 1))) >> } else{ >> if(length(n)<2){ >> return(window(x, firstn[1], tail(firstn, 1))) >> } else { >> Cols <- head(1:d[2], n[2]) >> xn2 <- x[, Cols[1]:tail(Cols, 1)] >> return(window(xn2, firstn[1], tail(firstn, 1))) >> } >> } >> } >> >> >> tail.ts <- function (x, n = 6L, ...) >> { >> utils:::checkHT(n, d <- dim(x)) >> tmx <- as.numeri...
head.ts, tail.ts loses time
2024 Jun 11
1
head.ts, tail.ts loses time
...gt;> firstn <- head(tmx, n[1]) if(is.null(d)){ > >>> return(window(x, firstn[1], tail(firstn, 1))) } else{ > >>> if(length(n)<2){ return(window(x, firstn[1], > >>> tail(firstn, 1))) } else { Cols <- head(1:d[2], n[2]) > >>> xn2 <- x[, Cols[1]:tail(Cols, 1)] return(window(xn2, > >>> firstn[1], tail(firstn, 1))) } } } > >>> > >>> > >>> tail.ts <- function (x, n = 6L, ...) { > >>> utils:::checkHT(n, d <- dim(x)) tmx <- > >&...
head.ts, tail.ts loses time
2024 Jun 10
1
head.ts, tail.ts loses time
...gt; firstn <- head(tmx, n[1]) if(is.null(d)){ > >>> return(window(x, firstn[1], tail(firstn, 1))) } else{ > >>> if(length(n)<2){ return(window(x, firstn[1], > >>> tail(firstn, 1))) } else { Cols <- head(1:d[2], n[2]) > >>> xn2 <- x[, Cols[1]:tail(Cols, 1)] return(window(xn2, > >>> firstn[1], tail(firstn, 1))) } } } > >>> > >>> > >>> tail.ts <- function (x, n = 6L, ...) { > >>> utils:::checkHT(n, d <- dim(x)) tmx <- >...
head.ts, tail.ts loses time
2024 Jun 13
0
head.ts, tail.ts loses time
...gt;> firstn <- head(tmx, n[1]) if(is.null(d)){ > >>> return(window(x, firstn[1], tail(firstn, 1))) } else{ > >>> if(length(n)<2){ return(window(x, firstn[1], > >>> tail(firstn, 1))) } else { Cols <- head(1:d[2], n[2]) > >>> xn2 <- x[, Cols[1]:tail(Cols, 1)] return(window(xn2, > >>> firstn[1], tail(firstn, 1))) } } } > >>> > >>> > >>> tail.ts <- function (x, n = 6L, ...) { > >>> utils:::checkHT(n, d <- dim(x)) tmx <- > >&...