Nothing
np_gibbs = function (xh, inicost, k, mutsizp, prob, data_x, data_y, prior_p, prior_st)
{
dm = ncol(data_x)
data_num = nrow(data_x)
dv = rn = vector(, dm)
alpharm = -qnorm(prob/2)
fx = inicost
sum = 0
for (i in 1:dm)
{
rn[i] = rnorm(1)
sum = sum + rn[i]^2
}
for (i in 1:dm)
{
dv[i] = rn[i]/sqrt(sum) * rnorm(1) * mutsizp
xh[i] = xh[i] + dv[i]
}
fy = cost_gaussian(xh, data_x, data_y, prior_p = prior_p, prior_st = prior_st)
r = fx - fy
if(class(r) != "numeric")
{
stop("Please re-run the code.")
}
if (r > 0)
{
accept = 1
}
else
{
if (runif(1) < exp(r))
{
accept = 1
}
else
{
accept = 0
}
}
c = mutsizp * ((1 - 1/dm) * sqrt(2 * pi) * exp(alpharm^2/2))/(2 * alpharm) + 1/(dm * prob * (1 - prob))
if (accept == 1)
{
accept_h = 1
inicost = fy
mutsizp = mutsizp + c * (1 - prob)/k
}
else
{
accept_h = 0
for (i in 1:dm)
{
xh[i] = xh[i] - dv[i]
}
mutsizp = mutsizp - c * prob/k
}
tmp = cost2_gaussian(xh, data_x, data_y, prior_st = prior_st)
un = rgamma(1, 0.5 * (data_num + prior_p), tmp)
sigma2 = 1/un
return(list(x = xh, sigma2 = sigma2, cost = inicost, accept_h = accept_h, mutsizp = mutsizp))
}
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.