7/17/2020

Leaflet Assignment

Here is a plot produced with Plotly on 7-17-2020

surface <- matrix(runif(100*100),nrow=100,ncol=100)
plot_ly(z=surface, type = "surface")