## Create data of frequencies
require( stats )
before <- dpois( c( 0:40 ), 40 )
before <- before / sum( before )
after <- dnorm( c( 0:40 ), mean = 30, sd = 8 )
after <- after / sum( after )
## plot
QualFreqPlot( before, after )
Run the code above in your browser using DataLab