File: mildew.q

package info (click to toggle)
sm 2.2-6.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,540 kB
  • sloc: f90: 259; ansic: 21; makefile: 2
file content (9 lines) | stat: -rw-r--r-- 349 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
 
X <- cbind(rep(1, 36), as.matrix(mildew[ , 1:11]))
e <- residuals(lsfit(X, mildew$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))