Displaying 1 result from an estimated 1 matches for "refine2".
Did you mean:
refined
2010 May 06
2
Problem with nested functions - functions nested too deeply in source code
...##################
refine1 <- function(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x){
#print("refine 1")
# elim marks if there was eliminated a 1 (and changed to 0)
lst <- vector(mode = "numeric")
elim <- 0
i <- 1
refine2(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x)
}
refine2 <- 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...