# mined: Minimum Energy Design In mined: Minimum Energy Designs

 mined R Documentation

## Minimum Energy Design

### Description

Generate MinED samples from an unnormalized density function.

### Usage

```mined(initial, logf, K_iter = 0)
```

### Arguments

 `initial` An n-by-p matrix containing the initial uniform samples from `[0,1]^p`. `logf` An R function to compute the logarithm of unnormalized density function. The input region should be scaled in `[0,1]^p`. `K_iter` The number of iteration steps for annealed version of the unnormalized posterior density. Optional, default is `0`. If `0`, `K_iter = ceiling(4 * sqrt(p))` is used.

### Details

This is the main function of the package, which is used for generating the MinED samples. The MinED sample can be viewed as a deterministic sample from the probability density specified in the mined function. Since only the unnormalized density is needed to generate the MinED samples, this method could be used in Bayesian computation to approximate the posterior. The method uses few evaluations of the unnormalized posterior compared to random sampling-based methods and therefore, it will be useful when the evaluations are expensive or time consuming.

There are many parameters that control the performance of the algorithm, which are fixed at some reasonable values as specified in Joseph et al. (2019). The only thing user need to choose is the region for scaling the variables in [0,1]^p. Ideally it should be the highercube containing the highest posterior density region with good coverage. However, the algorithm is robust to this choice to some extend as it can shrink or expand from the intial region. Therefore, it can be chosen based on user's guessed range of each variable.

### Value

The value returned from the function is a list containing the following components:

 `points` A matrix containing `n` MinED samples. `logf` Log-unnormalized density function values of MinED samples. `cand` Full set of samples used in the algorithm. `candlf` Log-unormalized density function values of the samples in `cand`.

### Author(s)

Dianpeng Wang <wdp@bit.edu.cn> and V. Roshan Joseph <roshan@gatech.edu>

### References

Joseph, V. R., Wang, D., Gu, L., Lv, S., and Tuo, R. (2019). "Deterministic Sampling of Expensive Posteriors Using Minimum Energy Designs", Technometrics, 61, 297-308, arXiv:1712.08929, DOI:10.1080/00401706.2018.1552203.

### Examples

```require(mined)
p <- 2
n <- 109 # largest prime number less than 100+5p
initial <- Lattice(n, p)

# suppose x1 is in [-40,40] and x2 in [-25,10]
logf <- function(para)
{
l1 <- -40
u1 <- 40
l2 <- -25
u2 <- 10
x1 <- l1 + (u1 - l1) * para
x2 <- l2 + (u2 - l2) * para
val <- -.5 * (x1 ^2 / 100 + (x2+ .03 * x1^2 -3)^2)
return(val)
}

res <- mined::mined(initial, logf, K_iter = 8)
dim(res\$points)
dim(res\$cand)

x1 <- seq(0, 1, length.out = 200)
x2 <- seq(0, 1, length.out = 200)
y <- matrix(0.0, 200, 200)
for(i in 1:200)
{
for(j in 1:200)
{
y[i, j] = logf(c(x1[i], x2[j]))
}
}
image(x1, x2, exp(y), col = cm.colors(5), xlab = expression(x), ylab = expression(x))
points(res\$cand[, 1], res\$cand[, 2], pch = 11, col = rgb(red = 0, green = 0, blue = 1,
alpha = 0.35), cex = .25)
points(res\$points[, 1], res\$points[, 2], pch = 17, col = 'black', cex = .75)
legend("bottom", c('Candidates points', 'MinED samples'), pch = c(11, 17),
col = c(rgb(red = 0, green = 0, blue = 1, alpha = 0.35), 'black'),
inset = .02, bg = 'transparent', bty = 'n')
```

mined documentation built on June 27, 2022, 1:06 a.m.