-1
データポイントのセットにカーブをフィットしようとしましたが、成功しませんでした。だから私はあなたに尋ねる。指数回帰R（および負の値）
plot(time,val) # look at data
exponential.model <- lm(log(val)~ a) # compute model
fit <- exp(predict(exponential.model,list(Time=time))) # create the fitted curve
plot(time,val)#plot it again
lines(time, fit,lwd=2) # show the fitted line
私の唯一の問題は、データに負の値が含まれているため、log（val）がNAを大きく生成してモデル計算がクラッシュすることです。 
私のデータは必ずしも指数関数的に見えるとは限りませんが、とにかくフィット感を見たいと思っています。私はval = 27.1331 * exp（-time/2.88031）という素晴らしいプログラムですが、私が間違っていることは分かりません。 Rで計算したい。 データをシフトして負の値が残らないようにする考えがありましたが、結果は貧弱であり、間違っていると確信しています。
plot(time,val+20) # look at data
exponential.model <- lm(log(val+20)~ a) # compute model
fit <- exp(predict(exponential.model,list(Time=time))) # create the fitted curve
plot(time,val)#plot it again
lines(time, fit-20,lwd=2) # show the (BAD) fitted line
ありがとうございます！
私はあなたが四角い穴に丸いペグを合わせようとしていると思います。それは明らかにデータのひどいモデルです。指数関数的なモデルになります。明らかに定期的なコンポーネントがあり、あなたがキャプチャしようとするべき自己相関がたくさんあり、適合しようとしているモデルはキャプチャされません。 – RoyalTS
私は知っている、そのデータはexponetialモデルのように見えませんが、とにかくそれに合うことが可能でなければなりません。私が言ったように、val = 27.1331 * exp（-time/2.88031）は、私にはうってつけです。私がその結果を得ることができれば、私は大丈夫だろう。 – marco