formatR ではないけれど...（プログラミング書式）

• この関数ソースは自分にとって読みにくいので、書き方を変えてみる

	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)))
	}