R/corr.nn4pn.R

In PoisBinOrdNor: Data Generation with Poisson, Binary, Ordinal and Normal Components

Defines functions corr.nn4pn

Documented in corr.nn4pn

corr.nn4pn<-function(lam, PN.cor){
x=rnorm(100000,0,1)
y=rnorm(100000,0,1)
xpois=qpois(pnorm(x),lam)
c=cor(xpois[order(xpois)],y[order(y)])/cor(x[order(x)],y[order(y)]) 
corrected=PN.cor/c 
return(corrected)
}

Try the PoisBinOrdNor package in your browser