[R] contrast {Design} question

[Greg Tarpinian]

All,

I have been trying to get the following code to work:

A.quantiles <- quantile(foo.frame$A, 
probs = seq(from = 0.05, to = 0.95, by = 0.05))
base.quantiles <- quantile(Efficacy205$BASELINE_RANK,
probs = seq(from = 0.05, to = 0.95, by = 0.05))
gender <- levels(Efficacy205$GENDER)
contrast.1 
 <- contrast(Model.1, 
             list(TPCODE= 'A', 
                  AGE = age.quantiles, 
		  BASELINE_RANK = base.quantiles,
                  GENDER = gender),
	     list(TPCODE = 'D', 
                  AGE = age.quantiles, 
		  BASELINE_RANK = base.quantiles,
                  GENDER = gender),
	     type = 'average', 
             weights = table(gender))