powered by
PTOnePeriodPD(portf.uncond, portf.def, conf.interval = 0.9)
PTMultiPeriodPD
portfolio <- c(10,20,30,40,10) defaults <- c(1,2,0,0,0) PTOnePeriodPD(portfolio, defaults, conf.interval = 0.5)
Run the code above in your browser using DataLab