I was looking at the code in seq.default and saw code that I think would throw
an error if it were ever executed, although it will not because there is first
a test to see if one of its arguments is missing. Near the end of the function
body is this code:
else if (missing(by)) {
if (missing(to))
to <- from + length.out - 1L
if (missing(from))
from <- to - length.out + 1L
if (length.out > 2L)
if (from == to)
rep.int(from, length.out)
else as.vector(c(from, from + seq_len(length.out -
2L) * by, to))
Notice that the last call to `else` would be returning a value calculated with
'by' which was already established as missing.
--
David Winsemius
Alameda, CA, USA
______________________________________________
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.
