search for: checkht

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

Did you mean: check_t
2024 Jun 09
2
head.ts, tail.ts loses time
...5, 1946.25) Qtr1 Qtr2 Qtr3 Qtr4 1945 NA 87 82 75 1946 63 50 Below please find code for 'head.ts' and 'tail.ts' that matches 'window'. Comments? Spencer Graves head.ts <- function(x, n=6L, ...){ tmx <- as.numeric(time(x)) # utils:::checkHT(n, d <- 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]...
2024 Jun 10
1
head.ts, tail.ts loses time
...indow'. > >>> > >>> > >>> Comments? Spencer Graves > >>> > >>> head.ts <- function(x, n=6L, ...){ tmx <- > >>> as.numeric(time(x)) > >>> # > >>> utils:::checkHT(n, d <- 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(wi...
2024 Jun 10
1
head.ts, tail.ts loses time
...t; > > Below please find code for 'head.ts' and 'tail.ts' that matches > 'window'. > > > Comments? > Spencer Graves > > head.ts <- function(x, n=6L, ...){ > tmx <- as.numeric(time(x)) > # > utils:::checkHT(n, d <- 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))) >...
2024 Jun 10
2
head.ts, tail.ts loses time
....ts' that >>> matches 'window'. >>> >>> >>> Comments? Spencer Graves >>> >>> head.ts <- function(x, n=6L, ...){ tmx <- >>> as.numeric(time(x)) >>> # >>> utils:::checkHT(n, d <- 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], >&gt...
2024 Jun 10
1
head.ts, tail.ts loses time
...e for 'head.ts' and 'tail.ts' that matches >> 'window'. >> >> >> Comments? >> Spencer Graves >> >> head.ts <- function(x, n=6L, ...){ >> tmx <- as.numeric(time(x)) >> # >> utils:::checkHT(n, d <- 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,...
2024 Jun 11
1
head.ts, tail.ts loses time
...s 'window'. > >>> > >>> > >>> Comments? Spencer Graves > >>> > >>> head.ts <- function(x, n=6L, ...){ tmx <- > >>> as.numeric(time(x)) > >>> # > >>> utils:::checkHT(n, d <- 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(...
2024 Jun 13
0
head.ts, tail.ts loses time
...s 'window'. > >>> > >>> > >>> Comments? Spencer Graves > >>> > >>> head.ts <- function(x, n=6L, ...){ tmx <- > >>> as.numeric(time(x)) > >>> # > >>> utils:::checkHT(n, d <- 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(...