search for: nrowvar

...type<-ifelse(type=="n","n","total") } # if the object is an ftable, use the row.vars and col.vars # use numeric indices to avoid finding the omitted # the object must be converted to a table to get the dimensions right if (class(tbl)=="ftable") { nrowvar<-length(names(attr(tbl,"row.vars"))) row.vars<-1:nrowvar col.vars<-(1:length(names(attr(tbl,"col.vars"))))+nrowvar tbl<-as.table(tbl) } # marginals to exclude assuming first factor is the row vaariable, # second factor is the column variable # is overridde...