# \donttest{
df <- data.frame(
sample_date = rep(seq.Date(Sys.Date(), by = "day", length.out = 3), each = 2),
station_name = rep(c("ST1", "ST2"), 3),
sample_longitude_dd = rep(c(15.0, 16.0), 3),
sample_latitude_dd = rep(c(58.5, 58.6), 3)
)
nominal_station(df)
# }
Run the code above in your browser using DataLab