- kernel = ifelse(hasArg("kernel"), list(...)$kernel, "Gauss")
- mix_strategy = ifelse(hasArg("mix_strategy"), list(...)$mix_strategy, "neighb") #or "mult"
- same_season = ifelse(hasArg("same_season"), list(...)$same_season, TRUE)
+ kernel = ifelse(hasArg("kernel"), list(...)$kernel, "Gauss") #or "Epan"
+ mix_strategy = ifelse(hasArg("mix_strategy"), list(...)$mix_strategy, "mult") #or "neighb"
+ same_season = ifelse(hasArg("same_season"), list(...)$same_season, FALSE)