Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 11th, 2012  |  syntax: None  |  size: 0.93 KB  |  hits: 16  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. R divide 2 list objects which each contain the same size xts objects
  2. > length(co)
  3. [1] 1064
  4. > length(oc)
  5. [1] 1064
  6.  
  7. > tail(co[[1]])
  8.                 [,1]
  9. 2011-12-22 0.3018297
  10. 2011-12-23 0.2987450
  11. 2011-12-27 0.2699710
  12. 2011-12-28 0.2706428
  13. 2011-12-29 0.2098897
  14. 2011-12-30 0.2089051
  15.  
  16.  
  17. > tail(oc[[1]])
  18.                 [,1]
  19. 2011-12-22 0.6426411
  20. 2011-12-23 0.6462834
  21. 2011-12-27 0.6466680
  22. 2011-12-28 0.6741420
  23. 2011-12-29 0.6781371
  24. 2011-12-30 0.6650130
  25.  
  26.  
  27. > co / oc
  28. Error in co/oc : non-numeric argument to binary operator
  29.        
  30. > tail(co[[1]] / oc[[1]])
  31.                 [,1]
  32. 2011-12-22 0.4696707
  33. 2011-12-23 0.4622507
  34. 2011-12-27 0.4174800
  35. 2011-12-28 0.4014627
  36. 2011-12-29 0.3095093
  37. 2011-12-30 0.3141369
  38.        
  39. mapply("/",co,oc,SIMPLIFY = FALSE)
  40.        
  41. data(sample_matrix)
  42. sample.xts <- as.xts(sample_matrix, descr='my new xts object')
  43. v1 <- list(a = sample.xts[,1],b = sample.xts[,2])
  44. v2 <- list(a = sample.xts[,3],b = sample.xts[,4])
  45. mapply("/",v1,v2,SIMPLIFY = FALSE)
create a new version of this paste RAW Paste Data