scale_sites = TRUE does not work

[rabutler-usbr]

flow_mat <- cbind(c(2000, 2001, 2002), c(1400, 1567, 1325))
# made up historical data to use as index years
ind_flow <- cbind(1901:1980, rnorm(80, mean = 1500, sd = 300))
# make up monthly flow for two sites
mon_flow <- cbind(
  rnorm(80 * 12, mean = 20, sd = 5),
  rnorm(80 * 12, mean = 120, sd = 45)
)
d1 <- knn_space_time_disagg(
  flow_mat, 
  ind_flow, 
  mon_flow, 
  start_month = 1, 
  scale_sites = TRUE,
  k_weights = knn_params(1, 1)
)

results in:

Sites 2
will be selected directly from the index years, i.e., not scaled.

It should scale all sites.

Need to add this as a test.