new data after removing IntCat==9 from data_clean.R