Nothing

```
context("Test for lets.addvar")
data(PAM)
data(temp)
tempstack <- stack(temp, temp)
test_that("lets.addvar works fine", {
PAM_temp_mean <- lets.addvar(PAM, temp)
expect_true(class(PAM_temp_mean) == "matrix")
expect_true(ncol(as.matrix(PAM_temp_mean)) == (ncol(PAM[[1]]) + 1))
})
test_that("lets.addvar works fine, different fun", {
PAM_temp_mean <- lets.addvar(PAM, temp, fun = sd)
expect_true(class(PAM_temp_mean) == "matrix")
expect_true(ncol(as.matrix(PAM_temp_mean)) == (ncol(PAM[[1]]) + 1))
})
test_that("lets.addvar works fine, onlyvar = TRUE", {
PAM_temp_mean <- lets.addvar(PAM, temp, onlyvar = TRUE)
expect_true(class(PAM_temp_mean) == "matrix")
expect_true(ncol(as.matrix(PAM_temp_mean)) == 1)
})
test_that("lets.addvar works fine, multiple rasters", {
PAM_temp_mean <- lets.addvar(PAM, tempstack)
expect_true(class(PAM_temp_mean) == "matrix")
expect_true(ncol(as.matrix(PAM_temp_mean)) == (ncol(PAM[[1]]) + 2))
})
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.