Treeheightgomppch15

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: mp = a.gomp*exp(­b.gomp*exp(­diam.tree*c.gomp))+rnorm(200,0,2) plot(diam.tree,height.gomp,type="n",xlab="Tree Diameter",ylab="Tree Height", ylim=c(130,250)) points(diam.tree,height.gomp,pch=15) lines(sort(diam.tree),sort(pred.gomp),col=15,lwd=3) range(height.gomp) title("Gompertz gamma0 20% smaller") # Gompertz model # parameters: a=200,b=3,c=0.3 # a.gomp = 200 * 1.2 b.gomp = 3 c.gomp = 0.3 # pred.gomp = a.gomp*exp(­b.gomp*exp(­diam.tree*c.gomp)) height.gomp = a.gomp*exp(­b.gomp*exp(­diam.tree*c.gomp))+rnorm(200,0,2) plot(diam.tree,height.gomp,type="n",xlab="Tree Diameter",ylab="Tree Height", ylim=c(130,250)) points(diam.tree,height.gomp,pch=15) lines(sort(diam.tree),sort(pred.gomp),col=15,lwd=3) range(height.gomp, ylim = c(130,250)) title("Gompertz gamma0 20% greater") # Gompertz model # parameters: a=200,b=3,c=0.3 # April 2, 2013 a.gomp = 200 b.gomp = 3 c.gomp = 0.3 # pred.gomp = a.gomp*exp(­b.gomp*exp(­diam.tree*c.gomp)) height.gomp = a.gomp*exp(­b.gomp*exp(­di...
View Full Document

This note was uploaded on 09/09/2013 for the course BTRY 3020 taught by Professor Sullivan,p.j. during the Spring '09 term at Cornell University (Engineering School).

Ask a homework question - tutors are online