fix copy/paste error

MCQR/R/mcq_compute_anova.R

@@ -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)
 })