Big5 examples

friendly · Apr 28, 2024 · 2650e38 · 2650e38
1 parent 605cc85
commit 2650e38
Show file tree

Hide file tree

Showing 22 changed files with 240 additions and 47 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -53,7 +53,8 @@ Suggests:
     dplyr,
     tidyr,
     ggplot2,
-    bookdown
+    bookdown,
+    patchwork
 LazyLoad: yes
 LazyData: yes
 BugReports: https://github.com/friendly/heplots/issues

diff --git a/R/datasets.R b/R/datasets.R
@@ -679,30 +679,47 @@ NULL
 #' @examples
 #' 
 #' data(Iwasaki_Big_Five)
+#' # use Helmert contrasts for groups
+#' contrasts(Iwasaki_Big_Five$Group) <- 
+#'    matrix(c(2, -1, -1,
+#'             0, -1,  1), ncol=2)
+#'
 #' str(Iwasaki_Big_Five)
 #' 
-#' mod <- lm(cbind(N, E, O, A, C) ~ Group, data=Iwasaki_Big_Five)
+#' Big5.mod <- lm(cbind(N, E, O, A, C) ~ Group, data=Iwasaki_Big_Five)
+#' coef(Big5.mod)
+#' 
+#' car::Anova(Big5.mod)
 #' 
-#' car::Anova(mod)
+#' # test contrasts
+#' car::linearHypothesis(Big5.mod, "Group1", title = "Eur vs Asian")
+#' car::linearHypothesis(Big5.mod, "Group2", title = "Asian: Amer vs Inter")
 #' 
 #' # heplots
-#' labs <- c("Neuroticism", "Extraversion", "Openness", "Agreeableness", "Consientiousness" )
+#' labs <- c("Neuroticism", "Extraversion", "Openness", "Agreeableness", "Conscientiousness" )
 #' 
-#' heplot(mod,
+#' heplot(Big5.mod,
 #'        fill = TRUE, fill.alpha = 0.2, 
 #'        cex.lab = 1.5,
 #'        xlab = labs[1], ylab = labs[2])
 #' 
-#' heplot(mod, variables = c(2,5),
+#' heplot(Big5.mod, variables = c(2,5),
 #'        fill = TRUE, fill.alpha = 0.2,
 #'        cex.lab = 1.5,
 #'        xlab = labs[2], ylab = labs[5])
 #' 
-#' pairs(mod, 
+#' pairs(Big5.mod, 
 #'       fill = TRUE, fill.alpha = 0.2, var.labels = labs)
 #' 
-#' 
-#' 
+#'
+#' # canonical discriminant analysis
+#' if (require(candisc)) { 
+#' library(candisc)
+#' Big5.can <- candisc(Big5.mod)
+#' Big5.can
+#' heplot(Big5.can, fill = TRUE, fill.alpha = 0.1)
+#' }
+
 NULL
 
 

diff --git a/docs/articles/fig/manova-addhealth-heplot-1.png b/docs/articles/fig/manova-addhealth-heplot-1.png
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -4,7 +4,7 @@ pkgdown_sha: ~
 articles:
   HE_manova: HE_manova.html
   HE_mmra: HE_mmra.html
-last_built: 2024-04-28T18:21Z
+last_built: 2024-04-28T21:24Z
 urls:
   reference: https://friendly.github.io/heplots/reference
   article: https://friendly.github.io/heplots/articles

diff --git a/docs/reference/AddHealth-1.png b/docs/reference/AddHealth-1.png
diff --git a/docs/reference/AddHealth-2.png b/docs/reference/AddHealth-2.png
diff --git a/docs/reference/AddHealth.html b/docs/reference/AddHealth.html
diff --git a/docs/reference/Adopted.html b/docs/reference/Adopted.html
diff --git a/docs/reference/Iwasaki_Big_Five-2.png b/docs/reference/Iwasaki_Big_Five-2.png
diff --git a/docs/reference/Iwasaki_Big_Five-3.png b/docs/reference/Iwasaki_Big_Five-3.png
diff --git a/docs/reference/Iwasaki_Big_Five-4.png b/docs/reference/Iwasaki_Big_Five-4.png
diff --git a/docs/reference/Iwasaki_Big_Five.html b/docs/reference/Iwasaki_Big_Five.html
diff --git a/docs/reference/Parenting-4.png b/docs/reference/Parenting-4.png
diff --git a/docs/reference/WeightLoss.html b/docs/reference/WeightLoss.html
diff --git a/docs/reference/ellipse3d.axes.html b/docs/reference/ellipse3d.axes.html
diff --git a/docs/reference/heplot-4.png b/docs/reference/heplot-4.png
diff --git a/docs/reference/index.html b/docs/reference/index.html
diff --git a/docs/reference/interpPlot.html b/docs/reference/interpPlot.html
diff --git a/docs/search.json b/docs/search.json
diff --git a/man/AddHealth.Rd b/man/AddHealth.Rd
diff --git a/man/Iwasaki_Big_Five.Rd b/man/Iwasaki_Big_Five.Rd
diff --git a/vignettes/fig/manova-addhealth-heplot-1.png b/vignettes/fig/manova-addhealth-heplot-1.png