added R script for some DB statistics