Exercises

For the dataset we have been working with, models do not help due to the almost perfect confounding. This is one reason we created the subset dataset:

library(GSE5859Subset)
data(GSE5859Subset)

Here we purposely confounded month and group (sex), but not completely:

sex = sampleInfo$group
month = factor( format(sampleInfo$date,"%m"))
table( sampleInfo$group, month)
  1. Using the functions rowttests and qvalue compare the two groups. Because this is a smaller dataset which decreases our power, we will use the more lenient FDR cut-off of 10%.

    How many gene have q-values less than 0.1?

  2. Note that sampleInfo$group here presents males and females. Thus, we expect differences to be in on chrY and, for genes that escape inactivation, chrX. We do not expect many autosomal genes to be different between males and females. This gives us an opportunity to evaluate false and true positives with experimental data. For example, we evaluate results using the proportion genes of the list that are on chrX or chrY.

    For the list calculated above, what proportion of this list is on chrX or chrY?

  3. We can also check how many of the chromosomes X and Y genes we detected as different. How many are on Y?

  4. Now for the autosomal genes (not on chrX and chrY) for which q-value < 0.1, perform a t-test comparing samples processed in June to those processed in October.

    What proportion of these have p-values <0.05 ?

  5. The above result shows that the great majority of the autosomal genes show differences due to processing data. This provides further evidence that confounding is resulting in false positives. So we are going to try to model the month effect to better estimate the sex effect. We are going to use a linear model:

    Which of the following creates the appropriate design matrix?

    • A) X = model.matrix(~sex+ethnicity)
    • B) X = cbind(sex,as.numeric(month))
    • C) It can’t be done with one line.
    • D) X = model.matrix(~sex+month)
  6. Now use the X defined above, to fit a regression model using lm for each gene. You can obtain p-values for estimated parameters using summary. Here is an example

     X = model.matrix(~sex+month)
     i = 234
     y = geneExpression[i,]
     fit = lm(y~X)
     summary(fit)$coef
    

    How many of the q-values for the group comparison are now <0.1?

    Note the big drop from what we obtained without the correction.

  7. With this new list, what proportion of these are chrX and chrY?

    Notice the big improvement.

  8. How many on Y or X?

  9. Now from the linear model above, extract the p-values related to the coefficient representing the October versus June differences using the same linear model.

    How many of the q-values for the month comparison are now <0.1?

    This approach is basically the approach implemented by Combat.