# NOT RUN {
#############
# Example 1 #
#############
allFilt <- list()
allFilt$Np1 <- 1 # only one formulation with one single parameter
allFilt$Np2 <- c(3, 4) # two potential formulations, one with respectively
# three and four parameters
allFilt$Np3 <- c(2, 4) # two potential formulations, one with respectively
# two and four parameters
# formulations for variables Xi:
allFilt$X1 <- t(as.matrix(c(0,0,0,1,0,0,0,0,0,0)))
allFilt$X2 <- t(matrix(c(0,-0.85,0,-0.27,0,0,0,0.46,0,0,
0,-0.64,0,0,0,0,0,0.43,0,0),
ncol=2, nrow=10))
allFilt$X3 <- t(matrix(c(0, 0.52, 0, -1.22e-05, 0, 0, 0.99, 5.38e-05, 0, 0,
0, 0.52, 0, 0, 0, 0, 0.99, 0, 0, 0),
ncol=2, nrow=10))
findAllSets(allFilt, nS=c(3), nPmin=1, nPmax=14)
# }
Run the code above in your browser using DataLab