-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path.Rhistory
92 lines (92 loc) · 2.34 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
source("https://install-github.me/zzawadz/dragulaR")
source("https://install-github.me/zzawadz/dragulaR")
library(dragulaR)
source("https://install-github.me/zzawadz/dragulaR")
library(dragulaR)
runApp(system.file("apps/example06-dragula-dynamic-elements-renderUI", package = "dragulaR"))
runApp()
runApp()
runApp()
runApp()
runApp()
runApp()
runApp()
runApp()
rep("control", 5), rep("treatment"), 5)
rep("control", 5), rep("treatment"), 5)
c(rep("control", 5), rep("treatment"), 5))
c(rep("control", 5), rep("treatment"), 5)
runApp()
runApp()
runApp()
dummy <- data.frame(age = c(20,30,50,60,70,90,40,20,40,30),
sex = c(rep("male", 5), rep("female", 5)),
treatment = c(rep("control", 5), rep("treatment", 5)),
dose = c(seq(1:5), seq(1:5)))
runApp()
library(tidyblocks)
library(tidyblocks)
dummy <- data.frame(age = c(20,30,50,60,70,90,40,20,40,30),
sex = c(rep("male", 5), rep("female", 5)),
treatment = c(rep("control", 5), rep("treatment", 5)),
dose = c(seq(1:5), seq(1:5)))
library(tidyverse)
dummy %>% spread(age)
dummy %>% spread(t,t, age)
dummy %>% spread(t,s, age)
dummy %>% spread(t,s, age:treatment)
dummy %>% spread(t,s, 2:4)
df <- data.frame(x = c("a", "b"), y = c(3, 4), z = c(5, 6))
df %>% spread(x, y)
df <- data.frame(x = c("a", "b"), y = c(3, 4), z = c(5, 6))
df
df %>% spread(x, y)
runApp()
runApp()
runApp()
runApp()
runApp()
runApp()
dummy <- data.frame(age = c(20,30,50,60,70,90,40,20,40,30),
sex = c(rep("male", 5), rep("female", 5)),
treatment = c(rep("control", 5), rep("treatment", 5)),
dose = c(seq(1:5), seq(1:5)))
runApp()
dummy %>% group_by(treatment) %>%
summarise(mean = mean(age))
dummy %>% group_by(treatment) %>%
summarise(mean = mean(age)) %>%
spread()
dummy %>% group_by(treatment) %>%
summarise(mean = mean(age)) %>%
spread(treatment, mean)
runApp()
dummy %>%
group_by(state$Model[1]) %>%
summarise(mean = mean(state$Model[2]))
?dragulaValue
runApp()
runApp()
dummy %>%
group_by(dose) %>%
summarise(mean = mean(age))
dummy %>%
group_by(dose) %>%
summarise(mean = mean(age)) %>%
spread(dose, mean)
runApp()
dummy %>%
group_by(treatment) %>%
summarise(mean = mean(age))
runApp()
runApp()
runApp()
runApp(
system.file("apps/example06-dragula-dynamic-elements-renderUI", package = "dragulaR"),
display.mode = "showcase")
runApp(
system.file("apps/example03-dragula-get-elements-order", package = "dragulaR"),
display.mode = "showcase")
runApp()
runApp()
runApp()