Hi,
May be this helps you.
TF1<-aggregate(Frequency~Specie,data=Frequency,FUN=sum)
TV1<-aggregate(Volume~Specie,data=Volume,FUN=sum)
new1<-merge(TF1,Frequency, by="Specie")
new2<-merge(TV1,Volume,by="Specie")
new1$Fi<-new1$Frequency.y/new1$Frequency.x
new2$Vi<-new2$Volume.y/new2$Volume.x
res<-n
Hello,
1) Instead of computing TFrequency and TVolume like you have, try the
following.
TF <- with(Frequency, ave(Frequency, Specie, FUN = sum))
TV <- with(Volume, ave(Volume, Specie, FUN = sum))
Fi <- with(Frequency, Frequency/TF)
Vi <- with(Volume, Volume/TV)
Importance <- Fi*Vi/sum(Fi*Vi)
2 matches
Mail list logo
