# HG changeset patch # User davidecangelosi # Date 1557138813 14400 # Node ID 29a8df9f543d92fe395bbed390d5f7d5cbc28eb3 # Parent e248cd7769e8212537ae58db6cf5df6d8290ac56 planemo upload for repository https://github.com/igg-molecular-biology-lab/pipe-t.git commit a52ad1b746d5e5042b2114f5a9228d157b0e4787 diff -r e248cd7769e8 -r 29a8df9f543d pipe-t.R --- a/pipe-t.R Mon May 06 06:31:30 2019 -0400 +++ b/pipe-t.R Mon May 06 06:33:33 2019 -0400 @@ -393,7 +393,8 @@ raw<- readCtDataDav(files = as.vector(files$sampleName), header=FALSE, format="plain", path = path, sample.info=phenoData,n.features = as.numeric(nfeatures)) }, "SDS"={ - columns<- list(feature=3, Ct=6, flag=11) + #columns<- list(feature=3, Ct=6, flag=11) + columns <-SDS = list(flag = "Omit",feature = "Detector", type = "Task", position = "Wells", Ct = "Ct") metadata <- data.frame(labelDescription = c("sampleName", "Treatment"), row.names = c("sampleName", "Treatment")) phenoData <- new("AnnotatedDataFrame", data = files, varMetadata = metadata) rownames(phenoData)=as.vector(files$sampleName)