あなたのデータに適切なモデルを信じるなら:
f=ae−bt
次に、適切なモデルが次のようになるように応答データをログ変換できます。
f′=a′−bt
と。変換されたデータは、単純な線形回帰と、得られた標準誤差と共に切片と勾配の推定を使用して近似できます。臨界t値と標準誤差がパラメーター推定に適用される場合、そのパラメーター推定の信頼区間を形成できます。R:a ′ = l n (a )f′=ln(f)a′=ln(a)
# Rough simulated data set.
set.seed(1)
a <- 50; b <- 0.2; n <- 25
x <- 1:n
y <- a*(exp(-b * x))
y <- y + rnorm(n, sd=0.25)
y <- ifelse(y>0, y, 0.1)
plot(x,y)
# Linearise:
y2 <- log(y)
plot(x,y2)
# Fit model to transformed data
model <- lm(y2 ~ x)
summary(model)
confint(model)
# Or:
param <- summary(model)$coefficients[, 1]; se <- summary(model)$coefficients[, 2]
param + qt(0.975, 23) * se
param - qt(0.975, 23) * se
予測にモデルを使用している場合は、SLRの仮定が満たされていることを必ず確認してください-iid〜N。 N(0,σ2)