Displaying 1 result from an estimated 1 matches for "r1593_filtered".
2007 Jan 03
1
optim
...t something wrong.
I defined the following function which should be minimized:
errorFunction <- function(localShifts,globalShift,fileName,experimentalPI,lambda)
{
lambda <- 1/sqrt(147)
# error <- abs(errHuber(localShifts,globalShift,
# "/home/sarah/Semesterarbeit/Sequences/R/R1593_filtered.data",3.48)) +
# sum(abs(localShifts))*lambda
error <- sum(abs(localShifts))*lambda
error # return the error to be minimized
}
Then I call optim:
par <- seq(length=9, from=0, by=0)
lambda <- 1/sqrt(147)
optim(par, errorFunction, gr=NULL, method="Nelder-Mead", hess...