s1 <- seq(0, 1, by = 0.05)
    intervals <- Map(c, s1[-length(s1)], s1[-1])
    intervals[[length(intervals)]][2] <- intervals[[length(intervals)]][2]+0.1

newvals <- seq(1,length(intervals),1)

#### HERE I WOULD LIKE TO HAVE A VECTOR IN THE FOLLOWING PATTERN
####UP TO THE LAST ELEMENT OF THE LIST:

stringreclass <- c(intervals[[1]],newvals[1]), .... , intervals[[20]],newvals[20])