R/norm.gauss.hermite.R

Defines functions `norm.gauss.hermite`

`norm.gauss.hermite` <-
  function(n){
    rule <- gaussHermiteData(n)
    r <- cbind(rule$x,rule$w)  
    r[,1] <- r[,1]*sqrt(2)
    r[,2] <- r[,2]/sqrt(pi)
    #	r[,2] <- r[,2]/sum(r[,2])
    return(r)
  }

Try the robmixglm package in your browser

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

robmixglm documentation built on May 9, 2022, 9:08 a.m.