# 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)
r <- gsw_entropy_second_derivatives(SA, CT)
expect_equal(r$eta_SA_SA, c(-0.007627718929669, -0.007591969960708, -0.007528186784540,
-0.007455177590576, -0.007441108287466, -0.007414368396280))
expect_equal(r$eta_SA_CT, c(-0.001833104216751, -0.001819473824306, -0.001580843823414,
-0.000930111408561, -0.000717011215195, -0.000548410546830))
expect_equal(r$eta_CT_CT, c(-0.043665023731109, -0.043781336189326, -0.045506114440888,
-0.049708939454018, -0.050938690879443, -0.051875017843472))
# }
Run the code above in your browser using DataLab