Displaying 1 result from an estimated 1 matches for "refine5".
Did you mean:
refined
2010 May 06
2
Problem with nested functions - functions nested too deeply in source code
...(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x){
#print("refine 4")
sc <- c(0,sc[-p_A])
h <- h+1
if (k != (rowSums(A)[i])+1){
refine3(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x)
}
else {
refine5(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x)
}
}
refine5 <- function(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x){
#print("refine 5")
j <- 1
sc <- vector(mode = "numeric", length = p_B)
for (l in 1:p_B){...