Displaying 1 result from an estimated 1 matches for "284349".
Did you mean:
24349
2004 Jun 15
3
slope estimations of teeth like data
Dear all
Suppose I have teeth like data similar like
x <- 1:200
y <- 0.03*x[1:100]+rnorm(100, mean=.001, sd=.03)
z <- 3-rep(seq(1,100,10),each=10)*.03+rnorm(100,mean=.001, sd=.03)
plot(x,c(y,z))
and I want to have a gradient estimations for some values from increasing part of
data
like
y.agg <- aggregate(diff(c(y,z)), list(rep(seq(1,200,10),each=10)[1:199]), mean)
y.agg[1:10,]