problem with bootstrap

["John Sorkin" <jsorkin@grecc.umaryland.edu>]

I am using SPlus 6.2 on a W2K computer.
Please help me understand and correct the error noted below.
Thanks
John
 
> oneten<-0:10
> threethirteen<-3:13
> testdata<-data.frame(oneten,threethirteen)
>
flip<-bootstrap(testdata,t.test(x=testdata$oneten,y=testdata$threethirteen),B=100)
Problem in bootstrap(testdata, t.test(x = testdata$oneten, y =
testdata$threethirte..: Statistic must return a vector or matrix. 
Use traceback() to see the call stack