Advertisement
Guest User

Untitled

a guest
Apr 17th, 2014
45
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.07 KB | None | 0 0
  1. time POINT_Y POINT_X
  2. 00:00 106.78 207.44
  3. 00:30 106.61 207.6
  4. 01:00 103.72 208.33
  5. 01:30 102.57 207.35
  6. 02:00 102.27 206.3
  7. 02:30 101.6 206.43
  8. 03:00 100.66 206.73
  9. 03:30 101.11 206.5
  10. 04:00 100.95 206.63
  11. 04:30 102.02 206.27
  12. 05:00 105.83 207.93
  13. 05:30 106.98 207.15
  14. 06:00 107.32 206.28
  15. 06:30 108.36 204.7
  16. 07:00 107.97 203.41
  17. 07:30 107.76 202.63
  18. 08:00 107.85 201.13
  19. 08:30 107.6 198.74
  20.  
  21. Lines <- "time POINT_Y POINT_X
  22. 00:00 106.78 207.44
  23. 00:30 106.61 207.6
  24. 01:00 103.72 208.33
  25. 01:30 102.57 207.35
  26. 02:00 102.27 206.3
  27. 02:30 101.6 206.43
  28. 03:00 100.66 206.73
  29. 03:30 101.11 206.5
  30. 04:00 100.95 206.63
  31. 04:30 102.02 206.27
  32. 05:00 105.83 207.93
  33. 05:30 106.98 207.15
  34. 06:00 107.32 206.28
  35. 06:30 108.36 204.7
  36. 07:00 107.97 203.41
  37. 07:30 107.76 202.63
  38. 08:00 107.85 201.13
  39. 08:30 107.6 198.74
  40. "
  41.  
  42. library(zoo)
  43. library(chron)
  44. to.times <- function(x) times(paste0(x, ":00"))
  45.  
  46. # z <- read.zoo("myfile", header = TRUE, FUN = to.times)
  47. z <- read.zoo(text = Lines, header = TRUE, FUN = to.times)
  48.  
  49. plot(z)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement