- この関数ソースは自分にとって読みにくいので、書き方を変えてみる
if(type == "circular"){ if(ny !=n){ stop("length mismatch in convolution") } }else{ n1 <- ny-1 x <- c(rep.int(0,n1),x) n <- length(y <- c(y, rep.int(0,n-1))) }
このようにするのが普通???かと(かなり妥協したが)
if (type == "circular") { if (ny != n) { stop("length mismatch in convolution") } } else { n1 <- ny-1 x <- c(rep.int(0, n1), x) n <- length(y <- c(y, rep.int(0, n-1))) }
※コメント投稿者のブログIDはブログ作成者のみに通知されます