stop()

-----Original Message-----
From: Dimitris Rizopoulos [mailto:d.rizopoulos at erasmusmc.nl]
Sent: Tuesday, October 11, 2011 1:43 PM
To: Doran, Harold
Cc: r-help at r-project.org
Subject: Re: [R] stop()

You could use return(), e.g.,

myFun <- function (x, max.iter = 5) {
     for (i in 1:10) {
         result <- x + i
         iter <- i
         if (iter == max.iter) {
             return(result)
         }
     }
     result
}

myFun(10, max.iter = 4)


I hope it helps.

Best,
Dimitris


On 10/11/2011 7:31 PM, Doran, Harold wrote:

Suppose I have a function, such as the toy example below:

myFun<- function(x, max.iter = 5) {
                for(i in 1:10){
                result<- x + i
                iter<- i
                if(iter == max.iter) stop('Max reached')
                }
                result
                }

I can of course do this:
myFun(10, max.iter = 11)

However, if I reach the maximum number of iterations before my "algorithm"

has finished (in my real application there are EM steps for a mixed model), I
actually want the function to return the value of "result" up to that point.
Currently using stop(), I would get

myFun(10, max.iter = 4)

Error in myFun(10, max.iter = 4) : Max reached

But, in this toy case the function should return the value of "result" up to

iteration 4.

Not sure how I can adjust this.

Thanks,
Harold



	[[alternative HTML version deleted]]

--
Dimitris Rizopoulos
Assistant Professor
Department of Biostatistics
Erasmus University Medical Center

Address: PO Box 2040, 3000 CA Rotterdam, the Netherlands
Tel: +31/(0)10/7043478
Fax: +31/(0)10/7043014
Web: http://www.erasmusmc.nl/biostatistiek/