Update ctr_informative_testing.R

fix small error in plot function