Nothing
library(oce)
test_that("curl 1", {
lat <- c(85, 82.5, 80, 77.5)
lon <- c(160, 162.5, 165, 167.5)
taux <- matrix(c(1, 6, 9, 3, 7, 11, 14, 10, 4, 13, 2, 12, 16, 8, 15, 5), nrow=4, ncol=4, byrow=TRUE)
tauy <- matrix(c(3, 20, 1, 14, 1, 19, 2, 6, 21, 13, 28, 16, 24, 4, 15, 17), nrow=4, ncol=4, byrow=TRUE)
C <- curl(u=taux, v=tauy, x=lon, y=lat, geographical=TRUE, method=2)
expect_equal(C$curl[1, 1], -0.000033388485)
expect_equal(C$x[1], 161.25)
expect_equal(C$y[1], 83.75)
})
test_that("curl 2", {
x <- 1:4
y <- 1:10
u <- outer(x, y, function(x, y) y/2)
v <- outer(x, y, function(x, y) -x/2)
C1 <- curl(u=u, v=v, x=x, y=y, geographical=FALSE, method=1)
expect_equal(C1$curl, matrix(-1, nrow=4, ncol=10))
C2 <- curl(u=u, v=v, x=x, y=y, geographical=FALSE, method=2)
expect_equal(C2$curl, matrix(-1, nrow=3, ncol=9))
})
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.