R/HelperFunction_Calc.Q.R

Defines functions GiveGrowth GiveROE GiveQ

GiveQ <- function(ROE, Re, growth) {

  return((ROE-Re)/(Re-growth))

}
GiveROE <- function(Q, Re, growth) {

 return(Re + Q * (Re - growth))

}
# write GiveRe function later

GiveGrowth <- function(ROE, Q, Re) {

  return(Re - (ROE - Re)/Q)

}
uncoollocket/strider documentation built on Jan. 16, 2018, 12:05 a.m.