powered by
bounds
unbound(start, end)
test <- c(seq(1,5,1),8,seq(10,15,1)) b <- bounds(test) unbound(b[,"start"],b[,"end"])
Run the code above in your browser using DataLab