# HG changeset patch # User davidecangelosi # Date 1557223532 14400 # Node ID e5953805ad7a0b3a9ad38d9254160bc9891e6e20 # Parent 3e099c082954fb9e935f35850aa36c376869f95e planemo upload for repository https://github.com/igg-molecular-biology-lab/pipe-t.git commit 7d54176ff26ed5f4411edb0582a3704dd90253c0 diff -r 3e099c082954 -r e5953805ad7a pipe-t.R --- a/pipe-t.R Tue May 07 06:03:18 2019 -0400 +++ b/pipe-t.R Tue May 07 06:05:32 2019 -0400 @@ -400,8 +400,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(flag = "Omit",feature = "Detector", type = "Task", position = "Wells", Ct = "Avg.Ct") + columns<- list(feature=3, Ct=6, flag=11) + #columns <-list(flag = "Omit",feature = "Detector", type = "Task", position = "Wells", Ct = "Avg.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)