Initial values of  naow can be passaed as argument, or let the R model choice the best (a,b,c) values
mend