|
@@ -130,3 +130,17 @@ ocdf <- p$read_pickle('../data/9-clusters-sample-table.pkl')
|
130
|
130
|
ncdf <- p$read_pickle('../data/1617-asgn-table.pkl')
|
131
|
131
|
table(ocdf$cluster)
|
132
|
132
|
table(ncdf$cluster)
|
|
133
|
+
|
|
134
|
+
|
|
135
|
+allmods <- list()
|
|
136
|
+
|
|
137
|
+for (clus in clusters) {
|
|
138
|
+ clusdf <- filter(aggdf, cluster == clus) %>%
|
|
139
|
+ dplyr::select(read_time, kwh = kwh_tot_mean) %>%
|
|
140
|
+ left_join(mtempdf, by = "read_time") %>% cbind(harm.y, harm.w, harm.d)
|
|
141
|
+ largm <- lm(nform.comp, data = clusdf, model = FALSE, qr = FALSE)
|
|
142
|
+ allmods[[clus]] <- largm
|
|
143
|
+}
|
|
144
|
+
|
|
145
|
+saveRDS(allmods, '../models/1kmods.rds')
|
|
146
|
+
|