Mercurial > repos > proteomisc > preprocess_dataset
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 } |