View source: R/gsaot_indices.R
print.gsaot_indices | R Documentation |
Print Optimal Transport Sensitivity indices information
## S3 method for class 'gsaot_indices'
print(x, data = FALSE, ...)
x |
An object generated by |
data |
Logical, indicating whether or not the input and output data should be printed. |
... |
Further arguments passed to or from other methods. |
The information contained in argument x
N <- 1000
mx <- c(1, 1, 1)
Sigmax <- matrix(data = c(1, 0.5, 0.5, 0.5, 1, 0.5, 0.5, 0.5, 1), nrow = 3)
x1 <- rnorm(N)
x2 <- rnorm(N)
x3 <- rnorm(N)
x <- cbind(x1, x2, x3)
x <- mx + x %*% chol(Sigmax)
A <- matrix(data = c(4, -2, 1, 2, 5, -1), nrow = 2, byrow = TRUE)
y <- t(A %*% t(x))
x <- data.frame(x)
M <- 25
# Calculate sensitivity indices
sensitivity_indices <- ot_indices(x, y, M)
print(sensitivity_indices)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.