ANCOVA slides using slidy in R

#London Map # Create a Leaflet map map <- leaflet() %>% addTiles() %>% # Add default OpenStreetMap tiles setView(lng = -0.12755, lat = 51.507222, zoom = 10) # Set initial view to London # Add a marker map <- addMarkers(map, lng = -0.12755, lat = 51.507222, popup = "London") # Print the map map