Example 2: 2004 pid, libcon, watchtv, spatial distances; make tables

year 2004

VARS
  VCF0301
  VCF0704
  VCF0704A
  VCF0724
  VCF0803
  VCF9088
  VCF9096
;

# get rid of unwanted value in party ID
pid <- VCF0301;
pid <- ifelse(pid == 9, NA, pid);

# get rid of unwanted value in libcon self-placement
libcon <- VCF0803;
libcon <- ifelse(libcon == 9, NA, libcon);

# presvote3 is three major party candidates only
presvote3 <- VCF0704;

# presvote is Dem and Rep candidates only
presvote <- VCF0704A - 1;

# watchtv is how much watched campaign on TV
watchtv <- VCF0724;

# compute spatial model measure of difference between Dem and Rep candidates
demlibcon <- VCF9088;
replibcon <- VCF9096;
demdist <- abs(libcon-demlibcon);
repdist <- abs(libcon-replibcon);
distdiff <- demdist-repdist;

# crosstab of three-party vote given pid
xtable presvote3 pid

# crosstab of two-party vote given pid
xtable presvote pid

# crosstab of two-party vote given libcon
xtable presvote libcon

# crosstab of two-party vote given distdiff
xtable presvote distdiff