c45 disc3 hv regionI.data

data=try8_right_gs_2200_10000_100_1100_500_500_hv


for (( i = 1; i <= 49; i++ )) do
  cp c45_disc3_${data}.data c45_disc3_${data}_region$i.data

  perl -e "s/, $i\$/, YES/g;" -pi c45_disc3_${data}_region$i.data
  perl -e 's/, \d+$/, NO/g;' -pi c45_disc3_${data}_region$i.data

  perl -e 's/, YES$/, 1/g;' -pi c45_disc3_${data}_region$i.data
  perl -e 's/, NO$/, 0/g;' -pi c45_disc3_${data}_region$i.data
done