R script for generation of the safety summary which is provided to CFDA.