/
Exam3.1.1.R
executable file
·55 lines (55 loc) · 1.51 KB
/
Exam3.1.1.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
#' @title Example 3.1.1 from Experimental Design and Analysis for Tree Improvement
#' @name Exam3.1.1
#' @description Exam3.1.1 is part of data from Australian Centre for Agricultural Research (ACIAR)
#' in Queensland, Australia (Experiment 309).
#' @author
#' \enumerate{
#' \item Muhammad Yaseen (\email{myaseen208@@gmail.com})
#' \item Sami Ullah (\email{samiullahuos@@gmail.com})
#' }
#'
#' @references
#' \enumerate{
#' \item E.R. Williams, C.E. Harwood and A.C. Matheson (2023). \emph{Experimental Design and Analysis for Tree Improvement}.
#' CSIRO Publishing (\href{https://www.publish.csiro.au/book/3145/}{https://www.publish.csiro.au/book/3145/}).
#' }
#'
#' @seealso
#' \code{\link{DataExam3.1.1}}
#'
#' @importFrom car Anova
#' @import dae
#' @import dplyr
#' @importFrom emmeans emmeans emmip
#' @import ggplot2
#' @importFrom lmerTest lmer
#' @importFrom magrittr %>%
#' @import predictmeans
#' @importFrom stats lm anova model.tables
#' @importFrom supernova supernova
#'
#' @examples
#' library(car)
#' library(dae)
#' library(dplyr)
#' library(emmeans)
#' library(ggplot2)
#' library(lmerTest)
#' library(magrittr)
#' library(predictmeans)
#' library(supernova)
#'
#' data(DataExam3.1.1)
#'
#' # Pg. 36
#' fm3.8 <- lm(formula = Mean ~ Repl + SeedLot, data = DataExam3.1.1)
#'
#' # Pg. 40
#' anova(fm3.8)
#'
#' # Pg. 40
#' emmeans(object = fm3.8, specs = ~ SeedLot)
#' emmip(object = fm3.8, formula = ~ SeedLot) +
#' theme_classic()
#'
NULL