Revision 2bcd5395
Added by Benoit Parmentier about 11 years ago
climate/research/oregon/interpolation/master_script_temp.R | ||
---|---|---|
81 | 81 |
|
82 | 82 |
var<-"TMAX" # variable being interpolated |
83 | 83 |
#out_prefix<-"_365d_gam_cai_lst_comb3_10102013" #User defined output prefix |
84 |
out_prefix<-"_365d_gam_daily_mults1_lst_comb3_10122013" #User defined output prefix
|
|
84 |
out_prefix<-"_365d_gwr_daily_mults1_lst_comb3_10132013" #User defined output prefix
|
|
85 | 85 |
|
86 |
out_suffix<-"_OR_10122013" #Regional suffix
|
|
86 |
out_suffix<-"_OR_10132013" #Regional suffix
|
|
87 | 87 |
out_suffix_modis <-"_05302013" #pattern to find tiles produced previously |
88 | 88 |
|
89 | 89 |
#interpolation_method<-c("gam_fusion","gam_CAI","gam_daily") #other otpions to be added later |
... | ... | |
94 | 94 |
#interpolation_method<-c("gwr_CAI") #other otpions to be added later |
95 | 95 |
#interpolation_method<-c("kriging_CAI") |
96 | 96 |
|
97 |
interpolation_method<-c("gam_daily") #other otpions to be added later |
|
97 |
#interpolation_method<-c("gam_daily") #other otpions to be added later
|
|
98 | 98 |
#interpolation_method<-c("kriging_daily") #other otpions to be added later |
99 |
#interpolation_method<-c("gwr_daily") #other otpions to be added later
|
|
99 |
interpolation_method<-c("gwr_daily") #other otpions to be added later |
|
100 | 100 |
|
101 | 101 |
#out_path<-"/home/parmentier/Data/IPLANT_project/Oregon_interpolation/Oregon_03142013/output_data" |
102 | 102 |
out_path <- "/data/project/layers/commons/Oregon_interpolation/output_data" |
... | ... | |
262 | 262 |
#dates_selected<-c("20100101","20100102","20100103","20100901") # Note that the dates set must have a specific format: yyymmdd |
263 | 263 |
#dates_selected<-c("20100101","20100102","20100301","20100302","20100501","20100502","20100701","20100702","20100901","20100902","20101101","20101102") |
264 | 264 |
dates_selected<-"" # if empty string then predict for the full year specified earlier |
265 |
dates_selected <- 2 # if empty string then predict for the full year specified earlier
|
|
265 |
dates_selected <- 2 # if integer then predict for the evert n dat in the year specified earlier
|
|
266 | 266 |
|
267 | 267 |
screen_data_training<- FALSE #screen training data for NA and use same input training for all models fitted |
268 | 268 |
use_clim_image <- TRUE # use predicted image as a base...rather than average Tmin at the station for delta |
... | ... | |
309 | 309 |
interp_method2 <- NULL #other options are "gwr" and "kriging" |
310 | 310 |
|
311 | 311 |
#interp_method2 <- "gam" #other options are "gwr" and "kriging" |
312 |
#list_models<-c("y_var ~ lat*lon + elev_s")
|
|
312 |
list_models <- c("y_var ~ lat*lon + elev_s")
|
|
313 | 313 |
|
314 |
list_models<-c("y_var ~ s(lat,lon) + s(elev_s)") |
|
314 |
#list_models<-c("y_var ~ s(lat,lon) + s(elev_s)")
|
|
315 | 315 |
|
316 | 316 |
#list_models<-c("y_var ~ lat*lon + elev_s") #, |
317 | 317 |
# "y_var ~ lat*lon + elev_s + N_w", |
... | ... | |
342 | 342 |
#debug(debug_fun_test) |
343 | 343 |
#debug_fun_test(list_param_raster_prediction) |
344 | 344 |
|
345 |
raster_prediction_obj <-raster_prediction_fun(list_param_raster_prediction) |
|
345 |
raster_prediction_obj <- raster_prediction_fun(list_param_raster_prediction)
|
|
346 | 346 |
|
347 | 347 |
############## STAGE 5: OUTPUT ANALYSES ################## |
348 | 348 |
|
Also available in: Unified diff
running gwr daily multiple holdout 10-70% every 2 days for single time scale paper