"prt332" - 1 õppematerjal

R-Studio KT

read > #Mitu proovitükki on kogu andmestikus > puud2015=read.csv("puud2015.csv",sep=";",dec=",") #Impordin andmed > puud2015$D=ifelse(puud2015$D2>0,(puud2015$D1+puud2015$D2)/2,puud2015$D1) #Lisan tulba D > length(table(puud2015$PRT)) #Vaatan mitu proovitükki on kogu andmestikus loetledes read [1] 229 VASTUS: Kogu andmestikus on 229 proovitükki. Mitu puud on sinu proovitükil? #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 > #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