Re: [程式] R中的if條件
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
→
03/21 20:18, , 1F
03/21 20:18, 1F
討論串 (同標題文章)