R/pvalue.R

pvalue <-
function(beta.fitted, fit) {
  z <- abs(beta.fitted)/sqrt(as.vector(diag(fit[[5]])))
  p <- pnorm(z, lower.tail=F)
  
  return( 2*p )
  
}

Try the saery package in your browser

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

saery documentation built on May 2, 2019, 4:17 a.m.