R/rm.end.NAs.R

rm.end.NAs <-
function(dat){
	start <- length(dat)
	for(i in start:1){
		if(is.na(dat[i])){
			end <- i
			}else{
				end <- i
				break
				}
		}
	return(dat[1:end])
	}

Try the cyphid package in your browser

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

cyphid documentation built on May 2, 2019, 2:41 a.m.