Test

Ulangan <- rep(1:3,4)
Ulangan

##  [1] 1 2 3 1 2 3 1 2 3 1 2 3

Perlakuan <- factor(rep(c("A1","A2","A3","A4"),each=3))
Perlakuan

##  [1] A1 A1 A1 A2 A2 A2 A3 A3 A3 A4 A4 A4
## Levels: A1 A2 A3 A4

Respon <- seq(1,2,len=12)
Respon

##  [1] 1.000000 1.090909 1.181818 1.272727 1.363636 1.454545 1.545455 1.636364
##  [9] 1.727273 1.818182 1.909091 2.000000

data.rancob <- data.frame(Ulangan, Perlakuan, Respon)
print(data.rancob)

##    Ulangan Perlakuan   Respon
## 1        1        A1 1.000000
## 2        2        A1 1.090909
## 3        3        A1 1.181818
## 4        1        A2 1.272727
## 5        2        A2 1.363636
## 6        3        A2 1.454545
## 7        1        A3 1.545455
## 8        2        A3 1.636364
## 9        3        A3 1.727273
## 10       1        A4 1.818182
## 11       2        A4 1.909091
## 12       3        A4 2.000000