y <- filter(lambda*x, filter=1-lambda, method="recursive", init=init) return (y)
このウィキへの参加申請についてはこちらをご覧ください