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