R/chipdf.R

Defines functions chipdf

Documented in chipdf

chipdf = function(X, k){
    
    p = (1/((2^(k/2))*(gamma(k/2)))) * ((X)^((k/2)-1)) * (exp(-(X)/2))
    
    if(any(X < 0)){p[X<0] = 0}
    
    return(p)
    
}

Try the astro package in your browser

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

astro documentation built on May 2, 2019, 2:14 a.m.