sir how can i adjust this. i have tried alot to resolve this issue but cann't find the solution. i am using following commands
groups = pData(phenoData(gse28403dat[[1]]))$characteristics_ch1
groups=as.character(groups)
groups[groups=="disease state: Castration-resistant prostate cancer"]="castration"
groups[groups=="disease state: Advanced prostate cancer"]="PC"
f = factor(groups, levels=c("castration","PC"))
design_gse28403 = model.matrix(~0+f)
colnames(design_gse28403) = levels(f)
cont.matrix = makeContrasts(PC-castration, levels=design_gse28403)