R/monot.R

monot <-
function(aa){ while(sum(diff(c(-Inf,aa))<0)>0) aa[diff(c(-Inf,aa))<0]<-aa[which(diff(c(0,aa))<0)-1];return(aa)}

Try the TransModel package in your browser

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

TransModel documentation built on May 2, 2019, 6:13 a.m.