dickoa

require(ncdf4)


loadMesonetData <- function(filename, stationFilename = "station_info.csv") {
    data <- read.csv(file.path(data_path, filename))
    station_data <- read.csv(file.path(data_path, stationFilename))
    list(data = data[,-1], dates = data[,1], station_data = station_data)
}