R-Studio KT
[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,
viskan välja mitte vajaliku ehk nullid.
> table(PUUD1$PL) #Vaatan puid puuliikide kaupa
HB KS
23 13
> P1=with(PUUD1,tapply(D,PL,length))
> P1
HB KS
23 13
> PRT332RIN=data.frame(PL=names(P1),Rinne1=P1)
> PRT332RIN
PL Rinne1
HB HB 23
KS KS 13
> write