input <- "    
      t    y    
     1  5.3    
     2  7.2    
     3  9.6    
     4 12.9    
     5 17.1    
     6 23.2"         
    dat<-read.table(textConnection(input),header=TRUE,sep="")    
    t<-dat[,1]    
    y<-dat[,2]   

`y=3.975*(1.341^t)` is the resule of fit,how can i use `nls` function to get it?
	[[alternative HTML version deleted]]

