1
Як мінімізувати залишкову суму квадратів експоненціальної підгонки?
У мене є такі дані, і я хотів би до неї вкласти модель негативного експоненціального зростання: Days <- c( 1,5,12,16,22,27,36,43) Emissions <- c( 936.76, 1458.68, 1787.23, 1840.04, 1928.97, 1963.63, 1965.37, 1985.71) plot(Days, Emissions) fit <- nls(Emissions ~ a* (1-exp(-b*Days)), start = list(a = 2000, b = 0.55)) curve((y = 1882 …