Nothing
`thprop` <-
function (tab, digits=1, percent=FALSE) {
dn <- names(dimnames(tab))
tmp <- as.vector(apply(tab,1,sum)/sum(tab))%*%t(as.vector(apply(tab,2,sum)/sum(tab)))
colnames(tmp) <- colnames(tab)
rownames(tmp) <- rownames(tab)
result <- as.table(tmp*100)
names(dimnames(result)) <- dn
class(result) <- c("proptab", class(result))
attr(result, "percent") <- percent
attr(result, "digits") <- digits
return(result)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.