[R] Minimization of the distance
savicky at cs.cas.cz
Fri Dec 10 10:47:15 CET 2010
On Thu, Dec 09, 2010 at 07:43:52PM -0800, bluesky wrote:
> I just contect R,and still learn how to write the code.
> I have a problem with argmin sum d(pi,p)/n
> for example I have 3 points (a1,b1)(a2,b2)(a3,b3) ,then I want to find
> p(x,y) make sure that
> is the minimum.
The following code solves the example as i understand it.
# rows of matrix "a" are three points in the plane
a <- rbind(
d <- function(x, a) mean(sqrt(rowSums((a - rep(x, each=nrow(a)))^2)))
xinit <- colMeans(a)
x <- optim(xinit, d, a=a)$par
Is this, what you mean?
Function optim() has further parameters, which influence efficiency
and accuracy, and there are also other optimization functions.
More information about the R-help