diff --git a/README.qmd b/PHS7045_lab4.qmd
similarity index 99%
rename from README.qmd
rename to PHS7045_lab4.qmd
index 5becad4..7baa201 100644
--- a/README.qmd
+++ b/PHS7045_lab4.qmd
@@ -270,6 +270,7 @@ close_weather_state <- weather_station_lat[!(USAF %in% med_weather_state$USAF)][
 ]
 
 library(leaflet)
+
 # combine the two sets of stations and make two group
 leaflet_station <- rbindlist(list(med_weather_state, close_weather_state), fill = TRUE) |>
   mutate(group = fifelse(USAF %in% med_weather_state$USAF, "median", "closest"))