comparison preprocess_datasets/Affymetrix_Preprocessing.R @ 16:a73997df371a draft

Uploaded
author proteomisc
date Sun, 03 Dec 2023 16:14:33 +0000
parents ebf6607b4e6a
children 44b7cdfe58ae
comparison
equal deleted inserted replaced
15:4b3faf457c37 16:a73997df371a
5 suppressWarnings(suppressMessages(library(batch))) 5 suppressWarnings(suppressMessages(library(batch)))
6 suppressWarnings(suppressMessages(library(annotate))) 6 suppressWarnings(suppressMessages(library(annotate)))
7 suppressWarnings(suppressMessages(library(limma))) 7 suppressWarnings(suppressMessages(library(limma)))
8 suppressWarnings(suppressMessages(library(markdown))) 8 suppressWarnings(suppressMessages(library(markdown)))
9 suppressWarnings(suppressMessages(library(knitr))) 9 suppressWarnings(suppressMessages(library(knitr)))
10 suppressWarnings(suppressMessages(library(BiocInstaller)))
11 source_local <- function(fname){ 10 source_local <- function(fname){
12 argv <- commandArgs(trailingOnly = FALSE) 11 argv <- commandArgs(trailingOnly = FALSE)
13 base_dir <- dirname(substring(argv[grep("--file=", argv)], 8)) 12 base_dir <- dirname(substring(argv[grep("--file=", argv)], 8))
14 source(paste(base_dir, fname, sep="/")) 13 source(paste(base_dir, fname, sep="/"))
15 } 14 }