R/xlogy.R

Defines functions xlogy

xlogy <-
function(x,y){if(length(x)==1) x<-rep(x,length(y)); z<-x*log(y); z[y==0]<-x[y==0]*(-230);z}

Try the BayesLCA package in your browser

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

BayesLCA documentation built on July 2, 2020, 12:11 a.m.