Model <- rpart(Column_of_interest ~ . , 
               data = Your_R_dataframe, 
               method = "class", 
               control = rpart.control(cp = 'your optimal cp'))