# NOT RUN {
SA <- c(34.7118, 34.8915, 35.0256, 34.8472, 34.7366, 34.7324)
pt <- c(28.7832, 28.4209, 22.7850, 10.2305, 6.8292, 4.3245)
r <- gsw_CT_second_derivatives(SA, pt)
expect_equal(r$CT_SA_SA/1e-3, c(-0.060718502077064, -0.062065324400873, -0.084017055354742,
-0.148436050120131, -0.171270386500246, -0.189920754900116))
expect_equal(r$CT_SA_pt, c(-0.001197415000869, -0.001198309530139, -0.001226523296082,
-0.001335896286481, -0.001380492698572, -0.001417751669135))
expect_equal(r$CT_pt_pt/1e-3, c(0.123012754427146, 0.124662008871271, 0.140829458783443,
0.140646803448166, 0.113684095615077, 0.082286843477998))
# }
Run the code above in your browser using DataLab