lbm_parameters = function( p=NULL ) {
# some generic defaults
if (is.null(p)) stop( "Parameter list is not structured properly" )
if (!exists("lbm_current_status", p)) p$lbm_current_status = file.path( p$savedir, "lbm_current_status" )
if (!exists("clusters", p)) p$clusters = rep("localhost", detectCores() ) # default if not given
if( !exists( "storage.backend", p)) p$storage.backend="bigmemory.ram"
if( !exists( "lbm_variogram_method", p)) p$lbm_variogram_method="fast" # note GP methods are slow when there is too much data
if (!exists( "lbm_local_family", p)) p$lbm_local_family = gaussian()
if (!exists( "lbm_global_family", p)) p$lbm_global_family = gaussian()
if (!exists( "lbm_eps", p)) p$lbm_eps = 0.001 # distance units for eps noise to permit mesh gen for boundaries
if (!exists( "lbm_quantile_bounds", p)) p$lbm_quantile_bounds = c(0.01, 0.99) # remove these extremes in interpolations
if (!exists( "eps", p)) p$eps = 1e-6 # floating point precision
if (!exists( "boundary", p)) p$boundary = FALSE
if (!exists( "depth.filter", p)) p$depth.filter = FALSE # depth is given as log(depth) so, choose andy stats locations with elevation > 1 m as being on land
if (!exists( "lbm_kernelmethods_use_all_data", p)) p$lbm_kernelmethods_use_all_data =TRUE ## speed and RAM usage improvement is minimal (if any) when off, leave on or remove option and fix as on
if (!exists( "lbm_multiplier_stage2", p) ) p$lbm_multiplier_stage2 = c( 1.1, 1.25 ) # distance multiplier for stage 2 interpolations
# used by "fields" GRMF functions
if ( p$lbm_local_modelengine %in% c("gaussianprocess2Dt", "gaussianprocess" )) {
if (!exists("phi.grid", p) ) p$phi.grid = 10^seq( -6, 6, by=0.5) * p$lbm_distance_scale # maxdist is aprox magnitude of the phi parameter
if (!exists("lambda.grid", p) ) p$lambda.grid = 10^seq( -9, 3, by=0.5) # ratio of tau sq to sigma sq
}
if ( p$lbm_local_modelengine %in% c("gam" )) {
# p$lbm_gam_optimizer=c("outer","optim")
if (!exists("lbm_gam_optimizer", p)) p$lbm_gam_optimizer=c("outer","bfgs")
# if (!exists("lbm_gam_optimizer", p)) p$lbm_gam_optimizer="perf"
}
if ( p$lbm_local_modelengine %in% c("krige" )) {
# nothing to add yet ..
}
return(p)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.