I am very sorry. I've made a typo. The function should be:

# p is a vector
myfunc <- function (p) {
  x[1] <- p[1]
  for (i in c(2:length(p))) {
    x[i] <- 0.8*p[i] + 0.2*x[i-1]
  }
  return (x)
}


James

______________________________________________
[EMAIL PROTECTED] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html

Reply via email to