powered by
Computes bank defaults via the default cascade algorithm.
default_cascade(L, ea, el = 0, recoveryrate = 0)
liability matrix
vector of external assets
vector of external liabilites (default 0)
recovery rate in [0,1] (defaults to 0)
vector indicating which banks default (1=default, 0= no default)
# NOT RUN { ea <- c(1/2,5/8,3/4) el <- c(3/2,1/2,1/2) x <- 0.5 L <- matrix(c(0,x,1-x,1-x,0,x,x,1-x,0),nrow=3) default_cascade(L,ea,el) # }
Run the code above in your browser using DataLab