Project

General

Profile

« Previous | Next » 

Revision 2bcd5395

Added by Benoit Parmentier about 11 years ago

running gwr daily multiple holdout 10-70% every 2 days for single time scale paper

View differences:

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