Nothing
## Test indirect advector methods
library(RTMB)
x <- advector(1:3)
## Method call: outer -> Ops with re-cycling
expect_true(is(outer(x,x,"+"), "advector"))
expect_true(is(outer(1:3,x,"+"), "advector"))
expect_true(is(outer(x,1:3,"+"), "advector"))
## See ?crossprod: **These are generic functions since R 4.4.0**
if (getRversion() >= "4.4.0") {
## Method call: outer -> tcrossprod
expect_true(is(outer(x,x), "advector"))
expect_true(is(outer(1:3,x), "advector"))
expect_true(is(outer(x,1:3), "advector"))
## Method call: kronecker -> outer -> tcrossprod
expect_true(is(kronecker(x,x), "advector"))
expect_true(is(kronecker(1:3,x), "advector"))
expect_true(is(kronecker(x,1:3), "advector"))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.