R/omaver.R

omaver<-function(a,b){
#(a<b), NA=infty
tulos<-F
if (is.na(a)) tulos<-F 
else{ if (is.na(b)) tulos<-T
      else{ if (a<b) tulos<-T}
}
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.