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, ...) {
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.