R/dPrgm_HW1.theta.R

Defines functions dPrgm_HW1.theta

dPrgm_HW1.theta <-
function(m,p){return(2*S1(p)*(ifelse(m==0,-S0(p),0)+
                                     ifelse(m==1,2*S0(p)-1,0)+
                                     ifelse(m==2,S0(-p),0)))
                            }

Try the SPmlficmcm package in your browser

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

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