R/Method-AssetReturns.R

In CarlvinJerry/InnovaPerformanceAttribution: Performance Analytics for Portfolios

#'Methods for all Asset-level returns calculator
#'
#'


##Method to calculate the TWR-----------------------------------------------------
setGeneric(name = "AssetTimeWeightedReturns",
           def = function(object){
             standardGeneric("AssetTimeWeightedReturns")
           })
setMethod(f="AssetTimeWeightedReturns",
          signature = "Asset",
          definition = function(object){
            #calculates hpr to be linked geomtrically
            #Inputs: Ending Market Values, Beginning market values, Cash inflow/ Cash outflow

            #Calculating the Holding Period returns RN
            Data<-data.frame(AssetClass = object@AssetClass, AssetCategory = object@AssetCategory, Asset = object@Asset,OpeningMarketValue = object@OpeningMarketValue,Debit = object@Debit,
                                Credit = object@Credit,ClosingMarketValue = object@ClosingMarketValue, FixedIncome = object@FixedIncome,
                                Weight = object@Weight, Benchmark = object@Benchmark , BenchmarkWeight =object@BenchmarkWeight)

            ###---------Function to sum weights
            WeightSumFunc<-function(Data){
              weightsum<-sum(Data$Weight)
              weightsum
            }

            ###---------Function To calculate Time Weighted returns
            Returnfunc<-function(data){
              HPR<-((data$ClosingMarketValue/(data$OpeningMarketValue + (data$Credit + data$Debit)))-1)

              #TWR
              returns=1
              for(i in 1:length(HPR)){
                returns=returns*(1+HPR[[i]])
              }
              returns=(returns-1)*100
             as.numeric( returns)
            }

            #Aggregate returns as per asset library( dplyr )
            result <- Data %>%group_by(AssetClass,AssetCategory,Asset,Benchmark,BenchmarkWeight,FixedIncome) %>% do( Returns = Returnfunc(.),Weight= WeightSumFunc(.) ) %>%data.frame
            #result$Returns<-as.numeric(result$) ###TO DO **--- Change returns and weights output format from list to numeric
            result
          }
)