1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
| function(input, output){
gilles<-read.csv("C:/AirBnb_App/base regression.csv",sep = ",")
Model_Final<-lm(prix_quanti~
AirConditioning+nettoyage_quanti+garantie_quanti +FreeParkingonPremises+ElevatorinBuilding +facebook + nb_sdb_quanti+nb_accomodate_quanti+nb_chambre_quanti +invite_quanti+room_type+require_guest_phone_verification +dispo_30, data=gilles[,-1])
pred<-reactive({
AirConditioning_Input<-input$AirConditioning
FreeParkingonPremises_Input<-input$FreeParkingonPremises
ElevatorinBuilding_Input<-input$ElevatorinBuilding
facebook_Input<-input$facebook
require_guest_phone_verification_Input<-input$require_guest_phone_verification
room_type_Input<-input$room_type
dispo_30_Input<-input$dispo_30
nettoyage_quanti_Input<-input$nettoyage_quanti
garantie_quanti_Input<-input$garantie_quanti
nb_sdb_quanti_Input<-input$nb_sdb_quanti
nb_accomodate_quanti_Input<-input$nb_accomodate_quanti
nb_chambre_quanti_Input<-input$nb_chambre_quanti
invite_quanti_Input<-input$invite_quanti
predict(Model_Final,newdata = data.frame(AirConditioning=AirConditioning_Input,
nettoyage_quanti=nettoyage_quanti_Input,
garantie_quanti=garantie_quanti_Input,
FreeParkingonPremises=FreeParkingonPremises_Input,
ElevatorinBuilding=ElevatorinBuilding_Input,
facebook=facebook_Input,
nb_sdb_quanti=nb_sdb_quanti_Input,
nb_accomodate_quanti=nb_accomodate_quanti_Input,
nb_chambre_quanti=nb_chambre_quanti_Input,
invite_quanti=invite_quanti_Input,
room_type=room_type_Input,
require_guest_phone_verification=require_guest_phone_verification_Input,
dispo_30=dispo_30_Input))})
output$Prix_Conseille<-renderText(c({round(pred(),digits = 0)},"Euros.")) |
Partager