bentinder = bentinder %>% see(-c(likes,passes,swipe_right_rate,match_rate)) bentinder = bentinder[-c(1:186),] messages = messages[-c(1:186),] We clearly cannot secure people of good use averages otherwise fashion using those individuals classes if the audience is factoring during the research amassed before . Hence, we’ll limit…