Displaying 7 results from an estimated 7 matches for "headpresoops".
2024 Jun 09
2
head.ts, tail.ts loses time
...s6))
headPres2 <- head(presidents, 2)
pres2 <- ts(presidents[1:2], time(presidents)[1],
             frequency=frequency(presidents))
stopifnot(all.equal(headPres2, pres2))
npresObs <- length(presidents)
headPres. <- head(presidents, 6-npresObs)
stopifnot(all.equal(headPres., pres6))
headPresOops <- try(head(presidents, 1:2))
stopifnot(class(headPresOops) == 'try-error')
headPres0 <- try(head(presidents, 0))
stopifnot(class(headPres0) == 'try-error')
str(pres <- cbind(n=1:length(presidents), presidents))
headP2 <- head(pres, 2)
p2 <- ts(pres[1:2, ], time(pr...
2024 Jun 10
1
head.ts, tail.ts loses time
...gt; pres2 <- ts(presidents[1:2], time(presidents)[1],
>              frequency=frequency(presidents))
> stopifnot(all.equal(headPres2, pres2))
>
> npresObs <- length(presidents)
> headPres. <- head(presidents, 6-npresObs)
> stopifnot(all.equal(headPres., pres6))
>
> headPresOops <- try(head(presidents, 1:2))
> stopifnot(class(headPresOops) == 'try-error')
>
> headPres0 <- try(head(presidents, 0))
> stopifnot(class(headPres0) == 'try-error')
>
> str(pres <- cbind(n=1:length(presidents), presidents))
> headP2 <- head(pres, 2)...
2024 Jun 10
2
head.ts, tail.ts loses time
...requency(presidents))
    >>> stopifnot(all.equal(headPres2, pres2))
    >>> 
    >>> npresObs <- length(presidents) headPres. <-
    >>> head(presidents, 6-npresObs)
    >>> stopifnot(all.equal(headPres., pres6))
    >>> 
    >>> headPresOops <- try(head(presidents, 1:2))
    >>> stopifnot(class(headPresOops) == 'try-error')
    >>> 
    >>> headPres0 <- try(head(presidents, 0))
    >>> stopifnot(class(headPres0) == 'try-error')
    >>> 
    >>> str(pres <- c...
2024 Jun 10
1
head.ts, tail.ts loses time
...], time(presidents)[1],
>>               frequency=frequency(presidents))
>> stopifnot(all.equal(headPres2, pres2))
>>
>> npresObs <- length(presidents)
>> headPres. <- head(presidents, 6-npresObs)
>> stopifnot(all.equal(headPres., pres6))
>>
>> headPresOops <- try(head(presidents, 1:2))
>> stopifnot(class(headPresOops) == 'try-error')
>>
>> headPres0 <- try(head(presidents, 0))
>> stopifnot(class(headPres0) == 'try-error')
>>
>> str(pres <- cbind(n=1:length(presidents), presidents))
>>...
2024 Jun 11
1
head.ts, tail.ts loses time
...t;>> stopifnot(all.equal(headPres2, pres2))
>     >>>
>     >>> npresObs <- length(presidents) headPres. <-
>     >>> head(presidents, 6-npresObs)
>     >>> stopifnot(all.equal(headPres., pres6))
>     >>>
>     >>> headPresOops <- try(head(presidents, 1:2))
>     >>> stopifnot(class(headPresOops) == 'try-error')
>     >>>
>     >>> headPres0 <- try(head(presidents, 0))
>     >>> stopifnot(class(headPres0) == 'try-error')
>     >>>
>     &...
2024 Jun 10
1
head.ts, tail.ts loses time
...> stopifnot(all.equal(headPres2, pres2))
>      >>>
>      >>> npresObs <- length(presidents) headPres. <-
>      >>> head(presidents, 6-npresObs)
>      >>> stopifnot(all.equal(headPres., pres6))
>      >>>
>      >>> headPresOops <- try(head(presidents, 1:2))
>      >>> stopifnot(class(headPresOops) == 'try-error')
>      >>>
>      >>> headPres0 <- try(head(presidents, 0))
>      >>> stopifnot(class(headPres0) == 'try-error')
>      >>>
>...
2024 Jun 13
0
head.ts, tail.ts loses time
...t;>> stopifnot(all.equal(headPres2, pres2))
>     >>>
>     >>> npresObs <- length(presidents) headPres. <-
>     >>> head(presidents, 6-npresObs)
>     >>> stopifnot(all.equal(headPres., pres6))
>     >>>
>     >>> headPresOops <- try(head(presidents, 1:2))
>     >>> stopifnot(class(headPresOops) == 'try-error')
>     >>>
>     >>> headPres0 <- try(head(presidents, 0))
>     >>> stopifnot(class(headPres0) == 'try-error')
>     >>>
>     &...