Lines1<- readLines(textConnection("[1] 1.0000000 0.0000000 0.3425584
0.0000000
[1] 1.0000000 0.3425584 1.6693396 0.0000000
[1] 1.000000 1.669340 9.918513 0.000000
[1]? 1.000000? 9.918513 24.000000? 0.000000
---------------------- more lines---------------------------------
----------------------------------------- ---------------------
[1] 18.00000 10.79634 24.00000? 0.00000
[1] 19.000000? 0.000000? 5.969107? 0.000000
[1] 19.000000? 5.969107? 9.245121? 0.000000
[1] 19.000000? 9.245121 12.253784? 1.000000
[1] 19.00000 12.25378 15.81035? 0.00000
[1] 19.00000 15.81035 24.00000? 0.00000
[1] 20? 0 24? 0"))
?dat1<-read.table(text=gsub("\\[.*\\]\\s+","",Lines1),sep="",header=FALSE)
?str(dat1)
#'data.frame':??? 96 obs. of? 4 variables:
# $ V1: num? 1 1 1 1 2 2 3 3 3 3 ...
# $ V2: num? 0 0.343 1.669 9.919 0 ...
# $ V3: num? 0.343 1.669 9.919 24 3.178 ...
# $ V4: num? 0 0 0 0 1 0 1 0 0 0 ...
A.K.
ibrary(Rlab)
for(id in 1:20)
{
start<-stop<-event<-0
while(stop < 24)
{
t<-rexp(1,1/6)
stop<-start+t
d1<-cbind(id,start)
event<-rbern(1,0.2)
start<-stop
if(stop >= 24)event = 0
if(stop >=24) stop = 24
d2<-cbind(d1,stop,event)
d3<-d2[1:4]
print(d3)
}
}
?If i run this code i m getting result like this
[1] 1.0000000 0.0000000 0.3425584 0.0000000
[1] 1.0000000 0.3425584 1.6693396 0.0000000
[1] 1.000000 1.669340 9.918513 0.000000
[1] ?1.000000 ?9.918513 24.000000 ?0.000000
[1] 2.00000 0.00000 3.17837 1.00000
[1] ?2.00000 ?3.17837 24.00000 ?0.00000
[1] 3.000000 0.000000 9.476766 1.000000
[1] ?3.000000 ?9.476766 15.494332 ?0.000000
[1] ?3.00000 15.49433 21.37152 ?0.00000
[1] ?3.00000 21.37152 22.16820 ?0.00000
[1] ?3.0000 22.1682 24.0000 ?0.0000
[1] 4.000000 0.000000 1.080512 0.000000
[1] 4.000000 1.080512 2.014019 0.000000
[1] 4.000000 2.014019 2.569652 0.000000
[1] 4.000000 2.569652 6.857931 0.000000
[1] ?4.000000 ?6.857931 10.178343 ?1.000000
[1] ?4.00000 10.17834 24.00000 ?0.00000
[1] 5.000000 0.000000 4.511939 0.000000
[1] ?5.000000 ?4.511939 11.594630 ?0.000000
[1] ?5.00000 11.59463 14.01093 ?0.00000
[1] ?5.00000 14.01093 16.00668 ?1.00000
[1] ?5.00000 16.00668 24.00000 ?0.00000
[1] 6.000000 0.000000 1.233892 0.000000
[1] 6.000000 1.233892 4.230937 0.000000
[1] 6.000000 4.230937 7.896710 0.000000
[1] ?6.00000 ?7.89671 12.12295 ?0.00000
[1] ?6.00000 12.12295 12.26680 ?0.00000
[1] ?6.00000 12.26680 14.16343 ?0.00000
[1] ?6.00000 14.16343 24.00000 ?0.00000
[1] 7.0000000 0.0000000 0.6095759 1.0000000
[1] 7.0000000 0.6095759 2.5180034 0.0000000
[1] 7.000000 2.518003 4.447908 0.000000
[1] 7.000000 4.447908 5.553377 0.000000
[1] 7.000000 5.553377 6.202340 0.000000
[1] ?7.00000 ?6.20234 11.38621 ?0.00000
[1] ?7.00000 11.38621 14.21892 ?0.00000
[1] ?7.00000 14.21892 19.64888 ?0.00000
[1] ?7.00000 19.64888 24.00000 ?0.00000
[1] ?8.00000 ?0.00000 16.98726 ?0.00000
[1] ?8.00000 16.98726 24.00000 ?0.00000
[1] 9.000000 0.000000 5.052501 0.000000
[1] ?9.000000 ?5.052501 15.062599 ?0.000000
[1] ?9.00000 15.06260 20.92183 ?1.00000
[1] ?9.00000 20.92183 21.86589 ?0.00000
[1] ?9.00000 21.86589 24.00000 ?0.00000
[1] 10.0000 ?0.0000 11.3999 ?1.0000
[1] 10.00000 11.39990 17.13263 ?0.00000
[1] 10.00000 17.13263 24.00000 ?0.00000
[1] 11.00000 ?0.00000 11.16255 ?0.00000
[1] 11.00000 11.16255 22.78863 ?1.00000
[1] 11.00000 22.78863 24.00000 ?0.00000
[1] 12.00000 ?0.00000 ?9.17559 ?1.00000
[1] 12.000000 ?9.175590 ?9.812284 ?0.000000
[1] 12.000000 ?9.812284 15.122447 ?0.000000
[1] 12.00000 15.12245 19.82610 ?0.00000
[1] 12.0000 19.8261 24.0000 ?0.0000
[1] 13.000000 ?0.000000 ?9.593531 ?1.000000
[1] 13.000000 ?9.593531 15.633208 ?0.000000
[1] 13.00000 15.63321 17.93700 ?0.00000
[1] 13.000 17.937 24.000 ?0.000
[1] 14.000000 ?0.000000 ?3.826149 ?1.000000
[1] 14.000000 ?3.826149 ?9.580028 ?1.000000
[1] 14.000000 ?9.580028 17.948443 ?0.000000
[1] 14.00000 17.94844 19.99766 ?0.00000
[1] 14.00000 19.99766 20.60565 ?0.00000
[1] 14.00000 20.60565 23.30993 ?1.00000
[1] 14.00000 23.30993 24.00000 ?0.00000
[1] 15.0000000 ?0.0000000 ?0.3070073 ?0.0000000
[1] 15.0000000 ?0.3070073 ?4.9818421 ?1.0000000
[1] 15.000000 ?4.981842 ?6.306170 ?0.000000
[1] 15.00000 ?6.30617 17.05091 ?1.00000
[1] 15.00000 17.05091 22.98966 ?0.00000
[1] 15.00000 22.98966 24.00000 ?0.00000
[1] 16.0000000 ?0.0000000 ?0.3339885 ?1.0000000
[1] 16.0000000 ?0.3339885 ?6.3189698 ?0.0000000
[1] 16.00000 ?6.31897 11.75264 ?0.00000
[1] 16.00000 11.75264 14.64896 ?0.00000
[1] 16.00000 14.64896 15.00901 ?0.00000
[1] 16.00000 15.00901 16.88176 ?1.00000
[1] 16.00000 16.88176 19.38106 ?0.00000
[1] 16.00000 19.38106 23.10810 ?0.00000
[1] 16.0000 23.1081 24.0000 ?0.0000
[1] 17 ?0 24 ?0
[1] 18.000000 ?0.000000 ?4.410794 ?1.000000
[1] 18.000000 ?4.410794 ?5.545209 ?0.000000
[1] 18.000000 ?5.545209 ?7.051287 ?1.000000
[1] 18.000000 ?7.051287 ?8.762234 ?0.000000
[1] 18.000000 ?8.762234 10.718486 ?0.000000
[1] 18.00000 10.71849 10.79634 ?0.00000
[1] 18.00000 10.79634 24.00000 ?0.00000
[1] 19.000000 ?0.000000 ?5.969107 ?0.000000
[1] 19.000000 ?5.969107 ?9.245121 ?0.000000
[1] 19.000000 ?9.245121 12.253784 ?1.000000
[1] 19.00000 12.25378 15.81035 ?0.00000
[1] 19.00000 15.81035 24.00000 ?0.00000
[1] 20 ?0 24 ?0
But i want to take this output into data frame. Can anyone help me to do this...
Thanks,
Simbu