I have a set of seven files from runs on 48 low-throughput qpcr system. So, our runs have 48 max samples. In fact, we have 30 reactions per run. Our file is like this:
File1.csv
1 10-A1-C C9 1 IDH Endogenous Control 12.6929092407226
2 10-A1-C C10 1 IDH Endogenous Control 12.4841232299805
3 10-A1-S C11 2 IDH Endogenous Control 18.4506340026855
...
30 9-A1-S F2 15 IDH Endogenous Control 17.3977642059326
File2.csv
1 10-A1-C A1 1 UBQ Endogenous Control 11.66
2 10-A1-C A2 1 UBQ Endogenous Control 11.7372970581054
3 10-A1-S A3 2 UBQ Endogenous Control 16.82
...
30 9-A1-S C6 15 UBQ Endogenous Control 17.3474025726318
File3.csv
1 10-A1-C C9 1 CDPK26 Target 16.9320430755615
2 10-A1-C C10 1 CDPK26 Target 17.0587520599365
3 10-A1-S C11 2 CDPK26 Target 16.5248744964599
...
30 9-A1-S F2 15 CDPK26 Target 16.9789012908935
...
File7.csv
1 10-A1-C C9 1 MYB Target 12.5751647949219
2 10-A1-C C10 1 MYB Target 12.959545135498
3 10-A1-S C11 2 MYB Target 10.3745765686035
...
30 9-A1-S F2 15 MYB Target 12.228588104248
First column -> id (1 until 30)
Second column -> sample identification (10 = genotype; A1 = region 1; C = symptoms). We have three genotypes (10, 3 and 9); two regions (A1 and A2) and with symptoms and without. So, we have theses RNA samples: 10-A1-C, 10-A1-S, 10-A2-S, 3-A1-C and 9-A1-S.
Third column -> well plate
Fourth column -> technical replicates (1 or 2). We have two technical replicates
Fifth column -> gene name
Sixth column -> feature type (endogenous or target)
Seventh column -> Ct
All seven files (one per run) have all seven columns.
I read my files like this:
files <- read.delim("files.txt")
raw <- readCtData(files = files$File, n.features = 30,
column.info=list(feature = 5, type = 6, position = 3,
Ct = 7), n.data = 1)
Now, I would like to do the appropriate phenoData (pData) object for, on downstream analysis, do a proper statistical contrasts set up.
So, could you help me?
I tried this:
samples <- read.table("sample1.csv", header = TRUE, sep = "\t",
stringsAsFactors = FALSE)[,2]
raw <- readCtData(files = files$File, n.features = 30,
column.info=list(feature = 5, type = 6, position = 3,
Ct = 7), n.data = 1, samples = samples)
and this:
raw2 <- changeCtLayout(raw, sample.order = samples)
But, nor ones have got the proper pData.
Thank you so much!
Marcelo