R/normGaussHermite.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 randomLCA package in your browser

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

randomLCA documentation built on July 9, 2023, 6:09 p.m.