if (FALSE) {
#1.EM and classification for bivariate data
#Examples
data(rs12363681)
test <- bivariate.mixalg(obs1=x, obs2=y, type="bi",
lambda1=0, lambda2=0, p=0,
data=rs12363681, startk=20, class="TRUE")
#scatter plot with ellipse
plot(test)
#scatter plot without ellipse
plot(test, ellipse = FALSE)
#2.EM and classification for meta data
#Examples
data(CT)
bivariate.mixalg(obs1=logitTPR, obs2=logitTNR,
var1=varlogitTPR, var2=varlogitTNR,
type="meta", lambda1=0, lambda2=0,
p=0,data=CT,startk=20,class="TRUE")
}
Run the code above in your browser using DataLab