R/selectmethysample.R

In LULIU1816/TwoSLSanalysis: TwoSLSanylsis is an two-stage least squares procedure for TCGA analysis. TwoSLSanylsis can provide the estimate of causal effect with the survival data download from TCGA.

selectmethysample <- function(methylationLUAD){
  index <- substr(colnames(methylationLUAD), 14, 16)
  methylationLUAD1 <- methylationLUAD[, index == "01A"]
  methylationLUAD2 <- methylationLUAD[, index == "11A"]
  methylationLUAD <- cbind(methylationLUAD1, methylationLUAD2)
  return(methylationLUAD)
}