Simulate a multivariate matrix of random numbers from specified theoretical probability distributions and/or empirical probability distributions based on a specified rank correlation matrix, using either Latin Hypercube sampling or simple random sampling.

1 2 3 4 5 6 7 | ```
simulateMvMatrix(n, distributions = c(Var.1 = "norm", Var.2 = "norm"),
param.list = list(Var.1 = list(mean = 0, sd = 1), Var.2 = list(mean = 0, sd = 1)),
cor.mat = diag(length(distributions)), sample.method = "SRS", seed = NULL,
left.tail.cutoff = ifelse(is.finite(supp.min), 0, .Machine$double.eps),
right.tail.cutoff = ifelse(is.finite(supp.max), 0, .Machine$double.eps),
tol.1 = .Machine$double.eps, tol.symmetry = .Machine$double.eps,
tol.recip.cond.num = .Machine$double.eps, max.iter = 10)
``` |

`n` |
a positive integer indicating the number of random vectors (i.e., the number of rows of the matrix) to generate. |

`distributions` |
a character vector of length Alternatively, the character string |

`param.list` |
a list containing Alternatively, if you specify an empirical distribution for the |

`cor.mat` |
a |

`sample.method` |
a character vector of length 1 or |

`seed` |
integer to supply to the |

`left.tail.cutoff` |
a numeric vector of length |

`right.tail.cutoff` |
a numeric vector of length |

`tol.1` |
a positive numeric scalar indicating the allowable absolute deviation
from 1 for the diagonal elements of |

`tol.symmetry` |
a positive numeric scalar indicating the allowable absolute deviation from
0 for the difference between symmetric elements of |

`tol.recip.cond.num` |
a positive numeric scalar indicating the allowable minimum value of the
reciprocal of the condition number for |

`max.iter` |
a positive integer indicating the maximum number of iterations to use to
produce the |

**Motivation**

In risk assessment and Monte Carlo simulation, the outcome variable of interest,
say *Y*, is usually some function of one or more other random variables:

*Y = h(\underline{X}) = h(X_1, X_2, …, X_k) \;\;\;\;\;\; (1)*

For example, *Y* may be the incremental lifetime cancer risk due to
ingestion of soil contaminated with benzene (Thompson et al., 1992;
Hamed and Bedient, 1997). In this case the random vector *\underline{X}*
may represent observations from several kinds of distributions that characterize
exposure and dose-response, such as benzene concentration in the soil,
soil ingestion rate, average body weight, the cancer potency factor for benzene,
etc. These distributions may or may not be assumed to be independent of one
another (Smith et al., 1992; Bukowski et al., 1995). Often, input variables in a
Monte Carlo simulation are in fact known to be correlated, such as body weight
and dermal area.

Characterizing the joint distribution of a random vector *\underline{X}*,
where different elements of *\underline{X}* come from different distributions,
is usually mathematically complex or impossible unless the elements
(random variables) of *\underline{X}* are independent.
Iman and Conover (1982) present an algorithm for creating a set of *n*
multivariate observations with a rank correlation matrix that is approximately
equal to a specified rank correlation matrix. This method allows for different
probability distributions for each element of the multivariate vector. The
details of this algorithm are as follows.

**Algorithm**

Specify

*n*, the desired number of random vectors (i.e., number of rows of the*n \times k*output matrix). This is specified by the argument`n`

for the function`simulateMvMatrix`

.Create

*C*, the desired*k \times k*correlation matrix. This is specified by the argument`cor.mat`

.Compute

*P*, where*P*is a lower triangular*k \times k*matrix and*PP^{'} = C \;\;\;\;\;\; (2)*where

*P^{'}*denotes the transpose of*P*. The function`simulateMvMatrix`

uses the Cholesky decomposition to compute P (see the**R**help file for`chol`

).Create

*R*, an*n \times k*matrix, whose columns represent*k*independent permutations of van der Waerden scores. That is, each column of*R*is a random permutation of the scores*Φ^{-1}(\frac{i}{n+1}), \; i = 1, 2, …, n \;\;\;\;\;\; (3)*where

*Φ*denotes the cumulative distribution function of the standard normal distribution.Compute

*T*, the*k \times k*Pearson sample correlation matrix of*R*. Make sure*T*is positive definite; if it is not, then repeat step 4.Compute

*Q*, where*Q*is a lower triangular*k \times k*matrix and*QQ^{'} = T \;\;\;\;\;\; (4)*The function

`simulateMvMatrix`

uses the Cholesky decomposition to compute*Q*(see the**R**help file for`chol`

).Compute the lower triangular

*k \times k*matrix*S*, where*S = PQ^{-1} \;\;\;\;\;\; (5)*Compute the matrix

*R^{*}*, where*R^{*} = RS^{'} \;\;\;\;\;\; (6)*Generate an

*n \times k*matrix of random numbers*\underline{X}*, where each column of*\underline{X}*comes from the distribution specified by the arguments`distributions`

and`param.list`

. Generate each column of random numbers independently of the other columns. If the*j*'th element of`sample.method`

equals`"SRS"`

, use simple random sampling to generate the random numbers for the*j*'th column of*\underline{X}*. If the*j*'th element of`sample.method`

equals`"LHS"`

, use Latin Hypercube sampling to generate the random numbers for the*j*'th column of*\underline{X}*. At this stage in the algorithm, the function`simulateMvMatrix`

calls the function`simulateVector`

to create each column of*\underline{X}*.Order the observations within each column of

*\underline{X}*so that the order of the ranks within each column of*\underline{X}*matches the order of the ranks within each column of*R^{*}*. This way,*\underline{X}*and*R^{*}*have exactly the same sample rank correlation matrix.

**Explanation**

Iman and Conover (1982) present two algorithms for computing an *n \times k*
output matrix with a specified rank correlation. The algorithm presented above is
the second, more complicated one. In order to explain the reasoning behind this
algorithm, we need to explain the simple algorithm first.

*Simple Algorithm*

Let *R_i* denote the *i*'th row vector of the matrix *R*, the
matrix of scores. This row vector has a population correlation matrix of *I*,
where *I* denotes the *k \times k* identity matrix. Thus, the
*1 \times k* vector *R_i P^{'}* has a population correlation matrix equal to
*C*. Therefore, if we define *R^{*}* by

*R^{*} = RP^{'} \;\;\;\;\;\; (7)*

each row of *R^{*}* has the same multivariate distribution with population
correlation matrix *C*. The rank correlation matrix of *R^{*}* should
therefore be close to *C*. Ordering the columns of *\underline{X}* as
described in Step 10 above will yield a matrix of observations with the
specified distributions and the exact same rank correlation matrix as the
rank correlation matrix of *R^{*}*.

Iman and Conover (1982) use van der Waerden scores instead of raw ranks to create
*R* because van der Waerden scores yield more "natural-looking" pairwise
scatterplots.

If the Pearson sample correlation matrix of *R*, denoted *T* in Step 5
above, is exactly equal to the true population correlation matrix *I*,
then the sample correlation matrix of *R^{*}* is exactly equal to *C*,
and the rank correlation matrix of *R^{*}* is approximately equal to *C*.
The Pearson sample correlation matrix of *R*, however, is an estimate of the
true population correlation matrix *I*, and is therefore
“bouncing around” *I*. Likewise, the Pearson sample correlation matrix
of *R^{*}* is an estimate of the true population correlation matrix *C*,
and is therefore bouncing around *C*. Using this simple algorithm, the
Pearson sample correlation matrix of *R^{*}*, as *R^{*}* is defined in
Equation (7) above, may not be “close” enough to the desired rank
correlation matrix *C*, and thus the rank correlation of *R^{*}* will not
be close enough to *C*. Iman and Conover (1982), therefore present a more
complicated algorithm.

*More Complicated Algorithm*

To get around the problem mentioned above, Iman and Conover (1982) find a
*k \times k* lower triangular matrix *S* such that the matrix *R^{*}*
as defined in Equation (6) above has a correlation matrix exactly equal to *C*.
The formula for *S* is given in Steps 6 and 7 of the algorithm above.

Iman and Conover (1982, p.330) note that even if the desired rank correlation matrix
*C* is in fact the identity matrix *I*, this method of generating the
matrix will produce a matrix with an associated rank correlation that more closely
resembles *I* than you would get by simply generating random numbers within
each column of *\underline{X}*.

A numeric matrix of dimension *n \times k* of random numbers,
where the *j*'th column of numbers comes from the distribution
specified by the *j*'th elements of the arguments `distributions`

and `param.list`

, and the rank correlation of this matrix is
approximately equal to the argument `cor.mat`

. The value of *n*
is determined by the argument `n`

, and the value of *k* is
determined by the length of the argument `distributions`

.

Monte Carlo simulation and risk assessment often involve looking at the distribution or characteristics of the distribution of some outcome variable that depends upon several input variables (see Equation (1) above). Usually these input variables can be considered random variables. An important part of both sensitivity analysis and uncertainty analysis involves looking at how the distribution of the outcome variable changes with changing assumptions on the input variables. One important assumption is the correlation between the input random variables.

Often, the input random variables are assumed to be independent when in fact they are know to be correlated (Smith et al., 1992; Bukowski et al., 1995). It is therefore important to assess the effect of the assumption of independence on the distribution of the outcome variable. One way to assess the effect of this assumption is to run the Monte Carlo simulation assuming independence and then also run it assuming certain forms of correlations among the input variables.

Iman and Davenport (1982) present a series of scatterplots showing “typical”
scatterplots with various distributions on the *x*- and *y*-axes and
various assumed rank correlations. These plots are meant to aid in developing
reasonable estimates of rank correlation between input variables. These plots can
easily be produced using the `simulateMvMatrix`

and `plot`

functions.

Steven P. Millard (EnvStats@ProbStatInfo.com)

Bukowski, J., L. Korn, and D. Wartenberg. (1995).
Correlated Inputs in Quantitative Risk Assessment: The Effects of Distributional
Shape. *Risk Analysis* **15**(2), 215–219.

Hamed, M., and P.B. Bedient. (1997). On the Effect of Probability Distributions
of Input Variables in Public Health Risk Assessment. *Risk Analysis*
**17**(1), 97–105.

Iman, R.L., and W.J. Conover. (1980). Small Sample Sensitivity Analysis
Techniques for Computer Models, With an Application to Risk Assessment
(with Comments). *Communications in Statistics–Volume A, Theory and Methods*,
**9**(17), 1749–1874.

Iman, R.L., and W.J. Conover. (1982). A Distribution-Free Approach to Inducing
Rank Correlation Among Input Variables.
*Communications in Statistics–Volume B, Simulation and Computation*,
**11**(3), 311–334.

Iman, R.L., and J.M. Davenport. (1982). Rank Correlation Plots For Use With
Correlated Input Variables.
*Communications in Statistics–Volume B, Simulation and Computation*,
**11**(3), 335–360.

Iman, R.L., and J.C. Helton. (1988). An Investigation of Uncertainty and
Sensitivity Analysis Techniques for Computer Models. *Risk Analysis*
**8**(1), 71–90.

Iman, R.L. and J.C. Helton. (1991). The Repeatability of Uncertainty and
Sensitivity Analyses for Complex Probabilistic Risk Assessments.
*Risk Analysis* **11**(4), 591–606.

McKay, M.D., R.J. Beckman., and W.J. Conover. (1979). A Comparison of Three
Methods for Selecting Values of Input Variables in the Analysis of Output
From a Computer Code. *Technometrics* **21**(2), 239–245.

Millard, S.P. (2013). *EnvStats: an R Package for Environmental Statistics*.
Springer, New York. http://www.springer.com/book/9781461484554.

Smith, A.E., P.B. Ryan, and J.S. Evans. (1992). The Effect of Neglecting
Correlations When Propagating Uncertainty and Estimating the Population
Distribution of Risk. *Risk Analysis* **12**(4), 467–474.

Thompson, K.M., D.E. Burmaster, and E.A.C. Crouch. (1992). Monte Carlo Techniques
for Quantitative Uncertainty Analysis in Public Health Risk Assessments.
*Risk Analysis* **12**(1), 53–63.

Vose, D. (2008). *Risk Analysis: A Quantitative Guide*. Third Edition.
John Wiley & Sons, West Sussex, UK, 752 pp.

Probability Distributions and Random Numbers, Empirical,
`simulateVector`

, `cor`

, `set.seed`

.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 | ```
# Generate 5 observations from a standard bivariate normal distribution
# with a rank correlation matrix (approximately) equal to the 2 x 2
# identity matrix, using simple random sampling for each
# marginal distribution.
simulateMvMatrix(5, seed = 47)
# Var.1 Var.2
#[1,] 0.01513086 0.03960243
#[2,] -1.08573747 0.09147291
#[3,] -0.98548216 0.49382018
#[4,] -0.25204590 -0.92245624
#[5,] -1.46575030 -1.82822917
#==========
# Look at the observed rank correlation matrix for 100 observations
# from a standard bivariate normal distribution with a rank correlation matrix
# (approximately) equal to the 2 x 2 identity matrix. Compare this observed
# rank correlation matrix with the observed rank correlation matrix based on
# generating two independent sets of standard normal random numbers.
# Note that the cross-correlation is closer to 0 for the matrix created with
# simulateMvMatrix.
cor(simulateMvMatrix(100, seed = 47), method = "spearman")
# Var.1 Var.2
#Var.1 1.000000000 -0.005976598
#Var.2 -0.005976598 1.000000000
cor(matrix(simulateVector(200, seed = 47), 100 , 2), method = "spearman")
# [,1] [,2]
#[1,] 1.00000000 -0.05374137
#[2,] -0.05374137 1.00000000
#==========
# Generate 1000 observations from a bivariate distribution, where the first
# distribution is a normal distribution with parameters mean=10 and sd=2,
# the second distribution is a lognormal distribution with parameters
# mean=10 and cv=1, and the desired rank correlation between the two
# distributions is 0.8. Look at the observed rank correlation matrix, and
# plot the results.
mat <- simulateMvMatrix(1000,
distributions = c(N.10.2 = "norm", LN.10.1 = "lnormAlt"),
param.list = list(N.10.2 = list(mean=10, sd=2),
LN.10.1 = list(mean=10, cv=1)),
cor.mat = matrix(c(1, .8, .8, 1), 2, 2), seed = 47)
round(cor(mat, method = "spearman"), 2)
# N.10.2 LN.10.1
#N.10.2 1.00 0.78
#LN.10.1 0.78 1.00
dev.new()
plot(mat, xlab = "Observations from N(10, 2)",
ylab = "Observations from LN(mean=10, cv=1)",
main = "Lognormal vs. Normal Deviates with Rank Correlation 0.8")
#----------
# Repeat the last example, but use Latin Hypercube sampling for both
# distributions. Note the wider range on the y-axis.
mat.LHS <- simulateMvMatrix(1000,
distributions = c(N.10.2 = "norm", LN.10.1 = "lnormAlt"),
param.list = list(N.10.2 = list(mean=10, sd=2),
LN.10.1 = list(mean=10, cv=1)),
cor.mat = matrix(c(1, .8, .8, 1), 2, 2),
sample.method = "LHS", seed = 298)
round(cor(mat.LHS, method = "spearman"), 2)
# N.10.2 LN.10.1
#N.10.2 1.00 0.79
#LN.10.1 0.79 1.00
dev.new()
plot(mat.LHS, xlab = "Observations from N(10, 2)",
ylab = "Observations from LN(mean=10, cv=1)",
main = paste("Lognormal vs. Normal Deviates with Rank Correlation 0.8",
"(Latin Hypercube Sampling)", sep = "\n"))
#==========
# Generate 1000 observations from a multivariate distribution, where the
# first distribution is a normal distribution with parameters
# mean=10 and sd=2, the second distribution is a lognormal distribution
# with parameters mean=10 and cv=1, the third distribution is a beta
# distribution with parameters shape1=2 and shape2=3, and the fourth
# distribution is an empirical distribution of 100 observations that
# we'll generate from a Pareto distribution with parameters
# location=10 and shape=2. Set the desired rank correlation matrix to:
cor.mat <- matrix(c(1, .8, 0, .5, .8, 1, 0, .7,
0, 0, 1, .2, .5, .7, .2, 1), 4, 4)
cor.mat
# [,1] [,2] [,3] [,4]
#[1,] 1.0 0.8 0.0 0.5
#[2,] 0.8 1.0 0.0 0.7
#[3,] 0.0 0.0 1.0 0.2
#[4,] 0.5 0.7 0.2 1.0
# Use Latin Hypercube sampling for each variable, look at the observed
# rank correlation matrix, and plot the results.
pareto.rns <- simulateVector(100, "pareto",
list(location = 10, shape = 2), sample.method = "LHS",
seed = 56)
mat <- simulateMvMatrix(1000,
distributions = c(Normal = "norm", Lognormal = "lnormAlt",
Beta = "beta", Empirical = "emp"),
param.list = list(Normal = list(mean=10, sd=2),
Lognormal = list(mean=10, cv=1),
Beta = list(shape1 = 2, shape2 = 3),
Empirical = list(obs = pareto.rns)),
cor.mat = cor.mat, seed = 47, sample.method = "LHS")
round(cor(mat, method = "spearman"), 2)
# Normal Lognormal Beta Empirical
#Normal 1.00 0.78 -0.01 0.47
#Lognormal 0.78 1.00 -0.01 0.67
#Beta -0.01 -0.01 1.00 0.19
#Empirical 0.47 0.67 0.19 1.00
dev.new()
pairs(mat)
#==========
# Clean up
#---------
rm(mat, mat.LHS, pareto.rns)
graphics.off()
``` |

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.

All documentation is copyright its authors; we didn't write any of that.