Displaying 1 result from an estimated 1 matches for "refine10".
Did you mean:
refine1
2010 May 06
2
Problem with nested functions - functions nested too deeply in source code
...t;- function(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x){
#print("refine 9")
sc <- c(0,sc[-p_B])
j <- j+1
if (j != p_B+1){
refine6(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x)
}
else {
refine10(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x)
}
}
refine10 <- function(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x){
print("refine 10")
if (1 %in% M[i,] == FALSE){
FAIL <- 1
print(M)
return(FAIL)
}...