"puntkidele" - 1 õppematerjal

R-Studio KT

max(DH332$H) #Vaatan max kõrgust max(DH332$D) #Vaatan max diameetrit, et parameetrid paika panna plot(NULL,xlim=c(0,50),ylim=c(0,40),xlab="Diameeter (cm)",ylab="Kõrgus (m)",main="Proovitükk 332") #Panen paika parameetrit ja annan telje nimed ja tiitli abline(h=seq(0,40,2.5),lty=3,col="gray") #Lisan horisontaalse abijooned abline(v=seq(0,50,2.5),lty=3,col="gray") #Lisan vertikaalse abijooned unique(DH332$PL) #Vaatan mis puud on andmestikus, et lisada puntkidele värvid 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 > #Tee hajuvusdiagramm enda proovitüki puu kõrguste ja diameetri kohta. > plot(H~D,data=MUDEL) #Vaatan kõrguse diameetri üldist pilti mudel puude andmestiku põhjal