Nothing
cat(crayon::yellow("\ntest HLCor:"))
# HLCor
if (spaMM.getOption("example_maxtime")>1.5) { # test no longer fvery informative, cf related test in test-predVar
data("Loaloa")
hl <- HLCor(cbind(npos,ntot-npos)~elev1+elev2+elev3+elev4+maxNDVI1+seNDVI
+Matern(1|longitude+latitude),data=Loaloa,
family=binomial(),ranPars=list(nu=0.5,rho=1/0.7))
testthat::expect_equal(hl$APHLs$p_v,-645.7328,tolerance=1e-04)
}
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.