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
|
## M-x load-library allout
## Set-header-lead to be "###"
## play with exposure.
## Navigation:
###* This is first example
my.test.function <- function(x,y) {
this <- x
that <- function(z) {
print(z)
}
print(this)
print(that(y))
}
###* This is second example
x <- rnorm(10)
y <- 4 * x + runif(10)
lm(y ~ x)
###** There are others
my.lm.obj <- lm(y ~ x)
summary(my.lm ) ## object completion
###** Example for second level folding
###* Back to the top level.
|