Update sequence.R

test