comparison preprocess_datasets/Affymetrix_Preprocessing.R @ 31:7091181c9a9b draft

Uploaded
author proteomisc
date Mon, 11 Dec 2023 11:57:53 +0000
parents 9d2343a87802
children 225eddf25d7f
comparison
equal deleted inserted replaced
30:9d2343a87802 31:7091181c9a9b
80 plotDensities(exprs(Prepro_object$data.norm),log=T) 80 plotDensities(exprs(Prepro_object$data.norm),log=T)
81 invisible(dev.off()) 81 invisible(dev.off())
82 82
83 AffymetrixRmd=file_path("Affymetrix.Rmd") 83 AffymetrixRmd=file_path("Affymetrix.Rmd")
84 Style=file_path("look.css") 84 Style=file_path("look.css")
85 suppressWarnings(suppressMessages(knit(AffymetrixRmd,output="PreprocessingPlots.html",quiet = T)))
86 suppressWarnings(suppressMessages(knit2html(AffymetrixRmd,output="PreprocessingPlots.html",quiet = T))) 85 suppressWarnings(suppressMessages(knit2html(AffymetrixRmd,output="PreprocessingPlots.html",quiet = T)))
87 #suppressWarnings(suppressMessages(markdownToHTML(AffymetrixRmd,output="PreprocessingPlots.html", stylesheet=Style))) 86 #suppressWarnings(suppressMessages(markdownToHTML(AffymetrixRmd,output="PreprocessingPlots.html", stylesheet=Style)))
88 #suppressWarnings(suppressMessages(knit2html(AffymetrixRmd,output="PreprocessingPlots.html",quiet = T))) 87 #suppressWarnings(suppressMessages(knit2html(AffymetrixRmd,output="PreprocessingPlots.html",quiet = T)))
89 rm(listArguments) 88 rm(listArguments)
90 save.image("MicroArray.Preprocessing.RData") 89 save.image("MicroArray.Preprocessing.RData")