Update deviation.R

cwendorf · Oct 7, 2023 · 58bada6 · 58bada6
1 parent 1506b94
commit 58bada6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/deviation.R b/R/deviation.R
@@ -53,7 +53,7 @@ deviation.last <- function (n, intercept=FALSE, contrasts=TRUE, sparse=FALSE) {
         cont <- cont[, -length(levels), drop = FALSE]
         cont[length(levels), ] <- -1
         colnames(cont) <- NULL
-        dimnames(cont) <- list(1:n, paste0("MD", .zf(1:(n-1))))  
+        #dimnames(cont) <- list(1:n, paste0("MD", .zf(1:(n-1))))  
     }
     if(intercept) (cont <- cbind(Int=1,cont))
     cont