comparison utils.R @ 60:393085589438 draft

Uploaded

59:892cf703be62

        msg = paste("Invalid date: ", date_str, ", valid date format is yyyy-mm-dd.", sep="");
        stop_err(msg);
    }
    return(valid_date);
}

60:393085589438

        msg = paste("Invalid date: ", date_str, ", valid date format is yyyy-mm-dd.", sep="");
        stop_err(msg);
    }
    return(valid_date);
}

validate_doys = function(temperature_data_frame) {
    # Ensure all DOY values are consecutive integers.
    last_doy = 0;
    num_rows = dim(temperature_data_frame)[1];
    for (i in 1:num_rows) {
        doy = as.integer(temperature_data_frame$DOY[i]);
        if (last_doy == 0) {
            last_doy = doy;
        } else {
            if (doy != last_doy + 1) {
                msg = paste("DOY ", doy, " is not consecutive (previous DOY is ", last_doy, ".", sep="");
                stop_err(msg);
            }
            last_doy = doy;
        }
    }
}