Code:
> dds <- makeExampleDESeqDataSet() > idx <- sample(1000, 1000, replace=FALSE) > dds2 <- dds[idx,] > res <- results(DESeq(dds))[idx,] > res2 <- results(DESeq(dds2)) > all.equal(res$log2FoldChange, res2$log2FoldChange) [1] TRUE
You are currently viewing the SEQanswers forums as a guest, which limits your access. Click here to register now, and join the discussion
> dds <- makeExampleDESeqDataSet() > idx <- sample(1000, 1000, replace=FALSE) > dds2 <- dds[idx,] > res <- results(DESeq(dds))[idx,] > res2 <- results(DESeq(dds2)) > all.equal(res$log2FoldChange, res2$log2FoldChange) [1] TRUE
| Topics | Statistics | Last Post | ||
|---|---|---|---|---|
|
Started by SEQadmin2, 09-29-2026, 09:51 AM
|
0 responses
26 views
0 reactions
|
Last Post
by SEQadmin2
09-29-2026, 09:51 AM
|
||
|
Started by SEQadmin2, 09-25-2026, 09:06 AM
|
0 responses
44 views
0 reactions
|
Last Post
by SEQadmin2
09-25-2026, 09:06 AM
|
||
|
Started by SEQadmin2, 09-23-2026, 11:05 AM
|
0 responses
33 views
0 reactions
|
Last Post
by SEQadmin2
09-23-2026, 11:05 AM
|
||
|
Started by SEQadmin2, 09-18-2026, 11:37 AM
|
1 response
50 views
0 reactions
|
Last Post
by pekgio
09-21-2026, 02:04 AM
|
Leave a comment: