Update error with "hereim" fixed

Efrain Gonzalez
1 parent 51d31a3354
Showing 1 changed file with 3 additions and 3 deletions Show diff stats
RCleanDscret.R
@@ -324,7 +324,7 @@ write.table(t(Fullalzdwr), file = nfnaex, sep = &quot;\t&quot;)
 rawword <- t(ALZWORDF)
  
 ##where is ID_REF located
-hereim <- grep("ID_REF",rawword[,1])
+hereim <- grep("ID_REF",rownames(rawword))
  
 ##Subject Names GSM...
 subjnam <- rawword[hereim,]
@@ -438,11 +438,11 @@ for(k in 2:dim(dialzdat)[2]-1){
 Dscrtalzdw <- bind_rows(RAWWORD,dialzdat)
  
 #Produces Discrete file
-nfnaex <- strsplit(rawdat,"[\|/]") %>%
+nfnaex2 <- strsplit(alz,"[\|/]") %>%
 	.[[1]] %>%
 	.[length(.)] %>%
 	gsub("\\D","",.) %>%
 	c("GSE",.,"dscrt.txt") %>%
 	paste(collapse = "")
-write.table(Dscrtalzdw, file = nfnaex, sep = "\t",col.names = TRUE,row.names = FALSE)
+write.table(Dscrtalzdw, file = nfnaex2, sep = "\t",col.names = TRUE,row.names = FALSE)
...	...	@@ -324,7 +324,7 @@ write.table(t(Fullalzdwr), file = nfnaex, sep = "\t")
324	324	rawword <- t(ALZWORDF)
325	325
326	326	##where is ID_REF located
327		-hereim <- grep("ID_REF",rawword[,1])
	327	+hereim <- grep("ID_REF",rownames(rawword))
328	328
329	329	##Subject Names GSM...
330	330	subjnam <- rawword[hereim,]
...	...	@@ -438,11 +438,11 @@ for(k in 2:dim(dialzdat)[2]-1){
438	438	Dscrtalzdw <- bind_rows(RAWWORD,dialzdat)
439	439
440	440	#Produces Discrete file
441		-nfnaex <- strsplit(rawdat,"[\\|/]") %>%
	441	+nfnaex2 <- strsplit(alz,"[\\|/]") %>%
442	442	.[[1]] %>%
443	443	.[length(.)] %>%
444	444	gsub("\\D","",.) %>%
445	445	c("GSE",.,"dscrt.txt") %>%
446	446	paste(collapse = "")
447		-write.table(Dscrtalzdw, file = nfnaex, sep = "\t",col.names = TRUE,row.names = FALSE)
	447	+write.table(Dscrtalzdw, file = nfnaex2, sep = "\t",col.names = TRUE,row.names = FALSE)
448	448