WRITE_ARGUMENTS.R

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")
pjnewcombe/R2BGLiMS documentation built on Feb. 10, 2020, 8:52 p.m.