if (FALSE) {
#1. VEM-algorithm for bivariate normally distributed data
#Examples
data(rs12363681)
vem_grad(obs1=x,obs2=y,type="bi", data=rs12363681,startk=20)
#2.VEM for metadata
data(CT)
vem_grad(obs1=logitTPR, obs2= logitTNR,
var1= varlogitTPR, var2= varlogitTNR,
type="meta", data=CT, startk=20)
}
Run the code above in your browser using DataLab