R/ordinalize.R

Defines functions ordinalize

Documented in ordinalize

ordinalize <-
function(pvec, z) {

validate.plist(list(pvec),1)
Xord = numeric(length(z))
for (r in 1:length(pvec) ){
if (r !=length(pvec) ) {
t1 = qnorm(pvec[r])
t2 = qnorm(pvec[r+1] )
Xord[(t1<z)&(z<=t2)]= r
} else  {
Xord[z>qnorm(pvec[r])]= r
}
}
return(Xord+1)
}

Try the OrdNor package in your browser

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

OrdNor documentation built on March 6, 2021, 1:08 a.m.