inflation(p, is.p, na.rm = FALSE)
p
NA
meta
set.seed(0) p <- runif(10) inflation(p, TRUE)
Run the code above in your browser using DataCamp Workspace