#Example 1
data<-c(rnorm(299,0,1),rnorm(299,5,1))
BimodalityAmplitude(data,TRUE)
#Example 2
dist1<-rnorm(2100,5,2)
dist2<-dist1+11
data<-c(dist1,dist2)
BimodalityAmplitude(data,TRUE)
#Example 3
dist1<-rnorm(210,-15,1)
dist2<-rep(dist1,3)+30
data<-c(dist1,dist2)
BimodalityAmplitude(data,TRUE)
#Example 4
data<-runif(1000,-15,1)
BimodalityAmplitude(data,TRUE)
Run the code above in your browser using DataLab