Split data into training testing in r. Now the rows where split1 is TRU...