mysample <- data.frame(id = c("id000016", "id000021"),
date = as.Date(c("2009-05-15", "2008-08-04")),
easting = c(519000, 365000),
northing = c(176000, 172000))
uv_data_check(mysample)
Run the code above in your browser using DataLab