R/defaultTimeseries.R

Defines functions defaultTimeseries

Documented in defaultTimeseries

defaultTimeseries <-
function(N,AC,Years,PD){
  Psi=rnorm(Years)
  PDcond1=pnorm((qnorm(PD)-sqrt(AC)*Psi)/sqrt(1-AC))
  size_p=rep(N,Years)
  D1=rbinom(Years,size_p,PDcond1)
  return(D1)
}

Try the AssetCorr package in your browser

Any scripts or data that you put into this service are public.

AssetCorr documentation built on May 5, 2021, 5:07 p.m.