Displaying 1 result from an estimated 1 matches for "refine8".
Did you mean:
refined
2010 May 06
2
Problem with nested functions - functions nested too deeply in source code
...refine7(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x)
}
}
refine7 <- function(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x){
#print("refine 7")
x <- lst[h]
if (1 %in% collation(M[x,], B[,j]) == FALSE){
refine8(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x)
}
else {
h <- h+1
if (h != (rowSums(A)[i])+1){
refine7(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x)
}
else {...