styling

R/contrs.R

@@ -34,52 +34,52 @@
 #'
 #' @examplesIf !identical(Sys.getenv("IN_PKGDOWN"), "true")
 #' \donttest{
-#'   data("mtcars")
+#' data("mtcars")
 #'
-#'   mtcars <- data_modify(mtcars, cyl = factor(cyl))
+#' mtcars <- data_modify(mtcars, cyl = factor(cyl))
 #'
-#'   c.treatment <- cbind(Intercept = 1, contrasts(mtcars$cyl))
-#'   solve(c.treatment)
-#'   #>            4 6 8
-#'   #> Intercept  1 0 0  # mean of the 1st level
-#'   #> 6         -1 1 0  # 2nd level - 1st level
-#'   #> 8         -1 0 1  # 3rd level - 1st level
+#' c.treatment <- cbind(Intercept = 1, contrasts(mtcars$cyl))
+#' solve(c.treatment)
+#' #>            4 6 8
+#' #> Intercept  1 0 0  # mean of the 1st level
+#' #> 6         -1 1 0  # 2nd level - 1st level
+#' #> 8         -1 0 1  # 3rd level - 1st level
 #'
-#'   contrasts(mtcars$cyl) <- contr.sum
-#'   c.sum <- cbind(Intercept = 1, contrasts(mtcars$cyl))
-#'   solve(c.sum)
-#'   #>                4      6      8
-#'   #> Intercept  0.333  0.333  0.333   # overall mean
-#'   #>            0.667 -0.333 -0.333   # deviation of 1st from overall mean
-#'   #>           -0.333  0.667 -0.333   # deviation of 2nd from overall mean
+#' contrasts(mtcars$cyl) <- contr.sum
+#' c.sum <- cbind(Intercept = 1, contrasts(mtcars$cyl))
+#' solve(c.sum)
+#' #>                4      6      8
+#' #> Intercept  0.333  0.333  0.333   # overall mean
+#' #>            0.667 -0.333 -0.333   # deviation of 1st from overall mean
+#' #>           -0.333  0.667 -0.333   # deviation of 2nd from overall mean
 #'
 #'
-#'   contrasts(mtcars$cyl) <- contr.deviation
-#'   c.deviation <- cbind(Intercept = 1, contrasts(mtcars$cyl))
-#'   solve(c.deviation)
-#'   #>                4     6     8
-#'   #> Intercept  0.333 0.333 0.333   # overall mean
-#'   #> 6         -1.000 1.000 0.000   # 2nd level - 1st level
-#'   #> 8         -1.000 0.000 1.000   # 3rd level - 1st level
+#' contrasts(mtcars$cyl) <- contr.deviation
+#' c.deviation <- cbind(Intercept = 1, contrasts(mtcars$cyl))
+#' solve(c.deviation)
+#' #>                4     6     8
+#' #> Intercept  0.333 0.333 0.333   # overall mean
+#' #> 6         -1.000 1.000 0.000   # 2nd level - 1st level
+#' #> 8         -1.000 0.000 1.000   # 3rd level - 1st level
 #'
-#'   ## With Interactions -----------------------------------------
-#'   mtcars <- data_modify(mtcars, am = C(am, contr = contr.deviation))
-#'   mtcars <- data_arrange(mtcars, select = c("cyl", "am"))
+#' ## With Interactions -----------------------------------------
+#' mtcars <- data_modify(mtcars, am = C(am, contr = contr.deviation))
+#' mtcars <- data_arrange(mtcars, select = c("cyl", "am"))
 #'
-#'   mm <- unique(model.matrix(~ cyl * am, data = mtcars))
-#'   rownames(mm) <- c(
-#'     "cyl4.am0", "cyl4.am1", "cyl6.am0",
-#'     "cyl6.am1", "cyl8.am0", "cyl8.am1"
-#'   )
+#' mm <- unique(model.matrix(~ cyl * am, data = mtcars))
+#' rownames(mm) <- c(
+#'   "cyl4.am0", "cyl4.am1", "cyl6.am0",
+#'   "cyl6.am1", "cyl8.am0", "cyl8.am1"
+#' )
 #'
-#'   solve(mm)
-#'   #>             cyl4.am0 cyl4.am1 cyl6.am0 cyl6.am1 cyl8.am0 cyl8.am1
-#'   #> (Intercept)    0.167    0.167    0.167    0.167    0.167    0.167  # overall mean
-#'   #> cyl6          -0.500   -0.500    0.500    0.500    0.000    0.000  # cyl MAIN eff: 2nd - 1st
-#'   #> cyl8          -0.500   -0.500    0.000    0.000    0.500    0.500  # cyl MAIN eff: 2nd - 1st
-#'   #> am1           -0.333    0.333   -0.333    0.333   -0.333    0.333  # am MAIN eff
-#'   #> cyl6:am1       1.000   -1.000   -1.000    1.000    0.000    0.000
-#'   #> cyl8:am1       1.000   -1.000    0.000    0.000   -1.000    1.000
+#' solve(mm)
+#' #>             cyl4.am0 cyl4.am1 cyl6.am0 cyl6.am1 cyl8.am0 cyl8.am1
+#' #> (Intercept)    0.167    0.167    0.167    0.167    0.167    0.167  # overall mean
+#' #> cyl6          -0.500   -0.500    0.500    0.500    0.000    0.000  # cyl MAIN eff: 2nd - 1st
+#' #> cyl8          -0.500   -0.500    0.000    0.000    0.500    0.500  # cyl MAIN eff: 2nd - 1st
+#' #> am1           -0.333    0.333   -0.333    0.333   -0.333    0.333  # am MAIN eff
+#' #> cyl6:am1       1.000   -1.000   -1.000    1.000    0.000    0.000
+#' #> cyl8:am1       1.000   -1.000    0.000    0.000   -1.000    1.000
 #' }
 #'
 #' @export