Rev 104 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed
bladder <- read.table('data.bladder4',col.names=c('id', 'rx', 'number', 'size', 'start', 'stop','event', 'enum'))bladder2 <- bladder[bladder$start< bladder$stop, ]bladder$start <- NULLbladder <- bladder[bladder$enum<5,]