问题描述
我有一个类似于以下内容的数据集:
time <- c(0,10,20,30,40,50,60,70,80,90,100,110,120,130,140,150,160,170,180,190)
temp <- c(30,28,24,17,13,9,8,7.5,7,6.5,6,5.8,5.5,5.3,5.1,5,5)
Ts = 5 # ambient temperature of surroundings
T0 = 30 # start temperature
plot(temp,time)
使用牛顿冷却定律,其中Temp(time)〜Ts +(T0)exp ^ -c * time我试图在R中拟合一个指数模型,以得出c
的值(即,冷却速度)。
从这里的其他问题来看,我认为使用nls()
是合适的,但是由于我不知道c
的价值,我不确定如何设置模型。任何建议将不胜感激。
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)