# HG changeset patch
# User proteomisc
# Date 1702742289 0
# Node ID a738f5824d0be4c6c937ef76765f4c3851e7a511
# Parent  10e058addc0c27a8f9c753b9500e87d7139d0cd0
Uploaded

diff -r 10e058addc0c -r a738f5824d0b preprocess_datasets/GenePix_One_Color_Preprocessing_Functions.R
--- a/preprocess_datasets/GenePix_One_Color_Preprocessing_Functions.R	Sat Dec 16 15:56:31 2023 +0000
+++ b/preprocess_datasets/GenePix_One_Color_Preprocessing_Functions.R	Sat Dec 16 15:58:09 2023 +0000
@@ -7,11 +7,11 @@
   data_mt<-NaRV.omit(as.data.frame(MAb$E))
   MAb$E=(data_mt)
   MAb$genes=(MAb$genes[(MAb$genes$ID %in% rownames(MAb$E)),])
-  MA.avg <-suppressWarnings(suppressMessages(avereps(MAb, ID=MAb$genes$ID)))
+  MAb$E=MAb$E[rownames(MAb$E) %in% MAb$genes$ID,]
+  MA.avg <-suppressWarnings(suppressMessages(avereps(MAb, ID=rownames(MAb$E))))
   data_matrix=NaRV.omit(MA.avg$E)
   colnames(data_matrix)<-designo$sample
   write.table(format(data_matrix, justify="right"),sep="\t", quote=FALSE,
             row.names=T, col.names=T,file="Matrix.Data.tsv")
   return(list(dataNBA=MA.avg,dataBG=MA,matrix_data=as.matrix(MA.avg$E),symbol=MA.avg$genes$Name))
-}
-
+}
\ No newline at end of file