File: mildew.q

package info (click to toggle)
sm 2.0.14-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 992 kB
  • ctags: 26
  • sloc: fortran: 133; sh: 28; makefile: 13
file content (10 lines) | stat: -rw-r--r-- 352 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
 
provide.data(mildew)
X <- cbind(rep(1,36),as.matrix(mildew[1:11]))
e <- residuals(lsfit(X,Yield,intercept=FALSE))
Position <- 1:36
par(mfrow=c(1,2))
sig.trace(sm.regression(Position, e, design.mat=X, model =
   "no.effect", display="none"), hvec = seq(1, 20, by=1.5))
sm.regression(Position, e, design.mat=X, h=7, model="no.effect")
par(mfrow=c(1,1))