Mercurial > repos > davidecangelosi > pipe_t
diff pipe-t.R @ 8:e5953805ad7a draft
planemo upload for repository https://github.com/igg-molecular-biology-lab/pipe-t.git commit 7d54176ff26ed5f4411edb0582a3704dd90253c0
| author | davidecangelosi |
|---|---|
| date | Tue, 07 May 2019 06:05:32 -0400 |
| parents | 3e099c082954 |
| children | 69f5c4d6e6bd |
line wrap: on
line diff
--- 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)