Skip to content
Prev 43980 / 398525 Next

Available in S-plus, also in R1.8.1?

Hoeven, Maarten van der wrote:

            
Now that I (hopefully) understand what you are going to do, the solution 
seems to be simple:

  x <- 1980:1982
  y <- c(10, 12, 14)

  n <- length(x)
  xdiff2 <- diff(x[1:2])/2
  x2 <- c(x - xdiff2, x[n] + xdiff2)
  y2 <- c(y, y[n])
  plot(x2, y2, type="s")


Uwe Ligges