[R-sig-finance] rMetrics bug

[Diethelm Wuertz]

# FIX:

rev.timeDate =
function (x)
{
    if (Sys.getenv("TZ")[[1]] != "GMT")
        warning("Set timezone to GMT!")
    if (!inherits(x, "timeDate"))
        stop("Wrong class type")
    # Replace:
    # x at Data = rev(x at Data)
    # with
    x at Data = x at Data[length(x at Data[[1]]):1]
    x
}

# Try:

rev(timeSequence(len=20))

[1] "Zurich"
 [1] [2004-01-20] [2004-01-19] [2004-01-18] [2004-01-17] [2004-01-16]
 [6] [2004-01-15] [2004-01-14] [2004-01-13] [2004-01-12] [2004-01-11]
[11] [2004-01-10] [2004-01-09] [2004-01-08] [2004-01-07] [2004-01-06]
[16] [2004-01-05] [2004-01-04] [2004-01-03] [2004-01-02] [2004-01-01]


Best regards DW



Parlamis Franklin wrote:

>In method rev.timeDate
>
> > rev(timeSequence(len=20))
>[1] "Honolulu"
>[1] [2004-01-09] [2004-01-08] [2004-01-07] [2004-01-06] [2004-01-05]  
>[2004-01-04] [2004-01-03] [2004-01-02]
>[9] [2004-01-01]
>
>
>
>Note the following:
>
> > rev(timeSequence(len=20))@Dim
>[1] 20
>
> > rev(timeSequence(len=20))[15]
>[1] "Honolulu"
>[1] [NA]
>
> > rev(timeSequence(len=5))
>[1] "Honolulu"
>[1] [NA]         [NA]         [NA]         [NA]         [2004-01-05]  
>[2004-01-04] [2004-01-03] [2004-01-02]
>[9] [2004-01-01]
>
>
>
>Class "POSIXlt" is a named list of exactly nine vectors.  hmmmmmm . . .
>
>_______________________________________________
>R-sig-finance at stat.math.ethz.ch mailing list
>https://stat.ethz.ch/mailman/listinfo/r-sig-finance
>
>  
>