leaflet() %>% addProviderTiles("OpenTopoMap") %>% addRasterImage(prob$YC_prob, opacity = .5, colors = "inferno")