tmpar <- par(mar=c(4,4,.5,.5))

effect.plot(oocyte.fit)

par(tmpar)