Sales Prediction

> main_predict <- predict(main_tree, newdata = test_data, type = "vector")

> test_data$Item_Outlet_Sales=main_predict

> write.csv(test_data, 'Bigmart Predicted sales(test_data).csv')

 

This is 'Bigmart Predicted sales(test_data).XLS' our final prediction  of sales data on the basis of train data.