作者memphis (讓你喜歡這世界~)
站內Statistics
標題Re: [程式] R中的if條件
時間Thu Mar 21 02:58:46 2013
try this
###
rm(list=ls())
v <- matrix(rnorm(176000*20), 176000, 20)
v[,1] <- sample(1:10, 176000, TRUE)
a <- 3
t.start <- Sys.time()
s1 <- which(v[,1] == a)
s2 <- which(v[,1] != a)
v[s1,1] <- v[s1,1] - a
v[s2,1] <- 12 - a + v[s2,1]
t.end <- Sys.time()
t.end - t.start
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.45.45.48
1F：→ piq:感謝建議^^ 03/21 20:18