Skip to content
Snippets Groups Projects
Commit ba7bfb8c authored by Langella Olivier's avatar Langella Olivier
Browse files

fix copy/paste error

parent ade585b5
No related branches found
Tags MCQR_0.5.3
No related merge requests found
......@@ -97,7 +97,7 @@ setMethod("mcq.compute.anova", signature(object="cmcq.generic.protq", flist="ANY
colnames(resultanov) <- paste(rep("pval_", length(factorNameList)), factorNameList, sep="")
## check if length de resultmodel coerce with nbrow of resultanov and definition of colnames
if(length(resultmodel) != dim(resultanov)[1]){
stop("Interal error")
stop("Internal error")
}
## computing p.adjust with "BH" method
padj <- as.data.frame(apply(resultanov, 2, p.adjust, method="BH"))
......@@ -249,7 +249,7 @@ setMethod("mcq.compute.anova", signature(object="cmcq.protq.by.track", flist="AN
## generation d'un objet cmcq.protq.spectralcount
newObj <- new("cmcq.protq.spectralcounting", proteins=object@proteins,metadata=object@metadata,protval=object@protval)
temp <- mcq.compute.anova(newObj, flist, inter)
temp@paramlist$from <- class(Obj)
temp@paramlist$from <- class(object)
})
## method for cmcq.protq.by.factor
......@@ -266,7 +266,7 @@ setMethod("mcq.compute.anova", signature(object="cmcq.protq.peakcounting", flist
## generation d'un objet cmcq.protq.spectralcount
newObj <- new("cmcq.protq.spectralcounting", proteins=object@proteins,metadata=object@metadata,protval=object@protval)
temp <- mcq.compute.anova(newObj, flist, inter)
temp@paramlist$from <- class(Obj)
temp@paramlist$from <- class(object)
})
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment