update_setting
update_setting(options)
| options | List object, see |
|---|
options <- list( file_y = "", # Data file list/name file_qc = "", # Mask file list/name nyear_and_nptperear = c(17, 23), # No. years and no. points per year ylu = c(0, 9999), # Valid data range (lower upper) qc_1 = c(0, 0, 1), # Quality range 1 and weight qc_2 = c(1, 1, 0.5), # Quality range 2 and weight qc_3 = c(2, 3, 0.2), # Quality range 3 and weight A = 0.1, # Amplitude cutoff value output_type = c(1, 1, 0), # Output files (1/0 1/0 1/0), 1: seasonality data; 2: smoothed time-series; 3: original time-series seasonpar = 1.0, # Seasonality parameter (0-1) iters = 2, # No. of envelope iterations (3/2/1) FUN = 2, # Fitting method (1/2/3): (SG/AG/DL) half_win = 7, # half Window size for Sav-Gol. meth_pheno = 1, # Season start / end method (4/3/2/1) trs = c(0.5, 0.5) # Season start / end values ) opt <- update_setting(options) print(str(opt))#> List of 37 #> $ version : chr "Settings file version: 3.3" #> $ job_name : chr "TSM" #> $ is_image : num 0 #> $ is_trend : num 0 #> $ has_QC : num 1 #> $ file_y : chr "" #> $ file_qc : chr "" #> $ image_type : num 1 #> $ byte_order : num 0 #> $ image_dim : num [1:2] 1 1 #> $ win_process : num [1:4] 1 1 1 1 #> $ nyear_and_nptperear: num [1:2] 17 23 #> $ ylu : num [1:2] 0 9999 #> $ qc_1 : num [1:3] 0 0 1 #> $ qc_2 : num [1:3] 1 1 0.5 #> $ qc_3 : num [1:3] 2 3 0.2 #> $ A : num 0.1 #> $ debug : num 0 #> $ output_type : num [1:3] 1 1 0 #> $ has_lc : num 0 #> $ file_lc : chr "" #> $ spike_meth : num 1 #> $ spike_sd : num 2 #> $ stl_stiffness : num 3 #> $ n_lcs : num 1 #> $ lc_code : num 1 #> $ seasonpar : num 1 #> $ iters : num 2 #> $ adapt : num 2 #> $ force_min : num [1:2] 0 -9999 #> $ FUN : num 2 #> $ wFUN : num 1 #> $ half_win : num 7 #> $ par_1 : num 0 #> $ par_2 : num 0 #> $ meth_pheno : num 1 #> $ trs : num [1:2] 0.5 0.5 #> NULL