# NOT RUN {
x1=rnorm(500, mean=10, sd=2)
x2=rnorm(500,mean=20,sd=5)
y1=rnorm(500, mean=400, sd=2)
y2=rnorm(500,mean=200,sd=5)
samples=data.frame(x=c(x1,x2),y=c(y1,y2))
krClusterRes=exClusterByKruskal(samples,mininterClusterDist=100,dist_scalor =1)
# }
Run the code above in your browser using DataLab