Nothing
rTable.2x2xK.default <-
function(p=NULL,sampling="Multinomial",N=NULL,K=NULL,lambda=NULL,print.raw=FALSE){
options(warn=-1)
check(p, theta=NULL, M=NULL, N,K, row.margins=NULL, col.margins=NULL, lambda, sampling, ICC=FALSE, structure="2x2xK")
tbl = rtable.2x2xK.main(p,sampling,N,K,lambda,print.raw)
tbl$call = match.call()
class(tbl) = c("rTable.2x2xK", "rTableICC")
tbl
}
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.