**Consider only the below columns and prepare a prediction model for predicting Price.
Corolla<-Corolla[c("Price","Age_08_04","KM","HP","cc","Doors","Gears","Quarterly_Tax","Weight")]**
Model -- model of the car Price -- Offer Price in EUROs Age_08_04 -- Age in months as in August 2004 Mfg_Month -- Manufacturing month (1-12) Mfg_Year -- Manufacturing Year KM -- Accumulated Kilometers on odometer Fuel_Type -- Fuel Type (Petrol, Diesel, CNG) HP -- Horse Power Met_Color -- Metallic Color? (Yes=1, No=0) Color -- Color (Blue, Red, Grey, Silver, Black, etc.) Automatic -- Automatic ( (Yes=1, No=0) cc -- Cylinder Volume in cubic centimeters Doors -- Number of doors Cylinders -- Number of cylinders Gears -- Number of gear positions Quarterly_Tax -- Quarterly road tax in EUROs Weight -- Weight in Kilograms Mfr_Guarantee -- Within Manufacturer's Guarantee period (Yes=1, No=0) BOVAG_Guarantee -- BOVAG (Dutch dealer network) Guarantee (Yes=1, No=0) Guarantee_Period -- Guarantee period in months ABS -- Anti-Lock Brake System (Yes=1, No=0) Airbag_1 -- Driver_Airbag (Yes=1, No=0) Airbag_2 -- Passenger Airbag (Yes=1, No=0) Airco -- Airconditioning (Yes=1, No=0) Automatic_airco -- Automatic Airconditioning (Yes=1, No=0) Boardcomputer -- Boardcomputer (Yes=1, No=0) CD_Player -- CD Player (Yes=1, No=0) Central_Lock -- Central Lock (Yes=1, No=0) Powered_Windows -- Powered Windows (Yes=1, No=0) Power_Steering -- Power Steering (Yes=1, No=0) Radio -- Radio (Yes=1, No=0) Mistlamps -- Mistlamps (Yes=1, No=0) Sport_Model -- Sport Model (Yes=1, No=0) Backseat_Divider -- Backseat Divider (Yes=1, No=0) Metallic_Rim --Metallic Rim (Yes=1, No=0) Radio_cassette -- Radio Cassette (Yes=1, No=0) Tow_Bar -- Tow Bar (Yes=1, No=0)