Code:
mycounts <- mycounts[rowSums(mycounts) > 0,]
You are currently viewing the SEQanswers forums as a guest, which limits your access. Click here to register now, and join the discussion
mycounts <- mycounts[rowSums(mycounts) > 0,]
resSig<-na.omit(resSig)
################################################ # #Part_1- extract a dataset # rm(list = ls()); #require(DESeq); require(pasilla); data("pasillaGenes"); head(counts(pasillaGenes)); #save_data to view and contrast write.table(counts(pasillaGenes), file="countstable.txt", quote=FALSE, sep=" ", row.names=TRUE);
################################################ ################################################ # #Part_2 require(DESeq); require(pasilla); countsTable <-read.table("countstable.txt", header=TRUE, stringsAsFactors=TRUE) rownames( countsTable ) <- countsTable$gene countsTable <- countsTable[,-1] conds=c("U","U","U","U","T","T","T"); cds <- newCountDataSet( countsTable, conds); cds <-estimateSizeFactors(cds); #normcds <- counts( cds, normalized=TRUE ); #write.table(normcds, file="normalized.countstable.txt", quote=FALSE, sep="\t", row.names=TRUE); cds <- estimateDispersions( cds, sharingMode="fit-only" ); res <- nbinomTest(cds, "U","T"); resSig <- res[ res$padj < 0.05,]; resSig <- resSig[ order(resSig$pval), ]; write.table(resSig, file="DEGsig_list.txt", quote=FALSE, sep="\t", row.names=FALSE); #############################################
Topics | Statistics | Last Post | ||
---|---|---|---|---|
Started by seqadmin, 12-02-2024, 09:29 AM
|
0 responses
151 views
0 likes
|
Last Post
by seqadmin
12-02-2024, 09:29 AM
|
||
Started by seqadmin, 12-02-2024, 09:06 AM
|
0 responses
51 views
0 likes
|
Last Post
by seqadmin
12-02-2024, 09:06 AM
|
||
Started by seqadmin, 12-02-2024, 08:03 AM
|
0 responses
42 views
0 likes
|
Last Post
by seqadmin
12-02-2024, 08:03 AM
|
||
Started by seqadmin, 11-22-2024, 07:36 AM
|
0 responses
75 views
0 likes
|
Last Post
by seqadmin
11-22-2024, 07:36 AM
|
Leave a comment: