Mercurial > repos > artbio > gsc_center_scale
annotate center_scale.R @ 2:163befe5f05b draft
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
author | artbio |
---|---|
date | Sun, 15 Oct 2023 16:16:16 +0000 |
parents | a96cc346819c |
children | b7daf62bde65 |
rev | line source |
---|---|
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
1 options(show.error.messages = FALSE, |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
2 error = function() { |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
3 cat(geterrmessage(), file = stderr()) |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
4 q("no", 1, FALSE) |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
5 } |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
6 ) |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
7 loc <- Sys.setlocale("LC_MESSAGES", "en_US.UTF-8") |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
8 warnings() |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
9 library(optparse) |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
10 |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
11 # Arguments |
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
12 option_list <- list( |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
13 make_option( |
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
14 "--data", |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
15 default = NA, |
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
16 type = "character", |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
17 help = "Input file that contains values to transform. Must be tabular separated, |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
18 with columns and row names, variables in rows, observations in columns [default : '%default' ]" |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
19 ), |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
20 make_option( |
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
21 "--center", |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
22 default = TRUE, |
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
23 type = "logical", |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
24 help = "center data to the mean [default : '%default' ]" |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
25 ), |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
26 make_option( |
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
27 "--scale", |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
28 default = TRUE, |
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
29 type = "logical", |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
30 help = "scale data to standard deviation [default : '%default' ]" |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
31 ), |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
32 make_option( |
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
33 "--factor", |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
34 default = "", |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
35 type = "character", |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
36 help = "A two-column observations|factor_levels table, to group observations to be transformed by levels [default : '%default' ]" |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
37 ), |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
38 make_option( |
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
39 "--output", |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
40 default = "res.tab", |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
41 type = "character", |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
42 help = "Table of transformed values [default : '%default' ]" |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
43 ) |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
44 ) |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
45 |
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
46 transform <- function(df, center = TRUE, scale = TRUE) { |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
47 transfo <- scale(t(df), |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
48 center = center, |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
49 scale = scale |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
50 ) |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
51 return(as.data.frame(t(transfo))) |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
52 } |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
53 |
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
54 opt <- parse_args(OptionParser(option_list = option_list), |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
55 args = commandArgs(trailingOnly = TRUE)) |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
56 |
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
57 data <- read.delim( |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
58 opt$data, |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
59 check.names = FALSE, |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
60 header = TRUE, |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
61 row.names = 1, |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
62 sep = "\t" |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
63 ) |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
64 |
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
65 if (opt$factor != "") { |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
66 data_factor <- read.delim( |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
67 opt$factor, |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
68 check.names = FALSE, |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
69 header = TRUE, |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
70 sep = "\t", |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
71 stringsAsFactors = TRUE |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
72 ) |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
73 colnames(data_factor) <- c("cellid", "level") |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
74 data_transformed <- data.frame(row.names = rownames(data)) |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
75 for (group in levels(data_factor$level)) { |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
76 subcells <- as.data.frame(subset(data_factor, level == group, select = cellid)) |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
77 subdata <- as.data.frame(subset(data, select = as.vector(subcells$cellid))) |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
78 subdata_transformed <- transform(subdata, center = as.logical(opt$center), |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
79 scale = as.logical(opt$scale)) |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
80 data_transformed <- cbind(data_transformed, subdata_transformed) |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
81 } |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
82 } else { |
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
83 data_transformed <- transform(data, center = as.logical(opt$center), |
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
84 scale = as.logical(opt$scale)) |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
85 } |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
86 |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
87 |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
88 write.table( |
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
89 cbind(gene = rownames(data_transformed), data_transformed), |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
90 opt$output, |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
91 col.names = TRUE, |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
92 row.names = FALSE, |
2
163befe5f05b
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/main/tools/gsc_center_scale commit 41ba5435a8ad12c1fe0703a9ce44b759003f3f73
artbio
parents:
1
diff
changeset
|
93 quote = FALSE, |
0
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
94 sep = "\t" |
bcbd7179d8ec
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_center_scale commit b839b440f0760ff9cd75969d418432702947a669
artbio
parents:
diff
changeset
|
95 ) |