## ## f i n d . R tests ## finds <- pracma::finds v <- c(3, 2, 1, 1, 2, 3) identical(finds(v == 1), c(3L, 4L)) v <- c(1, 0, 4, -3, 0, 0, 0, 8, 6) identical(finds(v), as.integer(c(1, 3, 4, 8, 9))) identical(finds(v > 2), c(3L, 8L, 9L)) identical(finds(c()), integer(0)) identical(finds(c(TRUE, FALSE, TRUE, FALSE, TRUE)), c(1L, 3L, 5L))
Generated by dwww version 1.15 on Thu May 23 02:25:41 CEST 2024.