class1 <- rnorm(1000,0.2,0.1)
class2 <- rnorm(1000,0.6,0.2)
class1[which(class1<0)] <- 0
class1[which(class1>1)] <- 1
class2[which(class2<0)] <- 0
class2[which(class2>1)] <- 1
scores <- c(class1, class2)
class1elts <- c(rep(TRUE,1000), rep(FALSE,1000))
class2elts <- c(rep(FALSE,1000), rep(TRUE,1000))
plotHistTwoClasses(scores, class1elts, class2elts, ylim=c(0,300))
Run the code above in your browser using DataLab