This repository has been archived by the owner on Mar 29, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rhistory
97 lines (97 loc) · 2.92 KB
/
.Rhistory
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
?crdPlan
roxygen2::roxygenise()
?crdPlan
roxygen2::roxygenise()
treatMeans <- c(30, 20, 10, 11, 15, 18, 25)
treat <- LETTERS[seq( from = 1, to = 7 )]
design2 <- crdPlan(treat = treat, rep = 6,
treatMeans = treatMeans)
buildShiny(design2)
design2$Plan
design2$data
roxygen2::roxygenise()
treatMeans <- c(30, 20, 10, 11, 15, 18, 25)
treat <- LETTERS[seq( from = 1, to = 7 )]
design2 <- crdPlan(treat = treat, rep = 6,
treatMeans = treatMeans)
buildShiny(design2)
buildShiny(design2)
design2$data
buildShiny(design2)
roxygen2::roxygenise()
treatMeans <- c(30, 20, 10, 11, 15, 18, 25)
treat <- LETTERS[seq( from = 1, to = 7 )]
design2 <- crdPlan(treat = treat, rep = 6,
treatMeans = treatMeans)
buildShiny(design2)
design2$data
crdPlan(treat = unique(design2$data$Treatment),
rep = unique(design2$data$Replicate))
unique(design2$data$Treatment)
unique(design2$data$Replicate)
crdPlan(treat = unique(design2$data$Treatment),
rep = unique(design2$data$Replicate))
as.characther(unique(design2$data$Treatment))
as.character(unique(design2$data$Replicate))
as.character(unique(design2$data$Treatment))
crdPlan(treat = unique(design2$data$Treatment),
rep = 3)
roxygen2::roxygenise()
roxygen2::roxygenise()
treatMeans <- c(30, 20, 10, 11, 15, 18, 25)
treat <- LETTERS[seq( from = 1, to = 7 )]
design2 <- crdPlan(treat = treat, rep = 6,
treatMeans = treatMeans)
roxygen2::roxygenise()
treatMeans <- c(30, 20, 10, 11, 15, 18, 25)
treat <- LETTERS[seq( from = 1, to = 7 )]
design2 <- crdPlan(treat = treat, rep = 6,
treatMeans = treatMeans)
design2$``
roxygen2::roxygenise()
treatMeans <- c(30, 20, 10, 11, 15, 18, 25)
treat <- LETTERS[seq( from = 1, to = 7 )]
design2 <- crdPlan(treat = treat, rep = 6,
treatMeans = treatMeans)
design2$initValue
design2$initValue$trat
design2$initValue$rep
buildShiny(design2)
design2$Plan
crdPlan(treat = design2$initValue$trat, rep = design2$initValue$rep)
crdPlan(treat = design2$initValue$trat, rep = design2$initValue$rep)
crdPlan(treat = design2$initValue$trat, rep = design2$initValue$rep)
roxygen2::roxygenise()
treatMeans <- c(30, 20, 10, 11, 15, 18, 25)
treat <- LETTERS[seq( from = 1, to = 7 )]
design2 <- crdPlan(treat = treat, rep = 6,
treatMeans = treatMeans)
design2$initValue$rep
design2$Plan
buildShiny(design2)
roxygen2::roxygenise()
treatMeans <- c(30, 20, 10, 11, 15, 18, 25)
treat <- LETTERS[seq( from = 1, to = 7 )]
design2 <- crdPlan(treat = treat, rep = 6,
treatMeans = treatMeans)
design2$initValue$rep
design2$Plan
buildShiny(design2)
roxygen2::roxygenise()
roxygen2::roxygenise()
roxygen2::roxygenise()
treatMeans <- c(30, 20, 10, 11, 15, 18, 25)
treat <- LETTERS[seq( from = 1, to = 7 )]
design2 <- crdPlan(treat = treat, rep = 6,
treatMeans = treatMeans)
design2$initValue$rep
design2$Plan
buildShiny(design2)
roxygen2::roxygenise()
treatMeans <- c(30, 20, 10, 11, 15, 18, 25)
treat <- LETTERS[seq( from = 1, to = 7 )]
design2 <- crdPlan(treat = treat, rep = 6,
treatMeans = treatMeans)
design2$initValue$rep
design2$Plan
buildShiny(design2)