fix typos

upscale_disconnections/post_processing_upscaling.R

@@ -27,14 +27,14 @@ manufacturer_capacitys <- get_manufacturer_capacitys(manufacturer_install_data,
                                                      region_to_load)
 disconnection_summary <- join_circuit_summary_and_cer_manufacturer_data(disconnection_summary,
                                                                         manufacturer_capacitys)
-manufacters_missing_from_cer <- get_manufactures_in_input_db_but_not_cer(disconnection_summary)
-manufacters_missing_from_input_db <- get_manufactures_in_cer_but_not_input_db(disconnection_summary)
+manufacturers_missing_from_cer <- get_manufactures_in_input_db_but_not_cer(disconnection_summary)
+manufacturers_missing_from_input_db <- get_manufactures_in_cer_but_not_input_db(disconnection_summary)
 disconnection_summary <- impose_sample_size_threshold(disconnection_summary, sample_threshold = 30)
 disconnection_summary <- calc_confidence_intervals_for_disconnections(disconnection_summary)
 disconnection_summary <- calc_upscale_kw_loss(disconnection_summary)
 upscaled_disconnections <- upscale_disconnections(disconnection_summary)
 
 write.csv(disconnection_summary, "test_disconnection_summary.csv", row.names = FALSE)
 write.csv(upscaled_disconnections, "test_upscaled_disconnections.csv", row.names = FALSE)
-write.csv(manufacters_missing_from_cer, "test_manufacters_missing_from_cer.csv", row.names=FALSE)
-write.csv(manufacters_missing_from_input_db, "test_manufacters_missing_from_input_db.csv", row.names=FALSE)
+write.csv(manufacturers_missing_from_cer, "test_manufacturers_missing_from_cer.csv", row.names=FALSE)
+write.csv(manufacturers_missing_from_input_db, "test_manufacturers_missing_from_input_db.csv", row.names=FALSE)