#' # build var_list
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)
# Perform power modeling step
test_xbx_wbw_res <- plr_xbx_model(test_dfc, var_list, by = "week",
data_cutoff = 30, predict_data = NULL)
test_xbx_wbw_decomp <- plr_decomposition(test_xbx_wbw_res, freq = 4,
power_var = 'power_var', time_var = 'time_var',
plot = FALSE, plot_file = NULL, title = NULL,
data_file = NULL)
Run the code above in your browser using DataLab