R/mmf.get.selffunding.R

In antoanne/ifmFramework: Financial evaluation of Projects

#' Get a list with all Selffunding points from CFS
#' @name mmf.get.selffunding
#' @param mmf.cfs A list with a vector with a series of cash flows for each MMF
#' sechedule.
#' @return A list with all Selffunding points for each MMF
#' @export
#' @keywords minimum marketable features, scheduling, selffunding
#' @family scheduling
#' @examples
#'
#' data("ex.sheet.data")
#' ex.sheet.data.interest.rate <- ex.sheet.data[[1]]
#' ex.sheet.data.activities <- ex.sheet.data[[2]]
#' ex.sheet.data.durations <- ex.sheet.data[[3]]
#' ex.sheet.data.predecessors <- ex.sheet.data[[4]]
#' ex.sheet.data.cfs <- ex.sheet.data[[5]]
#'
#' ex.mmf.seq <- mmf.all.sequences(ex.sheet.data.predecessors)
#'
#' ex.mmf <- mmf.npv(ex.sheet.data.cfs,
#'                   ex.sheet.data.durations,
#'                   ex.mmf.seq,
#'                   ex.sheet.data.interest.rate)
#'
#' ex.mmf.npv.selffunding <- mmf.get.selffunding(ex.mmf[['cfs.discounted']])
#'
mmf.get.selffunding <- function(mmf.cfs) {
  all.selffunding <- list()
  for (count in 1:length(mmf.cfs)) {
    all.selffunding[[count]] <- which.min(mmf.cfs[[count]])
  }
  return(all.selffunding)
}