if (FALSE) {
# Example
# EM and classification for bivariate data
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)
}
Run the code above in your browser using DataLab