Mercurial > repos > proteomisc > preprocess_dataset
changeset 45:a738f5824d0b draft
Uploaded
| author | proteomisc |
|---|---|
| date | Sat, 16 Dec 2023 15:58:09 +0000 |
| parents | 10e058addc0c |
| children | 31f89047724f |
| files | preprocess_datasets/GenePix_One_Color_Preprocessing_Functions.R |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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