add the R script to draw figure of theoretical NN percentages.