# ------------------------------------------------------------------------------------------------------------------------- # # ----------------------------------------------------------------------------------------------------------------------- # # # # File Name : transform_months_back.r # # Last Updated Funclist : 08 Feb 2015, 5:12 AM (Sunday) # # # # Author Name : Rick Saporta # # Author Email : RickSaporta@gmail.com # # Author URL : www.github.com/rsaporta # # # # Packages Called : NA # # Packages Used via NS : NA # # # # ----------------------------------------------------------------------------------------------------------------------- # # # # transform_months_back ( x, div=4, invert=FALSE ) # # # # # # # # ----------------------------------------------------------------------------------------------------------------------- # # ------------------------------------------------------------------------------------------------------------------------- # transform_months_back <- function(x, div=4, invert=FALSE) { if (invert) return(log(x) * div) else return(exp(x / div)) }