Displaying 1 result from an estimated 1 matches for "tphii".
Did you mean:
ophii
2005 Apr 26
0
Construction of a "mean" contengency table
...{
sDF <- subset(DF, condition)
A <- aggregate(sDF, factorlist, FUN)
M <- matrix(data=NA, nrow = length(levels(factorlist[[1]])),
ncol = length(levels(factorlist[[2]])),
dimnames =
list(levels(factorlist[[1]]),levels(factorlist[[2]]) )
)
for (i in 1:length(A[,1]))
{
tPhii <- A$Group.1[i]
tAppari <- A$Group.2[i]
M[tPhii, tAppari] <- A$pest_max_number[i]
}
return(M)
}
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
DISCLAIMER:\
\ This email is from the Scottish Crop Researc...{{dropped}}