# NOT RUN {
loads <- ercot[ercot$Year == 2019, ]$COAST
linear_loadshape <- lslin(loads, target_lf = 0.5)
# --------------
plot(linear_loadshape, col = c(2, 4))
plot(linear_loadshape, case = 2, col = c(2, 4))
plot(linear_loadshape, case = 3,
col = c("salmon", "deepskyblue"),
leg_pos = "topleft")
# }
Run the code above in your browser using DataLab