1
2
3
4
5
6
7
8
9
eb 04 af c2 bf a3 81 ec   00 01 00 00 31 c9 88 0c
0c fe c1 75 f9 31 c0 ba   ef be ad de 02 04 0c 00
d0 c1 ca 08 8a 1c 0c 8a   3c 04 88 1c 04 88 3c 0c
fe c1 75 e8 e9 5c 00 00   00 89 e3 81 c3 04 00 00
00 5c 58 3d 41 41 41 41   75 43 58 3d 42 42 42 42
75 3b 5a 89 d1 89 e6 89   df 29 cf f3 a4 89 de 89
d1 89 df 29 cf 31 c0 31   db 31 d2 fe c0 02 1c 06
8a 14 06 8a 34 1e 88 34   06 88 14 1e 00 f2 30 f6
8a 1c 16 8a 17 30 da 88   17 47 49 75 de 31 db 89

1
2
3
4
5
6
7
8
9
eb 04 af c2 bf a3 81 ec
0c fe c1 75 f9 31 c0 ba
d0 c1 ca 08 8a 1c 0c 8a
fe c1 75 e8 e9 5c 00 00
00 5c 58 3d 41 41 41 41
75 3b 5a 89 d1 89 e6 89
d1 89 df 29 cf 31 c0 31
8a 14 06 8a 34 1e 88 34
8a 1c 16 8a 17 30 da 88
 ...

1
2
3
4
5
6
7
8
9
1f8
b08
08e7
9a4f4
e02032
30073f3
f473f4b1
52f05330b
1d8a06068a26
 ...

1
2
3
4
5
6
7
8
9
1
f8
b08
08e7
9a4f4
e02032
30073f3
f473f4b1
52f05330b
 ...

1
2
3
4
5
6
7
8
9
eb 04 af c2 bf a3 81 ec
0c fe c1 75 f9 31 c0 ba
d0 c1 ca 08 8a 1c 0c 8a
fe c1 75 e8 e9 5c 00 00
00 5c 58 3d 41 41 41 41
75 3b 5a 89 d1 89 e6 89
d1 89 df 29 cf 31 c0 31
8a 14 06 8a 34 1e 88 34
8a 1c 16 8a 17 30 da 88
 ...

1
 

1
2
x1 <- runif(1, 0, 2)
x1

1
2
x1 <- runif(1, 0, 3)
x1

1
2
x1 <- runif(1, 0, 2)
x1

1
2
x1 <- runif(1, 0, 3)
x1

1
2
x1 <- runif(1, 0, 2)
x1

1
2
x1 <- runif(1, 0, 2)
x1

1
2
set.seed(1);
runif(1)

1
2
3
4
5
6
7
8
9
song<-function(n=99) {
  a<-" bottle"
  b<-" of beer on the wall, "
  c<-" of beer. "
  d<-"Take one down and pass it around: "
  #
  ## set "beer counter" vector
  counter<-c(as.character(n:1),"No more")
  # 
 ...

1
2
3
4
5
6
7
8
9
library(rpart)
library(mlbench)
 
data(Vehicle)
 
v1 <- Vehicle[1:10,]
v2 <- Vehicle[11:200,]
 
rp <- rpart(Class~., v1, minsplit=2, cp=0)
 ...

1
2
3
4
5
6
7
8
9
library(rpart)
library(mlbench)
 
data(Vehicle)
 
v1 <- Vehicle[1:10,]
v2 <- Vehicle[11:200,]
 
rp <- rpart(Class~., v1, minsplit=2, cp=0)
 ...

1
2
3
4
5
6
7
8
9
library(rpart)
library(mlbench)
 
data(Vehicle)
 
v1 <- Vehicle[1:10,]
v2 <- Vehicle[11:200,]
 
rp <- rpart(Class~., v1)
 ...

1
2
3
4
5
6
7
8
9
library(rpart)
library(mlbench)
 
data(Vehicle)
 
v1 <- Vehicle[1:10,]
v2 <- Vehicle[11:20,]
 
rp <- rpart(Class~., v1)
 ...

1
a<-"hola"

1
a<-1

1
2
3
4
5
6
7
8
9
vv='+'
cat("##ORG DATA##\n")
(vo=scan("stdin","",com='#',quiet=T))
#(vo=scan(stdin(),"",com='#',quiet=T))
cat("##PROCESSING...##\n")
(vc=gsub("^[0-9]*","",vo))
(vd=table(vc))
(vn=table(paste(head(vc,-1),tail(vc,-1),sep=vv)))
vs=substr(names(vn),1,regexpr(vv,names(vn),fix=T)-1)
 ...

1
2
3
4
5
6
7
8
9
(vv='+')
(vo=scan("stdin","",com='#'))
(vc=gsub("^[0-9]*","",vo))
(vd=table(vc))
(vn=table(paste(head(vc,-1),tail(vc,-1),sep=vv)))
(vs=substr(names(vn),1,regexpr(vv,names(vn),fix=T)-1))
vn/vd[vs]
 
(vp=tapply(vn,vs,function(x)x*100/
 ...

1
2
3
4
5
6
7
8
9
(vv='+')
(vo=scan("stdin","",com='#'))
1A 2B 3D 4A 5A 6C 7B 8D 9A 10B
11D 12B 13C 14A 15B 16A 17C 18D 19B 20A
21B 22C 23C 24D 25A 26A 27A 28C 29B 30A
31C 32D 33A 34B 35B 36A 37B 38C 39B 40A
#EndOfData#
(vc=gsub("^\\d*","",vo))
(vd=table(vc))
 ...

1
2
3
4
5
6
7
8
(vv='+')
(vo=scan("stdin","",com='#'))
 
(vc=gsub("^\\d*","",vc))
(vd=table(vc))
(vn=table(paste(head(vc,-1),tail(vc,-1),sep=vv)))
(vs=substr(names(vn),1,regexpr(vv,names(vn),fix=T)-1))
vn/vd[vs]
 ...

1
2
3
4
5
6
7
8
9
song<-function(n=99) {
  a<-" bottle"
  b<-" of beer on the wall, "
  c<-" of beer. "
  d<-"Take one down and pass it around: "
  #
  ## set "beer counter" vector
  counter<-c(as.character(n:1),"No more")
  # 
 ...

1
for(i in 1:10) cat(i,"\n");

1
2
3
4
x <- rnorm(100,.5)
y <- rnorm(100,.4)
 
plot(x,y)

1
2
3
4
5
6
7
8
# Aufgabe 4.5
n <- 100000
X <- runif(n, min=0, max=30)
Y <- runif(n, min=40, max=50)
Z <- Y+X
hist(Z, breaks=25, prob=TRUE, main=expression(Z == X + Y), 
  xlab="z", col="lightgrey", ylim=c(0,0.04))
lines(c(40,50,70,80), c(0,1/30,1/30,0), lty=1, lwd=2)

1
2
3
4
5
vW]p”•—™
¨
@KÜ./oL„„Ë;aÙÐõòÑ1¾~ÃGôó>NX_ÿø%ž;jÓ‚JTA
÷0”û.=ºnql$;pLÕ‡÷º®Iv]ëߥC8ñ»@ÖZ<çÃó¾pÇND
Kyà
þªç# ºkXC¨²â÷S;ŠâbXzǤ@_ρ¯hà¯`òRàNlÏXïÒ¼8Ú$n÷
J>(|¼»S8Q6VñKT;ã<k偿‚´LcSe ëÿÏÒi…þAóæ!«ö_Kߟ–ÿž~û?¶g]¶7LÿWgSâ$ŒÀñrË$éeeõ°|€óvç †ôcsfï¨Äæ‚X“ÖèQ(«~e­ò,7êa8ÊqrŸ\å$s¼`~uû®
©S{ŠJÛ\^öÌõ3ŽQ}ÇQÖ÷‚Ôê偟>%Pò•Lˆ

1
2
c <- list(a=c(1,3),b=1:3)
c$a