Displaying 1 result from an estimated 1 matches for "nn_na".
Did you mean:
nn_no
2005 Jul 15
1
Adjusted p-values with TukeyHSD (patch)
....95, ...)
{
mm <- model.tables(x, "means")
if(is.null(mm$n))
stop("no factors in the fitted model")
tabs <- mm$tables[-1]
tabs <- tabs[which]
## mm$n need not be complete -- factors only -- so index by names
nn <- mm$n[names(tabs)]
nn_na <- is.na(nn)
if(all(nn_na))
stop("'which' specified no factors")
if(any(nn_na)) {
warning("'which' specified some non-factors which will be dropped")
tabs <- tabs[!nn_na]
nn <- nn[!nn_na]
}
out <- vector...