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],
>>...
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(...