Yeah, they just factorized the colData or whatever the equivalent is in the older version that you're using (I'll have to download that version and have a look).
Seqanswers Leaderboard Ad
Collapse
Announcement
Collapse
No announcement yet.
X
-
So the first thing to try is to just reset ecs@designColumns to contain factors (if they don't already). This won't solve the original issue, since I suspect that the conversion to a dataframe is occurring after this step. The quickest way to go about this is to just look at the code for estimatelog2FoldChanges (I'll paste it below) and just execute every line manually. Then you'll know exactly what it's processing and why the duplicate row name error is happening (this will also give you the chance to avert that error then).
Code:estimatelog2FoldChanges <- function(ecs, fitExpToVar="condition", denominator="", getOnlyEffects=FALSE, averageOutExpression=TRUE, nCores=1, quiet=FALSE, file="") { stopifnot(is(ecs, "ExonCountSet")) if(any(is.na(sizeFactors(ecs)))){ stop("Please estimate sizeFactors first\n")} if(!fitExpToVar %in% ecs@designColumns){ stop("fitExpToVar parameter is not in the design columns, double check ecs@designColumns")} if(sum(is.na(featureData(ecs)$dispersion))==nrow(counts(ecs))){ stop("No dispersion parameters found, first call function estimateDispersions...\n")} frm <- as.formula(paste("count ~", fitExpToVar, "* exon")) testablegenes <- as.character(unique(fData(ecs)[which(fData(ecs)$testable),]$geneID)) geteffects <- function(geneID){ coefficients <- fitAndArrangeCoefs(ecs, geneID=geneID, frm, balanceExons=TRUE) if( is.null( coefficients ) ){ return(coefficients) } ret <- t(getEffectsForPlotting(coefficients, averageOutExpression=averageOutExpression, groupingVar=fitExpToVar)) rownames(ret) <- paste(geneID, rownames(ret), sep=":") return(ret) } if( nCores > 1 ){ if(!is.loaded("mc_fork", PACKAGE="parallel")){ stop("Please load first parallel package or set parameter nCores to 1...")} alleffects <- parallel:::mclapply( testablegenes, function(x){ geteffects(x) }, mc.cores=nCores ) }else{ alleffects <- lapply( testablegenes, function(x){geteffects(x)}) } names(alleffects) <- testablegenes alleffects <- do.call(rbind, alleffects) alleffects <- vst(exp( alleffects ), ecs) toadd <- matrix(NA, nrow=nrow(ecs), ncol=ncol(alleffects)) rownames(toadd) <- featureNames(ecs) if( getOnlyEffects ){ colnames(toadd) <- colnames(alleffects) toadd[rownames(alleffects), colnames(alleffects)] <- alleffects }else{ if( denominator == "" ){ denominator <- as.character(design(ecs, drop=FALSE)[[fitExpToVar]][1]) } stopifnot( any( colnames(alleffects) %in% denominator ) ) denoCol <- which(colnames(alleffects) == denominator) alleffects <- log2(alleffects / alleffects[,denoCol]) colnames(alleffects) <- sprintf("log2fold(%s/%s)", colnames(alleffects), denominator) colnames(toadd) <- colnames(alleffects) alleffects <- alleffects[,-denoCol, drop=FALSE] toadd <- toadd[,-denoCol, drop=FALSE] toadd[rownames(alleffects), colnames(alleffects)] <- alleffects } fData(ecs) <- cbind(fData(ecs), toadd) ecs }
Comment
Latest Articles
Collapse
-
by seqadmin
The sequencing world is rapidly changing due to declining costs, enhanced accuracies, and the advent of newer, cutting-edge instruments. Equally important to these developments are improvements in sequencing analysis, a process that converts vast amounts of raw data into a comprehensible and meaningful form. This complex task requires expertise and the right analysis tools. In this article, we highlight the progress and innovation in sequencing analysis by reviewing several of the...-
Channel: Articles
05-06-2024, 07:48 AM -
-
by seqadmin
The field of epigenetics has traditionally concentrated more on DNA and how changes like methylation and phosphorylation of histones impact gene expression and regulation. However, our increased understanding of RNA modifications and their importance in cellular processes has led to a rise in epitranscriptomics research. “Epitranscriptomics brings together the concepts of epigenetics and gene expression,” explained Adrien Leger, PhD, Principal Research Scientist...-
Channel: Articles
04-22-2024, 07:01 AM -
ad_right_rmr
Collapse
News
Collapse
Topics | Statistics | Last Post | ||
---|---|---|---|---|
Started by seqadmin, 05-14-2024, 07:03 AM
|
0 responses
20 views
0 likes
|
Last Post
by seqadmin
05-14-2024, 07:03 AM
|
||
Started by seqadmin, 05-10-2024, 06:35 AM
|
0 responses
44 views
0 likes
|
Last Post
by seqadmin
05-10-2024, 06:35 AM
|
||
Started by seqadmin, 05-09-2024, 02:46 PM
|
0 responses
54 views
0 likes
|
Last Post
by seqadmin
05-09-2024, 02:46 PM
|
||
Started by seqadmin, 05-07-2024, 06:57 AM
|
0 responses
42 views
0 likes
|
Last Post
by seqadmin
05-07-2024, 06:57 AM
|
Comment