Dim = 2
distX1 <- list(type='Norm', MEAN=0.0, STD=1.0, P1=NULL, P2=NULL, NAME='X1')
distX2 <- list(type='Norm', MEAN=0.0, STD=1.0, P1=NULL, P2=NULL, NAME='X2')
input.margin <- list(distX1,distX2)
input.Rho <- matrix( c(1.0, 0.5,
0.5, 1.0),nrow=Dim)
input.R0 <- ModifCorrMatrix(input.Rho)
L0 <- t(chol(input.R0))
lsf = function(U) {
X <- UtoX(U, input.margin, L0)
G <- 5.0 - 0.2*(X[1,]-X[2,])^2.0 - (X[1,]+X[2,])/sqrt(2.0)
return(G)
}
u0 <- as.matrix(c(1.0,-0.5))
lsf(u0)
Run the code above in your browser using DataLab