R/pool_stats.R

In rds64/mortgage: Mortgage Analytics in R

weighted_avg <- function(weight, value) {
    weighted.mean(value, weight)
}

WAC <- function(balances = balance, rates = rate) {
    weighted_avg(balances, rates)
}

WAM <- function(balances, term) {
    weighted_avg(balances, term)
}

WALA <- function(balances, age) {
    weighted_avg(balances, age)
}

WAL <- function(balance, ...) {
    
}