deprfunc <- function(x) {

  Depr <- ((sum(diff(c(0, pmin((x), (c(asDepreciation$ToYr))))) * (c(asDepreciation$Value)))) / 100)
  return(Depr)
}