File: trees.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 (17 lines) | stat: -rw-r--r-- 482 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
provide.data(trees)
h1 <- 1.5
h2 <- 4
par(mfrow=c(2,2))
par(cex=0.7)
sm.regression(Diameter, Volume, h= h1, model = "linear")
sm.regression(Height, Volume, h= h2, model = "linear")
X <- cbind(Diameter, Height)
sm.regression(X, Volume, h = c(h1,h2), model = "linear",
	   zlim = c(0,80))
X <- cbind(log(Diameter), log(Height))
colnames(X) <- c("log(Diameter)","log(Height)")
sm.regression(X, log(Volume), h = log(c(h1,h2)),
           model = "linear")
par(cex=1)
par(mfrow=c(1,1))