search for: globalshift

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 error # return...