Update treatment.R

cwendorf · Oct 7, 2023 · 1506b94 · 1506b94
1 parent ad24f4c
commit 1506b94
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/R/treatment.R b/R/treatment.R
@@ -42,7 +42,6 @@ treatment.first <- function (n, base=1, intercept=FALSE, contrasts=TRUE, sparse=
 treatment.last <- function (n, intercept=FALSE, contrasts=TRUE, sparse=FALSE) {
     base <- if (is.numeric(n) && length(n) == 1L) n else length(n)
     cont <- contr.treatment(n, base=base, contrasts=contrasts, sparse=sparse)
-    levels <- as.character(seq_len(base))
     colnames(cont) <- paste(n[-base], n[base], sep="-")
     if(intercept) (cont <- cbind(Int=1,cont))
     cont