R/selectexpressionsample.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.

selectexpressionsample <- function(gene_id,expressionLUAD){
  index <- substr(colnames(expressionLUAD), 14, 16)
  expressionLUAD1 <- expressionLUAD[, index == "01A"]
  expressionLUAD2 <- expressionLUAD[, index == "11A"]
  expressionLUAD <- cbind(expressionLUAD1, expressionLUAD2)
  expressionLUAD <- cbind(gene_id, expressionLUAD)
  return(expressionLUAD)
}