library("foreign")
x <- read.spss("ALLBUS2012.SAV", use.value.labels=FALSE, 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))
try(na.fail(trust))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.