- 底辺私立医大を卒業した医者って頭悪いよね? Part13
173 :卵の名無しさん[sage]:2019/12/12(木) 09:52:16.83 ID:rkviXNvO - is.max1K <- function(coin,K=5){ # max 1 seq == K?
coincumsum <- cumsum(coin) coindiff <- diff(coincumsum,lag=K) K %in% coindiff & !((K+1) %in% coindiff) } is.max1K(rbinom(100,1,0.5))
|
|