Displaying 1 result from an estimated 1 matches for "refine3".
Did you mean:
refined
2010 May 06
2
Problem with nested functions - functions nested too deeply in source code
...function(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x){
#print("refine 2")
k <- 1
h <- 1
sc <- vector(mode = "numeric", length = p_A)
for (l in 1:p_A){
sc[l] <- 0
}
sc[1] <- 1
refine3(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x)
}
refine3 <- function(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x){
#print("refine 3")
# check if there is a 1 in the current row in adjacency matrix of graph1
which is on the same position of the 1 in...