Post3_B.r

#B2=1
-2.82119+(-0.57949*0)+(-0.45892*1)+(-0.38833*0) #-3.28011

#B3=1
-2.82119+(-0.57949*0)+(-0.45892*0)+(-0.38833*1) #-3.20952

#Difference is -3.28011-(-3.20952)= -0.07059


#This difference has the following variance:
(t(cVec)%*%vcov(mod_glm)%*%cVec)
#0.007434746

#95% CI
-0.07059-1.96*sqrt(0.007434746)#-0.2395909
-0.07059+1.96*sqrt(0.007434746)#0.09841095