卡在2 ^ 3析因设计中

Question

我正在尝试基于此问题创建2 ^ 3析因设计。
问题：

a2<-rep(c(-1,1),8)
b2<-rep(c(-1,-1,1,1),4)
c2<-rep(c(rep(-1,4),rep(1,4)),2)
rep<-c(50,44,46,42,49,48,47,56,54,42,48,43,46,45,48,54)

aov2<-aov(rep~factor(a2)*factor(b2)*factor(c2))
summary(aov2)

这是我的代码，但是求和的平方与答案键上的平方不同，所以我不确定我做错了什么。