Updated to output 4 files:

aftexcel,avg,zscore,dscrt

Updated to output 4 files:
aftexcel,avg,zscore,dscrt
Efrain Gonzalez
1 parent da758df454
Showing 1 changed file with 1 additions and 1 deletions Show diff stats
RCleanDscret.R
@@ -438,7 +438,7 @@ for(j in 1:length(tabRDATID)){
 	       	zscraw <- cbind(rownames(zscraw),zscraw)
             colnames(zscraw) <- c("Gene Symbol",subjnam)
         	rownames(zscraw) <- NULL
-            write.table(zscraw, file = nfnewout, sep = "\t",col.names = TRUE,row.names = FALSE)
+            write.table(zscraw, file = nfnzsc, sep = "\t",col.names = TRUE,row.names = FALSE)
  
  
 ##Discretized the Data
...	...	@@ -438,7 +438,7 @@ for(j in 1:length(tabRDATID)){
438	438	zscraw <- cbind(rownames(zscraw),zscraw)
439	439	colnames(zscraw) <- c("Gene Symbol",subjnam)
440	440	rownames(zscraw) <- NULL
441		- write.table(zscraw, file = nfnewout, sep = "\t",col.names = TRUE,row.names = FALSE)
	441	+ write.table(zscraw, file = nfnzsc, sep = "\t",col.names = TRUE,row.names = FALSE)
442	442
443	443
444	444	##Discretized the Data