Bonjour,

Deux possibilités :
rle(TRAME)$values
TRAME[c(TRUE,TRAME[-1]!=TRAME[-length(TRAME)])]
cdlt