inst/examples/R/data/missing/imputation/example_missing.sync-conflict-20171222-083241-6BV6KDM.R

library("foreign")
x <- read.spss("ALLBUS2012.SAV", to.data.frame=T)
trust <- as.data.frame(x[,52:63])
# count number of missing values
r <- is.na(trust)
# no. per column
apply(r, 2, sum)
# no. per row
apply(r, 1, sum)
# number of complete cases
cc <- complete.cases(trust)
sum(cc)
# filter functions
head(na.omit(trust))
na.fail(trust)
sigbertklinke/shinyExample documentation built on May 26, 2019, 4:32 a.m.