celeb <- read.csv( "http://www.stat.ufl.edu/~winner/data/celebrityendorse_attention.csv") attach(celeb); names(celeb) X1 <- ifelse(shoe==1, 1, -1) X2 <- ifelse(celebrity==1, 1, -1) options(contrasts=c("contr.sum", "contr.poly"))