#STAGE 5: Output analyses: assessment of results for specific dates...

#

#AUTHOR: Benoit Parmentier                                                                       

#PROJECT: NCEAS INPLANT: Environment and Organisms --TASK#363, TASK$568--   

var<-"TMAX" # variable being interpolated

#out_prefix<-"_365d_gam_cai_lst_comb3_10102013"                #User defined output prefix

out_suffix_modis <-"_05302013"                       #pattern to find tiles produced previously     

#interpolation_method<-c("gam_fusion","gam_CAI","gam_daily") #other otpions to be added later

#interpolation_method<-c("gam_fusion") #other otpions to be added later

#interpolation_method<-c("kriging_fusion") #other otpions to be added later

#interpolation_method<-c("gwr_fusion") #other otpions to be added later

#interpolation_method<-c("gwr_CAI") #other otpions to be added later

#interpolation_method<-c("gam_daily") #other otpions to be added later

#interpolation_method<-c("kriging_daily") #other otpions to be added later

#prop_minmax<-c(0.1,0.7)  #if prop_min=prop_max and step=0 then predictions are done for the number of dates...

seed_number_month <- 100

#step_month <-0         

step_month <-0.1

constant_month <- 0             #if value 1 then use the same samples as date one for the all set of dates

#LC1: Evergreen/deciduous needleleaf trees

#Combination 5: for paper multi-timescale  paper

#Combination 5: for paper multi-timescale  paper

#Combination 3: for paper baseline=s(lat,lon)+s(elev)

#list_models<-c("y_var ~ s(lat,lon) + s(elev_s)",