rMetrics bug

# 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

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