loop function with nls

Question

I am struggling with looping nls functions. So here is an example data set for a single sample

dat<-read.table(text="time y
1 4.62
2 13.55
3 30.82
6 93.97