
Last chance! 50% off unlimited learning
Sale ends in
# NOT RUN {
showClass("abIndex")
ii <- c(-3:40, 20:70)
str(ai <- as(ii, "abIndex"))# note
ai # -> show() method
# }
# NOT RUN {
<!-- %% FIXME: add / exchange with ../tests/abIndex-tsts.R -->
# }
# NOT RUN {
stopifnot(identical(-3:20,
as(abIseq1(-3,20), "vector")))
# }
Run the code above in your browser using DataLab