R/patch.R

In vdweijer/supply: All Kinds of Everything

Defines functions patch

Documented in patch

patch=function(inputvector){sapply(1:length(inputvector),function(i){ifelse(!is.na(inputvector[i]),inputvector[i],
   inputvector[max(which(!is.na(inputvector))[which(!is.na(inputvector))<i])])})}