Advertisement
Guest User

Untitled

a guest
Jul 23rd, 2014
192
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.20 KB | None | 0 0
  1. dat <- matrix(runif(50),nrow=10)
  2. rownames(dat) <- 10:1
  3. colnames(dat) <- 1:5
  4. dat
  5.  
  6. 1 2 3 4 5
  7. 10 0.93428302 0.2637368 0.91326265 0.20931505 0.25215862
  8. 9 0.01458229 0.1401547 0.25761699 0.08444877 0.04543594
  9. 8 0.98966030 0.4418174 0.78787133 0.36977319 0.85497134
  10. 7 0.54360750 0.4014348 0.48607126 0.08431677 0.95499422
  11. 6 0.39402458 0.6774917 0.07525122 0.80501739 0.34954356
  12. 5 0.74283503 0.6652231 0.45576364 0.52726500 0.49623084
  13. 4 0.44952924 0.7003085 0.98825235 0.46539233 0.23546417
  14. 3 0.32351304 0.5867900 0.65499386 0.53018068 0.45590061
  15. 2 0.63876290 0.5140422 0.79265134 0.63175354 0.28500796
  16. 1 0.01185476 0.1773445 0.55828598 0.43911265 0.18718190
  17.  
  18. xx <- sample(1:10,10,replace=FALSE)
  19. yy <- sample(1:5,10,replace=TRUE)
  20. zz <- 10:1
  21. n.dat <- cbind(xx,yy,zz)
  22. n.dat <- as.data.frame(n.dat)
  23.  
  24. xx yy zz
  25. 1 5 3 10
  26. 2 10 4 9
  27. 3 1 3 8
  28. 4 8 5 7
  29. 5 7 2 6
  30. 6 6 1 5
  31. 7 2 4 4
  32. 8 9 2 3
  33. 9 3 5 2
  34. 10 4 1 1
  35.  
  36. val <- daply(subset(n.dat,xx %in% n.dat$xx),"c",
  37. function(x) {
  38. d1=x$xx
  39. d2=x$yy
  40. res_tab_R["d1","d2"]
  41. } )
  42.  
  43. 0.4558, 0.2093, and so on.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement