|
@@ -81,12 +81,10 @@ cmdf <- data.frame(x = clusdf$read_time, y = clusdf$kwh, f = fitted(charmmod), r
|
81
|
81
|
cmplot <-ggplot(cmdf, aes(x = x, y = y)) + geom_line(aes(y = f), color = "blue", size = 2) + geom_point() +
|
82
|
82
|
geom_point(aes(y = r), color = "darkgreen")
|
83
|
83
|
|
84
|
|
-cmplot
|
|
84
|
+# cmplot
|
85
|
85
|
|
86
|
|
-cmplot + coord_cartesian(xlim = c(as.POSIXct("2017-03-01", tz = "UTC"), as.POSIXct("2017-04-01", tz = "UTC")))
|
|
86
|
+# cmplot + coord_cartesian(xlim = c(as.POSIXct("2017-03-01", tz = "UTC"), as.POSIXct("2017-04-01", tz = "UTC")))
|
87
|
87
|
|
88
|
|
-# sres <- stepAIC(charmmod, scope = list(upper = nform.full, lower = nform.min),
|
89
|
|
-# direction = "both", steps = 300)
|
90
|
88
|
|
91
|
89
|
|
92
|
90
|
newagg <- p$read_pickle("../data/1617-agg.pkl")
|
|
@@ -117,19 +115,19 @@ predf <- data.frame(x = pclusdf$read_time, y = pclusdf$kwh, f = predvals, r = pc
|
117
|
115
|
predplot <-ggplot(predf, aes(x = x, y = y)) + geom_line(aes(y = f), color = "blue", size = 2) + geom_point() +
|
118
|
116
|
geom_point(aes(y = r), color = "darkgreen")
|
119
|
117
|
|
120
|
|
-predplot
|
|
118
|
+# predplot
|
121
|
119
|
|
122
|
|
-predplot + coord_cartesian(xlim = c(as.POSIXct("2017-03-01", tz = "UTC"), as.POSIXct("2017-04-01", tz = "UTC")))
|
|
120
|
+# predplot + coord_cartesian(xlim = c(as.POSIXct("2017-03-01", tz = "UTC"), as.POSIXct("2017-04-01", tz = "UTC")))
|
123
|
121
|
|
124
|
122
|
mean(abs(predf$r))
|
125
|
123
|
sd(predf$r)
|
126
|
124
|
|
127
|
125
|
|
128
|
126
|
# number of icps per cluster
|
129
|
|
-ocdf <- p$read_pickle('../data/9-clusters-sample-table.pkl')
|
130
|
|
-ncdf <- p$read_pickle('../data/1617-asgn-table.pkl')
|
131
|
|
-table(ocdf$cluster)
|
132
|
|
-table(ncdf$cluster)
|
|
127
|
+# ocdf <- p$read_pickle('../data/9-clusters-sample-table.pkl')
|
|
128
|
+# ncdf <- p$read_pickle('../data/1617-asgn-table.pkl')
|
|
129
|
+# table(ocdf$cluster)
|
|
130
|
+# table(ncdf$cluster)
|
133
|
131
|
|
134
|
132
|
|
135
|
133
|
allmods <- list()
|