if (FALSE) {
Rna4 <- matrix(c( 1, NA, .29, .18,
NA, 1, .11, .24,
.29, .11, 1, .06,
.18, .24, .06, 1), 4, 4)
Out4 <- CompleteRmap(Rna = Rna4,
NMatrices = 5,
RBounds = FALSE,
LB = -1,
UB = 1,
delta = 1e-16,
MinLambda = 0,
MaxIter = 5000,
detSort = FALSE,
ProgressBar = TRUE,
Parallel = TRUE,
PrintLevel = 1,
Digits = 3,
Seed = 1)
summary(Out4,
PrintLevel = 2,
Digits = 5)
}
Run the code above in your browser using DataLab