internal error

MCQR/R/mcq_compute_anova.R

@@ -208,7 +208,7 @@ setMethod("mcq.compute.anova", signature(object="cmcq.protq.spectralcounting", f
 		colnames(resultanov) <- colnames_temp
 		## 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[,-which(colnames(resultanov) == "proba.good.model")], 2, p.adjust, method="BH"))
@@ -324,7 +324,7 @@ setMethod("mcq.compute.anova", signature(object='cmcq.generic.pepq', 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"))