Skip to content
Prev 243649 / 398525 Next

Sequence for repeated numbers

Try this:

id <- 1:20
grade <- c(4,4,4,5,5,7,7,7,7,8,8,8,9,9,9,9,9,10,10,10)

sequence <- ave( id, grade, FUN=seq )

# if grade is not sorted
grade2 <- sample(grade)
sequence2 <- ave( id, grade2, FUN=seq )

cbind( grade2, sequence2 )