knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(verdsettKraftSelskap)
# devtools::load_all()

Denne rapporten verdsette et kraftselskap.

df <- hent_produksjonsdata()

kraftproduksjon <- hent_produksjon_for_kraftverk(df, "Novle")

wacc <- kalkuler_wacc()
kraftpriser %>% 
  kalkuler_kostnader_inntekter(kraftproduksjon) %>% 
  kalkuler_fri_kontantflyt() %>% 
  kalkuler_selskapsverdi(wacc)


markusmortensen/verdsettKraftSelskap documentation built on Nov. 5, 2019, 2:54 p.m.