"puud1" - 1 õppematerjal

R-Studio KT

PRT332=subset(puud2015,PRT=="332") #Teen eraldi andmestiku PRT332-st length(table(PRT332$PUU)) #Loetlen puude arvu PRT-l > #Mitu puud on sinu proovitükil? > PRT332=subset(puud2015,PRT=="332") #Teen eraldi andmestiku PRT332-st > length(table(PRT332$PUU)) #Loetlen puude arvu PRT-l [1] 121 VASTUS: Minu proovitükil on 121 puud Mitu 1. rinde puud on puuliikide kaupa sinu proovitükil? Esita tabel vaid proovitükil esinevate liikide kohta. #Mitu 1. rinde puud on puuliikide kaupa proovitükil. PUUD1=droplevels(subset(PRT332,RIN=="1")) #Teen 1. rinde puude andmestiku, viskan välja mitte vajaliku ehk nullid. table(PUUD1$PL) #Vaatan puid puuliikide kaupa #Ühendan saadud andmed ühte tabelisse P1=with(PUUD1,tapply(D,PL,length)) P1 PRT332RIN=data.frame(PL=names(P1),Rinne1=P1) PRT332RIN write.table(PRT332RIN,"clipboard",sep="t",dec=",",row.names=FALSE) > #Mitu 1. rinde puud on puuliikide kaupa proovitükil. > PUUD1=droplevels(subset(PRT332,RIN=="1")) #Teen 1. rinde puude andmestiku,