###########################################################
Task2<-TaskDistract
levels(Task2$Group)<-c("Non","Delayed","Active")
levels(Task2$Task)<-c("Pattern","Cognitive","Driving")

m0<-lm(Errors~Group*Task*Distract,data=Task2)
summary(m0)

newd1<-data.frame(Group=rep("Active",100),
Task=rep("Driving",100),
Distract=seq(101,200,by=1))

newd2<-data.frame(Group=rep("Delayed",100),
Task=rep("Driving",100),
Distract=seq(101,200,by=1))

newd<-rbind.data.frame(newd1,newd2)

preds<-predict(m0,newdata=newd)

pred1<-preds[1:100]
pred2<-preds[101:200]

Dis<-seq(101,200,by=1)
plot(Dis,pred1,col="black",type="l",ylim=range(0,40))
lines(Dis,pred2,col="red")