load('Randonnee.RData')

library(knitr)
library(kableExtra)

kable(cbind(long,lat,alti),'html',caption="Donn?es fournies dans Randonnee.RData") %>%
  kable_styling() %>%
  scroll_box(width = "10cm", height='7cm')

library(plotly)
library(sm)
longitude=seq(min(long),max(long),length=100)
latitude=seq(min(lat),max(lat),length=100)
RES=sm.regression(cbind(long,lat),alti,eval.points=cbind(longitude,latitude), eval.grid=TRUE,method='cv',display='none')$estimate
Est_altitude=matrix(RES,100,100)
DT=data.frame(longitude,latitude,Est_altitude)
plot_ly(DT,x=~latitude,y=~longitude,z = ~Est_altitude, type = "surface")
#%>%   layout(xaxis = list(autorange = "reversed"))
Altitude_estimee=sm.regression(cbind(long,lat),alti,eval.points=Position, eval.grid=FALSE,method='cv',display='none')$estimate
lo=Position[,1]
la=Position[,2]
DT2=data.frame(Time,lo,la,Altitude_estimee)
plot_ly(DT,x=~latitude,y=~longitude,z = ~Est_altitude, type = "surface")%>%
add_trace(x=~la,y=~lo,z = ~Altitude_estimee, type = "scatter3d")
plot_ly(DT2,x=~Time,y=~Altitude_estimee, type = 'scatter', mode = 'lines')