#' Object of class AssetClassAttribution
#'
#' This function generates an S4 object of any asset class for Brinson Attribution
#'
AssetClassAttribution<-setClass("AssetClassAttribution", slots = representation(
AssetClass="factor",
PortfolioReturns="numeric",
PortfolioWeights="numeric",
BenchmarkReturns="numeric",
BenchmarkWeights="numeric"),
# prototype = list(debit=0,#Default Values
# credit=0),
#Data validation
validity=function(object)
{
if(length(object@PortfolioReturns)<=0){
return("Portfolio returns data is missing")
}
else if(length(object@PortfolioWeights)<=0){
return("Portfolio Portfolio Weights data is missing")
}
else if(length(object@BenchmarkReturns)<=0 || length(object@BenchmarkReturns)<=0){
return("A benchmark is required")
}
return(TRUE)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.