/demo/gsubfn-chron.R

http://gsubfn.googlecode.com/ · R · 22 lines · 12 code · 6 blank · 4 comment · 0 complexity · b02f0d688c7af2f2f012ebca2c3b2f66 MD5 · raw file 

    

  1. # Use read.zoo to read data with a chron time index

    2. 

  2. # Ignore fractional seconds.

    3. 

  3. 

    4. 

  4. library(zoo)

    5. 

  5. library(chron)

    6. 

  6. library(gsubfn)

    7. 

  7. 

    8. 

  8. # test data

    9. 

  9. Lines <- "2006-01-24 02:41:24.00011,1.22930000,5,1.22950000,7

    10. 

  10. 2006-01-25 04:41:24.00011,1.22930000,5,1.22950000,7

    11. 

  11. 2006-01-26 07:41:24.00011,1.22930000,5,1.22950000,7"

    12. 

  12. 

    13. 

  13. # convert to chron

    14. 

  14. to.chron <- function(x) 

    15. 

  15.    strapply(format(x), "([0-9-]+) ([0-9:]+)",

    16. 

  16. 	~ chron(as.numeric(as.Date(dd)), tt), simplify = c)

    17. 

  17. 

    18. 

  18. con <- textConnection(Lines)

    19. 

  19. read.zoo(con, sep = ",", FUN = to.chron)

    20. 

  20. close(con)
    21.