if (dev.interactive()) { ## does really not make sense otherwise
data(faithful)
if(try(require(tcltk)))# still not there on broken installations
tkdensity(faithful $ eruptions)
if(try(require(nor1mix)))
tkdensity(rnorMix(150, MW...), kernels = c("gaussian", "epanechnikov"))
}
Run the code above in your browser using DataLab