[R] boot problem

[david v]

Hello,
This is the code that is giving me problems

>library(boot)
>data<-read.table("test",header=FALSE,sep="\t",row.names=1)
>data
          V2 V3 V4
A  5  8  9
B 12 54 89
C   65 89 23
D   32 69 44
E   21 84 97
F   33 59 71
G   16 45 93
H    2 46 55
I   22 33 88

>resample <- function(x,index) {
sample(data,replace=TRUE)
}
dist<-boot(data,resample,R=1000)
Erreur : nombre d'indices incorrect sur la matrice (french)
Error: number of indices wrong in the matrix (moreless)

Can anybody help???