Seria isso?

str(exp)
contrasts(exp$trat)

mat.c <- matrix(c(-1,0,1,2,-1,-1), nc=2)
contrasts(exp$trat) <- mat.c

m0 <- aov(y~trat, data=exp)

summary(m0, split=list("trat"=list("C.orto.1"=1, "C.orto.2"=2)))

​À disposição.

Walmes.​