Displaying 1 result from an estimated 1 matches for "refine4".
Did you mean:
refined
2010 May 06
2
Problem with nested functions - functions nested too deeply in source code
...for
graph 2. Then it is checked if the following condition
# is fulfilled: (for all x) ((A[i,x] = 1) => (there exists one ore more
y) (M[x,y] * B[x,j] = 1)). The algorithm terminates if no more
# 1 can be changed in a 0
if (1 %in% collation(A[i,], sc) == FALSE){
refine4(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x)
}
else {
lst[k] <- h
k <- k+1
refine4(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x)
}
}
refine4 <- function(M, A, B, p_A, p_B, FAIL, elim, i, j, k,...