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.")) |
