# NOT RUN {
## generate data of 3 types with clear difference
set.seed(100)
diff = 100
dt1 = aux.gensamples(n=20)-diff
dt2 = aux.gensamples(n=20)
dt3 = aux.gensamples(n=20)+diff
## merge the data and create a label correspondingly
X = rbind(dt1,dt2,dt3)
label = rep(1:3, each=20)
## try different numbers for neighborhood size
out1 = do.mlie(X, label, k1=5, k2=5)
out2 = do.mlie(X, label, k1=10,k2=10)
out3 = do.mlie(X, label, k1=25,k2=25)
## visualize
opar <- par(no.readonly=TRUE)
par(mfrow=c(1,3))
plot(out1$Y, main="MLIE::nbd size=5")
plot(out2$Y, main="MLIE::nbd size=10")
plot(out3$Y, main="MLIE::nbd size=25")
par(opar)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab