last_non_NA: Returns the last non-NA entry

In sfeuerriegel/ResearchGroupTools: Collection of Custom Helper Functions

Description

Finds the last value in a vector which is not NA and returns it. If all entries are NA, it returns an NA

Usage

last_non_NA(d)

Arguments

d	Vector with numeric entries and possibly NA values.

Value

Last value in d with non-NA entry.

Examples

last_non_NA(c(1, 2, 3, 4, NA))

values <- 1:100
values[sample(1:100, 10)] <- NA
df <- cbind(Year = c(rep(2000, 5), rep(2001, 5)),
            as.data.frame(matrix(values, nrow = 10)))

library(dplyr)
df %>%
  group_by(Year) %>%
  summarize_each(funs(last_non_NA)) %>%
  ungroup()

sfeuerriegel/ResearchGroupTools documentation built on May 29, 2019, 8:01 p.m.