R/pgrad.R

In ORIONZ.G: EAP Scoring in Exploratory FA Solutions with Correlated Residuals

Defines functions pgrad

Documented in pgrad

pgrad <- function(x, t, sigj){

  tmp <- (t-x) / sigj
  n <- exp(1.702 * tmp)
  d <- n / (1+n)

  return(d)

}

Try the ORIONZ.G package in your browser