R :`nls`에서 오류 잡기

Question

nls을 사용하여 일부 기하 급수적 인 데이터에 적합합니다.

내가 사용하는 코드는 다음과 같습니다

fit <- nls(y ~ expFit(times, A, tau, C), start = c(A=100, tau=-3, C=0)) 

expFit

이

expFit <- function(t, A, tau, C) 
    { 
    expFit <- A*(exp(-t/tau))+C 
    } 

이 시작 매개 변수를 제공하는 내 데이터의 대부분 잘 작동 ((100)으로 정의된다, -3 및 0) 잘 작동합니다. 그러나 때때로 이러한 매개 변수를 사용하지 못하는 데이터가 있는데 nls (예 : '단수 그라디언트'또는 이와 유사한 것)에서 오류가 발생합니다. 이러한 오류를 "catch"하는 방법은 무엇입니까? ...

어떤 아이디어를

나는

fit <- NULL 
fit <- nls(...) 

if (is.null(fit)) 
    { 
    // Try nls with other starting parameters 
    } 

그런 짓을하려고하지만 nls가 실행 및 실행되지 않습니다 nls 후 코드를 중지하는 것 때문에이 작동하지 않습니다?

덕분에 나는 보통이 트릭을 사용

Answer 1

니코 :

params<-... # setup default params. 

while(TRUE){ 

fit<-NULL 
try(fit<-nls(...)); # does not stop in the case of error 

if(!is.null(fit))break; # if nls works, then quit from the loop 

params<-... # change the params for nls 

}