#bug fix
unique.consecutive <- function (x)
{ dx <- diff (x)
x [c (TRUE, dx != 0)]
}______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
