R/locf.R

In metrumrg: Pharmacometric Tools for Data Preparation, Modeling, Simulation, and Reporting

`locf` <-
function(x){
	good <- !is.na(x)
	positions <- seq(length(x))
	good.positions <- good * positions
	last.good.position <- cummax(good.positions)
	last.good.position[last.good.position==0] <- NA
	x[last.good.position]
}
`forbak` <-
function(x)nocb(locf(x))
`bakfor` <-
function(x)locf(nocb(x))
`nocb` <-
function(x)rev(locf(rev(x)))