Mercurial > repos > pieterlukasse > prims_metabolomics

comparison xcms_get_alignment_eic.r @ 60:35f506f30ae4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed small rule in pdfread, and other small enhancements
author pieter.lukasse@wur.nl
date Fri, 19 Dec 2014 11:30:22 +0100
parents f772a5caa86a
children
comparison
equal deleted inserted replaced
59:458e05d1d172 60:35f506f30ae4
122 122
123 figureName <- paste(args.htmlReportFile.files_path, "/figure", i,".png", sep="") 123 figureName <- paste(args.htmlReportFile.files_path, "/figure", i,".png", sep="")
124 write(paste("<img src='", "figure", i,".png' />", sep="") , 124 write(paste("<img src='", "figure", i,".png' />", sep="") ,
125 file=args.htmlReportFile, append=TRUE) 125 file=args.htmlReportFile, append=TRUE)
126 126
127 png( figureName, type="cairo" ) 127 png( figureName, type="cairo", width=800 )
128 plot(eiccor, xsetData, groupidx = i) 128 plot(eiccor, xsetData, groupidx = i)
129 devname = dev.off() 129 devname = dev.off()
130 130
131 write(paste("<p>Alignment id: [", groupidx1[i], "]. m/z list of peaks in alignment with signal/noise <> NA:<br/>", groupMzList,"</p>", sep="") , 131 write(paste("<p>Alignment id: [", groupidx1[i], "]. m/z list of peaks in alignment with signal/noise <> NA:<br/>", groupMzList,"</p>", sep="") ,
132 file=args.htmlReportFile, append=TRUE) 132 file=args.htmlReportFile, append=TRUE)