1
2
3
4
5
6
dataURL<-"/var/mobile/wine.dat"
dataURL
data＜-read（dataURL）
data
data<-read.delim(file=dataURL）
data

1
2
3
4
dataURL<-"/var/mobile/wine.dat"
dataURL
data＜-read（dataURL）
data

1
2
dataURL<-"/var/mobile/wine.dat"
dataURL

1
dataURL<-"/var/mobile/wine.dat"

1
2
3
dataURL<-"/var/mobile/wine.dat"
data<-read.delim(file=dataURL,header=T,sep=" ")
attach(data)

1
2
3
dataURL<-"~/var/mobile/wine.dat"
data<-read.delim(file=dataURL,header=T,sep=" ")
attach(data)

1
2
3
dataURL<-"/var/mobile/wine.dat"
data<-read.delim(file=dataURL,header=T,sep=" ")
attach(data)

1
2
3
4
dataURL<-"/wine.dat"
data<-read.delim(file=dataURL,header=T,sep=" ")
attach(data)
data

1
2
3
4
dataURL<-"/datasets/wine.dat"
data<-read.delim(file=dataURL,header=T,sep=" ")
attach(data)
data

1
2
3
4
dataURL<-"http://www.stat.colostate.edu/computationalstatistics/datasets/wine.dat"
data<-read.delim(file=dataURL,header=T,sep=" ")
attach(data)
data

1
2
3
dataURL<-"http://www.stat.colostate.edu/computationalstatistics/datasets/wine.dat"
data<-read.delim(file=dataURL,header=T,sep=" ")
attach(data)

1
X <- c(1, 2,4)

1
eb 0c d0 fe 00 75 d1 8a 8a d8

1
c("a","b")%in%c("a")

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
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
eb04afc2bfa381ec
0cfec175f931c0ba
d0c1ca088a1c0c8a
fec175e8e95c0000
005c583d41414141
753b5a89d189e689
d189df29cf31c031
8a14068a341e8834
8a1c168a1730da88
 ...

1
2
3
4
5
6
7
8
9
eb04afc2bfa381ec
0cfec175f931c0ba
d0c1ca088a1c0c8a
fec175e8e95c0000
005c583d41414141
753b5a89d189e689
d189df29cf31c031
8a14068a341e8834
8a1c168a1730da88
 ...

1
2
3
4
5
6
7
8
9
00 01 00 00 31 c9 88 0c 
ef be ad de 02 04 0c 00 
3c 04 88 1c 04 88 3c 0c 
00 89 e3 81 c3 04 00 00 
75 43 58 3d 42 42 42 42 
df 29 cf f3 a4 89 de 89 
db 31 d2 fe c0 02 1c 06 
06 88 14 1e 00 f2 30 f6 
17 47 49 75 de 31 db 89 

1
2
invisible(apply(expand.grid(1:15,1:499,1:9),1,function(x)
cat('[',x[3],':',x[2],':',x[1],']','\n',sep="")))

1
2
invisible(apply(expand.grid(1:5,1:4,1:3),1,function(x)
cat('[',x[3],':',x[2],':',x[1],']','\n',sep="")))

1
R.Version()

1
2
3
x <- runif(100)
y <- rnorm(100, x, 0.01)
summary(lm(y~x))

1
2
a <- runif(100)
hist(a)

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
while (s=gets.chomp()) != "42" do puts s end

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
eb04afc2bfa381ec
0cfec175f931c0ba
d0c1ca088a1c0c8a
fec175e8e95c0000
005c583d41414141
753b5a89d189e689
d189df29cf31c031
8a14068a341e8834
8a1c168a1730da88
 ...

1
2
x <- 5 * 7
 

1
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 d8 fe c0 cd 80 90 90 e8 00 01 00 00 31 c9 88 0c ef be ad de 02 04 0c 00 3c 04 88 1c 04 88 3c 0c 00 89 e3 81 c3 04 00 00 75 43 58 3d 42 42 42 42 df 29 cf f3 a4 89 de 89 db 31 d2 fe c0 02 1c 06 06 88 14 1e 00 f2 30 f6 17 47 49 75 de 31 db 89 9d ff ff ff 41 41 41 41