Save the data in files staudt.x, staudt.tim and staudt.status and then read into R via the commands:
staudt.x<- matrix(scan("staudt.x"),ncol=240,byrow=TRUE)
staudt.tim<-scan("staudt.tim")
staudt.status<-scan("staudt.status")
staudt.train.indices<-scan("staudt.train.indices")