File: follicle.q

package info (click to toggle)

sm 2.2-6.0-1

file content (5 lines) | stat: -rw-r--r-- 134 bytes

with(follicle, {
sm.regression(Age, log(Count), h = 4, lty = 2)
model <- loess(log(Count) ~ Age)
lines(Age, model$fitted, col = 6)
})