Displaying 1 result from an estimated 1 matches for "notconverged".
2011 Dec 23
2
missing value where TRUE/FALSE needed
...) * sum(K)
grad <- -1 * ((c1 * c2) ** -1) * colSums(K * XmY)
return (list(gradient = grad,
density = dens))
}
attractors <- matrix(0, n.rows, n.cols)
densities <- matrix(0, n.rows)
> density.attractors <-
sapply(rep(1:n.rows), function(i) {
notconverged <- TRUE
# For each row loop through and find the attractor and density value.
x <- (X[i, ])
iters <- as.integer(1)
# Run gradient ascent for each point to obtain x*
while(notconverged == TRUE) {
find.gradient <- FindGradient(x)
next.x <-...