fun <- function(x) { lm(x ~ time)$coefficients[2] }
slope <- calc(s, fun)
plot(slope)

the above lines give me one slope plot.

But what other 7 plots means when I do these
fun <- function(x) { lm(x ~ time)$coefficients }
  x3<- calc(s, fun)
plot(x3)

Thanks.

	[[alternative HTML version deleted]]

