Displaying 1 result from an estimated 1 matches for "rpct".
Did you mean:
rpc
2015 Jan 16
1
S3 generic method dispatch on promises
...for(k in colnames(cpct)){
t3[j, k] <- paste0(count[j, k], "(", cpct[j, k], "%)")
}
}
cat("Count (column %)\n")
print(t3)
return(invisible(t3))
}
## rowpct == TRUE< else would have returned
rpct <- tab[["rowpct"]]
for(j in rownames(rpct)){
for(k in colnames(rpct)){
t3[j, k] <- paste0(count[j, k], "(", rpct[j, k], "%)")
}
}
if (!colpct) {
cat("Count (row %)\n")
print(t3)
return(inv...