Create cchist_PLOT.R