# NOT RUN {
# Did not run this to save time
# data("ANES2016")
# PAsso_3v <- PAsso(responses = c("PreVote.num", "PID", "selfLR"),
# adjustments = c("income.num", "age", "edu.year"),
# data = ANES2016)
# plot3D(PAsso_3v, y1="PID", y2="selfLR")
# }
Run the code above in your browser using DataLab