This function rename the columns of the merged inputs
rename_col(diffexp, genecol)data.tabledata.frame with new colnames
data(diffexplist)
lapply(diffexplist, colnames)
#> $GSE12050
#> [1] "Symbol" "Log2FC" "pvalue" "CI.L" "CI.R"
#>
#> $GSE24883
#> [1] "Symbol" "Log2FC" "pvalue" "CI.L" "CI.R"
#>
#> $GSE25401
#> [1] "Symbol" "Log2FC" "pvalue" "CI.L" "CI.R"
#>
#> $GSE27949
#> [1] "Symbol" "Log2FC" "pvalue" "CI.L" "CI.R"
#>
#> $GSE29718
#> [1] "Symbol" "Log2FC" "pvalue" "CI.L" "CI.R"
#>
diffexp <- rename_col(diffexplist, "Symbol")
lapply(diffexp, colnames)
#> $GSE12050
#> [1] "Symbol" "Log2FC_1" "pvalue_1" "CI.L_1" "CI.R_1"
#>
#> $GSE24883
#> [1] "Symbol" "Log2FC_2" "pvalue_2" "CI.L_2" "CI.R_2"
#>
#> $GSE25401
#> [1] "Symbol" "Log2FC_3" "pvalue_3" "CI.L_3" "CI.R_3"
#>
#> $GSE27949
#> [1] "Symbol" "Log2FC_4" "pvalue_4" "CI.L_4" "CI.R_4"
#>
#> $GSE29718
#> [1] "Symbol" "Log2FC_5" "pvalue_5" "CI.L_5" "CI.R_5"
#>