Skip to content
Prev 308290 / 398503 Next

replacing random repeated numbers with a series of sequenced numbers

Hello,

Try the following.

dat <- read.table(text="
ID
1001
1001
1001
1122
1122
1122
1421
1421
1789
1789
", header = TRUE)

r <- rle(dat$ID)
dat$SID <- rep(seq_along(r$lengths), r$lengths) + 1000

Hope this helps,

Rui Barradas
Em 18-10-2012 02:16, york8866 escreveu: