Nothing
compute.obj <- function(para, map, family, data, ref, inv.V, bet0, sample.info, outcome, type){
if(family == 'gaussian'){
o <- obj.lm(para, map, data, ref, inv.V, bet0, outcome)
}
if(family == 'binomial'){
o <- obj.lo(para, map, data, ref, inv.V, bet0, outcome)
}
if(family == 'case-control'){
o <- obj.cc(para, map, data, ref, inv.V, bet0, sample.info, outcome)
}
if(family == 'cml'){
o <- obj.cml(para, map, data, ref, inv.V, bet0, sample.info, outcome)
}
o
}
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.