R/omamindelt.R

omamindelt<-function(a,b){
#min(a,b), NA=infty, 
tulos<-F
if (is.na(a)) tulos<-b 
else{ if (is.na(b)) tulos<-a
      else{ if (a<=b) tulos<-a else tulos<-b}
}
return(tulos)
}

Try the delt package in your browser

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

delt documentation built on May 2, 2019, 3:42 p.m.