作者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