rbbt-marq 1.0.1 → 1.0.2

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (3) hide show
  1. data/R/CustomDS.R +8 -13
  2. data/bin/marq_config +0 -1
  3. metadata +1 -1
data/R/CustomDS.R CHANGED
@@ -4,32 +4,27 @@ CustomDS.process <- function(prefix, cross_platform, conditions, description, tw
4
4
  # Read data
5
5
  genes = scan(file=paste(prefix,'codes',sep = "/"), what=character(),sep="\n",quiet=T);
6
6
  m = matrix(scan(file=paste(prefix,'values',sep = "/"), sep="\t",quiet=T),length(genes),byrow=T);
7
- str(m);
8
- str(genes);
9
- rownames(m) <- genes
7
+ rownames(m) <- genes;
10
8
 
11
9
 
12
10
  # Read conditions
13
11
  conditions.list = vector();
14
12
  names = vector();
15
- str(conditions)
16
- for (file in conditions){
17
- str(paste(prefix,file,sep="/"));
18
- values = scan(paste(prefix,file,sep="/"),what=character(), sep = "\n")
19
- names = c(names, file)
20
- str(values)
21
- conditions.list = cbind(conditions.list, values)
13
+ for (file in conditions) {
14
+ filename = paste(prefix,file,sep="/");
15
+ values = scan(file=filename, what=character(), sep = "\n");
16
+ names = c(names, file);
17
+ conditions.list = cbind(conditions.list, values);
22
18
  }
23
19
 
24
20
  colnames(conditions.list) <- names;
25
- str(conditions.list)
26
21
 
27
22
 
28
23
 
29
24
 
30
25
  # Do log2 if needed
31
26
  if (is.null(do.log2)){
32
- do.log2 = MA.guess.do.log2(m, two.channel)
27
+ do.log2 = MA.guess.do.log2(m, two.channel);
33
28
  }
34
29
  if (do.log2){
35
30
  m <- log2(m);
@@ -46,7 +41,7 @@ CustomDS.process <- function(prefix, cross_platform, conditions, description, tw
46
41
 
47
42
  # Once the data is read, change the prefix for cross_platform ids
48
43
  if (cross_platform){
49
- prefix = paste(prefix,'cross_platform', sep="_")
44
+ prefix = paste(prefix,'cross_platform', sep="_");
50
45
  }
51
46
 
52
47
  values <- MA.process(m, conditions.list, two.channel);
data/bin/marq_config CHANGED
@@ -187,7 +187,6 @@ class View < SimpleConsole::View
187
187
  end
188
188
 
189
189
  def update
190
- install
191
190
 
192
191
  require 'rake'
193
192
  @actions = [@actions] if @actions === String
metadata CHANGED
@@ -1,7 +1,7 @@
1
1
  --- !ruby/object:Gem::Specification
2
2
  name: rbbt-marq
3
3
  version: !ruby/object:Gem::Version
4
- version: 1.0.1
4
+ version: 1.0.2
5
5
  platform: ruby
6
6
  authors:
7
7
  - Miguel Vazquez