-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rhistory
69 lines (69 loc) · 1.6 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
```{r}
```{r}
bquote("Hello")
bquote("Hello"~ 3)
bquote("Hello")
bquote("Hello" ~ 3)
bquote("Hello" ~ r[xy])
x = 2
bquote("hello" ~ .(x))
bquote("x" ~ .(x))
bquote("The answer " ~ .(x))
bquote("The answer " .(x))
bquote("The answer " ~.(x))
bquote(x == .(x))
bquote(x = .(x))
y = 1
bquote( function(x, y = .(y)) x+y )
x=2
bquote( function(x, y = .(y)) x+y )
eval(bquote( function(x, y = .(y)) x+y ))
eval(eval(bquote( function(x, y = .(y)) x+y )))
?plotmath
mtext(bquote(hat(theta) == .(theta)), line= .25)
theta=1.23
mtext(bquote(hat(theta) == .(theta)), line= .25)
theta = pi/4
sin(bquote(.(theta)))
bquote(.(theta))
bquote(.(theta) + 1
)
bquote(2 + .(theta))
bquote(sin((.theta)))
bquote(sin(1 + .(theta))
)
bquote(sin(1 + .(theta)))
eval(bquote(sin(1 + .(theta)))) ## sin(1 + 0.7853...)
z= bquote(sin(1 + .(theta))) ## sin(1 + 0.7853...)
typeof(z)
is.call(z)
z
eval(z)
bquote(a+b+c )
call(z)
d = 2
bquote(a+b+c + .(d))
x = 1
quote(1 + .(x)) # 1 + .(x)
bquote(1 + .(x)) # 1 + 1
bquote(template + .(x))
bquote(help = (.topic))
bquote(help == (.topic))
subject="bquote"
mod_name="base"
bquote(help(topic = .(subject), package = .(mod_name)))
eval( bquote(help(topic = .(subject), package = .(mod_name))))
bquote(help(topic = .(subject), package = .(mod_name)))
eval( bquote(help(topic = .(subject), package = .(mod_name))))
subject="quote"
eval( bquote(help(topic = .(subject), package = .(mod_name))))
install.packages(c("httpuv", "httr", "httr2", "waldo"))
library(data.table)
source("~/code/SHINY/PART_D/CMS_PART_D_BOXPLOT.R")
```r
L = list(1,2,list(z=3))
M = list(1,2,z=list(3))
attributes()
attributes(L)
attributes(M)
ls()