アールメカブ

• バックアップ一覧
• 現在との差分 を表示
• ソース を表示
• バックアップ を表示
• R_sapply へ行く。
  • 1 (2009-02-16 (月) 17:58:16)
  • 2 (2009-02-16 (月) 18:18:09)

• 追加された行はこの色です。
• 削除された行はこの色です。

[[Rの備忘録]]





 sid<-c(1,2,3,4,5,6,7,8,9,10)
 q01<-c(2,4,5,2,1,3,2,3,4,5)
 RDT<-data.frame(SID=sid, Q01=q01)
 
 
 pt1 <- proc.time()
 for (i in 1:7) RDT$Q01a[RDT$Q01 == i] <- 8-i 
 pt2 <- proc.time()
 pt2 - pt1
 
 pt1 <- proc.time()
 RDT$Q01a <- sapply(RDT$Q01, function(x){8-x})
 pt2 <- proc.time()
 pt2 - pt1
 
 test <- data.frame(X = 1:10, Y = LETTERS[1:10])
 
 RDT$Q01b <- sapply(RDT$Q01,
   function(x){test$Y[which(x ==  test$X)]})