Displaying 1 result from an estimated 1 matches for "localshift".
Did you mean:
localshifts
2007 Jan 03
1
optim
Hi!
I'm trying to figure out how to use optim... I get some really strange results, so I guess I got 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
er...