Commit 21141a3f authored by Dan Baston's avatar Dan Baston

Add script to calculate default capacity factors from UCS EW3 dataset

parent cb1b6df5
library(dplyr)
library(readxl)
download.file('https://www.ucsusa.org/sites/default/files/attach/2016/03/UCS-EW3-Energy-Water-Database.xlsx',
destfile='UCS_EW3.xlsx')
ew3 <- read_xlsx('UCS_EW3.xlsx', sheet='MAIN DATA', skip=4)
capacity_factors <- ew3 %>%
group_by(Fuel) %>%
summarize(mean_capacity_factor= mean(`Estimated Capacity Factor`))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment