getHatmatrixFromDB = function(refid,model="random",sm){
require(nmadata)
indata = readByID(refid,format="long")
type = indata$type
if(missing(sm)){
if(type == "binary"){
sm = "OR"
}else{
sm = "SMD"
}
}
C = getHatMatrix(indata$data,type=longType(indata),model,sm,tau="NA")
return(list(hm=C, dataset=indata))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.