# NOT RUN {
SA <- c(34.7118, 34.8915, 35.0256, 34.8472, 34.7366, 34.7324)
CT <- c(28.8099, 28.4392, 22.7862, 10.2262, 6.8272, 4.3236)
p <- c( 10, 50, 125, 250, 600, 1000)
r <- gsw_specvol_first_derivatives(SA, CT, p)
expect_equal(r$v_SA/1e-6, c(-0.702149096451073, -0.702018847212088, -0.708895319156155,
-0.730208155560782, -0.733175729406169, -0.733574625737474))
expect_equal(r$v_CT/1e-6, c(0.317700378655437, 0.315628863649601, 0.274441877830800,
0.168516613901993, 0.142051181824820, 0.125401683814057))
expect_equal(r$v_p/1e-12, c(-0.402527990904794, -0.402146232553089, -0.406663124765787,
-0.423877042622481, -0.426198431093548, -0.426390351853055))
# }
Run the code above in your browser using DataLab