Raw Message

Message-ID: <20050805165248.81133.qmail@web32814.mail.mud.yahoo.com>
Date: 2005-08-05T16:52:48Z
From: Greg Tarpinian
Subject: contrast {Design} question

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))