1 2 3 4 5 6 7
estARX <- function(data,order=c(0,1,0)){ y <- as.matrix(data$output) u <- as.matrix(data$input) na <- order[1];nb <- order[2]; nk <- order[3] }