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 } |
