My code...
library(expss) library(haven) X4707 <- read_sav("/home/cfmc/4707/data/4707.sav") X4707 %>% tab_cells("By phone"=qpd4_1==