default.arguments <- list(
"AlphaPriorMu" = 0,
"AlphaPriorSd" = 1000,
"logWeibullScaleNormalPriorMean" = 0,
"logWeibullScaleNormalPriorSd" = 1000,
"DirichletConcentration_GammaArg1" = 100,
"DirichletConcentration_GammaArg2" = 1,
"DirichletConcentration_Minimum" = 1,
"GaussianResidualPriorFamily" = 2,
"GaussianResidualPrior_UnifArg1" = 0,
"GaussianResidualPrior_UnifArg2" = 2,
"GaussianResidualVarianceInvGammaPrior_a" = 0.01,
"GaussianResidualVarianceInvGammaPrior_b" = 0.01,
"aucMultiplierWeight" = 1,
"Alpha_Initial_Value" =0,
"Beta_Initial_Value" =0,
"WeibullScale_Initial_Value" =1,
"DirichletConcentration_Initial_Value" =1,
"GaussianResidual_Initial_Value" =1,
"Adaption_Bin" = 100,
"Adaption_Iterations" = 100000,
"Delete_Move_Probability" = 0.2,
"Add_Move_Probability" =0.2,
"Swap_Move_Probability" =0.2,
"Alpha_Initial_Proposal_Sd" =0.1,
"Beta_Initial_Proposal_Sd" =0.05,
"Beta_Prec_Initial_Proposal_Sd" =0.1,
"WeibullScale_Initial_ProposalSd" =0.1,
"DirichletConcentration_Initial_ProposalSd" =0.1,
"LogGaussianResidual_Initial_ProposalSd" =0.1,
"Tau_Initial_ProposalSd" = 0.05,
"BetaAdd_Initial_Proposal_Sd" =0.1,
"BetaSwap_Initial_Proposal_Sd" =0.001,
"Alt_Saturated_Initial_Model" =0,
"Alt_Alpha_Initial_Value" =1,
"Alt_Beta_Initial_Value" =1,
"Alt_WeibullScale_Initial_Value" =1.25
)
save(default.arguments,
file="~/Dropbox/Work Projects/R Packages/R2BGLiMS/data/DefaultArguments.rda")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.