Displaying 1 result from an estimated 1 matches for "not_sc".
2010 May 06
2
Problem with nested functions - functions nested too deeply in source code
...L, elim, i, j, k, sc, h, lst, x)
}
else {
refine9(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x)
}
}
}
refine8 <- function(M, A, B, p_A, p_B, FAIL, elim, i, j, k, sc, h, lst, x){
#print("refine 8")
not_sc <- vector(mode = "numeric", length = p_B)
for (n in 1:p_B){
if (sc[n] == 1){
not_sc[n] <- 0
}
else {
not_sc[n] <- 1
}
}
M[i,] <- collation(M[i,], not_s...