/usr/share/openms-common/OpenMS/SCRIPTS/ProduceQCFigures_setid.R is in openms-common 1.11.1-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | ## This is an R script to produce the figures that are attached to the qcML format
#options
options(digits=10)
file<-commandArgs(TRUE)[1]
post<-commandArgs(TRUE)[2]
######
###setid
######
a<-read.table(file=file, header=TRUE, sep="\t", na.strings="NA", dec=".", strip.white=TRUE)
######################################
png(post)
bxpo=list()
bxpo$names=a[,1]
a <- as.matrix(a[,-1])
a <- t(a[,c("min","Q1","Q2","Q3","max")])
bxpo$stats = a
bxp(bxpo)
######################################
dev.off()
#
#
#
#
#
|