> unique(DH332$PL) #Vaatan mis puud on andmestikus, et lisada puntkidele värvid [1] KS HB KU Levels: HB JA KS KU LH LM LV MA NU PA PI PN RE SA SP TA TM TU VA > points(H~D,data=subset(DH332,PL=="KS"),pch=20,col="cyan") > points(H~D,data=subset(DH332,PL=="HB"),pch=20,col="green") > points(H~D,data=subset(DH332,PL=="KU"),pch=20,col="magenta") > legend("bottomright",c("Kask","Haab","Kuusk"),fill=c("cyan","green","magenta")) #Teen legendi VASTUS: Tee puude omavahelisest kaugusest joonis Hynyneni funktsiooniga. #Tee puude omavahelisest kaugusest joonis Hynyneni funktsiooniga #Kirjutan ümber valemi #L=10000/(exp(c1+c2)*log(D))^(1/2) #Mänd c1=12.669;c2=-1.844 #Valem, diameeter, kõrgus, paksus,värv, tiitlid ja pealkiri curve(10000/ (exp(c1+c2*log10(x)))^(1/2),from=5,to=60,ylim=c(20,120),lwd=1,type="p",col="orang e",xlab="Diameeter (cm)",ylab="Puudevaheline kaugus (cm)",main="Puude omavaheline kaugus") #Kuusk c1=11.414;c2=-1.301 curve(10000/
y=x ¿ ¿ f ( x )= ( 2 )( ( x - )( + -x ) )exp [ -12z ] 2 , (1) kus < < + , -< < , ; > 0 , -<© < . 10000 L= Hynyneni funktsioon: e c 1+ c2 log ( D) , (2) Kus D on puistu diameeter sentimeetrites, ning c1, c2, - puuliigist sõltuvad parameetrid. 4 TABELID JA JOONISED Tabel 1. Eesti pindala jagunemine maakategooriate järgi (Mets2011 2013) Eesti pindala1 Riigimetskonnad2 Teised Eesti pindala3 valdajad Land category
annaabi.ee 
