Displaying 1 result from an estimated 1 matches for "grouparr".
Did you mean:
groupadd
2001 Mar 28
4
efficiency and "forcing" questions
...)
cat("group =", x$group[1],"\n")
cat("NAIC =", x$naic4[1],"\n")
cat("cendiv =", as.character(x$cendiv[1]),"\n")
cat("number of obs used =", nrow(x),"\n")
print(summary(pprfile.ppr))
}
grouparr <- levels(as.factor(wintemp4$group))
pprest <- vector(mode="list",length=length(grouparr))
for(i in seq(along=grouparr))
{
subi <- subset(wintemp4,wintemp4$group==grouparr[i])
if(nrow(subi) > 40) pprest[i][[1]] <- myppr1(subi)
rm(subi)
print(gc())
}
de...