comparison insect_phenology_model.R @ 46:0791cca1fc5c draft

Uploaded

45:315c5e1bc44a

    # the data, so delete that row if we're not in a leap year.
    if (!is_leap_year) {
        norm_data_frame = norm_data_frame[-c(60),];
    }
    # Set the location to be the station name if the user elected no to enter it.
    if (is.null(location)) {
        location = norm_data_frame$NAME[1];
    }
    if (is.null(input_ytd)) {
        # Convert the 30 year normals data to the year-to-date format.
        for (i in 1:total_days) {

46:0791cca1fc5c

    # the data, so delete that row if we're not in a leap year.
    if (!is_leap_year) {
        norm_data_frame = norm_data_frame[-c(60),];
    }
    # Set the location to be the station name if the user elected no to enter it.
    if (is.null(location) | location=="") {
        location = norm_data_frame$NAME[1];
    }
    if (is.null(input_ytd)) {
        # Convert the 30 year normals data to the year-to-date format.
        for (i in 1:total_days) {