# build var_list
# \donttest{
var_list <- plr_build_var_list(time_var = "timestamp",
power_var = "power",
irrad_var = "g_poa",
temp_var = "mod_temp",
wind_var = NA)
# Clean Data
test_dfc <- plr_cleaning(test_df, var_list, irrad_thresh = 100,
low_power_thresh = 0.01, high_power_cutoff = NA)
xbx_mbm_plr_uncertainty <- plr_bootstrap_uncertainty(test_dfc, n = 2,
fraction = 0.65, by = 'month',
power_var = 'power_var', time_var = 'time_var',
var_list = var_list, model = "xbx",
data_cutoff = 10, np = NA,
pred = NULL)
# }
Run the code above in your browser using DataLab