24小时热门版块排行榜    

查看: 461  |  回复: 3

lml630429812

新虫 (小有名气)

[求助] 求该题具体解题分析和答案 已有1人参与

求该题具体解题分析和答案

求该题具体解题分析和答案


发自小木虫IOS客户端
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yijiaobani

铜虫 (小有名气)

【答案】应助回帖

感谢参与,应助指数 +1
相应R代码:
x <- c(0,6,12,18,24,30,36)
y <- c(4.07,6.03,13.49,31.62,87.1,141.25,199.53)
model.a <- lm(y~x)
summary(model.a)
model.b <- lm(log10(y)~x)
summary(model.b)

结果:
> summary(model.a)

Call:
lm(formula = y ~ x)

Residuals:
      1       2       3       4       5       6       7
34.746   3.476 -22.293 -37.393 -15.143   5.778  30.828

Coefficients:
            Estimate Std. Error t value Pr(>|t|)   
(Intercept) -30.6761    20.0463  -1.530  0.18651   
x             5.5383     0.9266   5.977  0.00188 **
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 29.42 on 5 degrees of freedom
Multiple R-squared:  0.8772,        Adjusted R-squared:  0.8527
F-statistic: 35.72 on 1 and 5 DF,  p-value: 0.001879

> model.b <- lm(log10(y)~x)
> summary(model.b)

Call:
lm(formula = log10(y) ~ x)

Residuals:
       1        2        3        4        5        6        7
0.04610 -0.09105 -0.04924  0.01283  0.14501  0.04710 -0.11076

Coefficients:
            Estimate Std. Error t value Pr(>|t|)   
(Intercept) 0.563494   0.067122   8.395 0.000393 ***
x           0.051313   0.003103  16.538 1.48e-05 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.09851 on 5 degrees of freedom
Multiple R-squared:  0.982,        Adjusted R-squared:  0.9785
F-statistic: 273.5 on 1 and 5 DF,  p-value: 1.476e-05

拟合度由85到97,曲线回归拟合效果更好。
有什么不懂可以问我

» 本帖已获得的红花(最新10朵)

GenStat、SAS、R数据分析
2楼2016-07-21 09:08:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lml630429812

新虫 (小有名气)

3楼2016-07-21 11:55:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lml630429812

新虫 (小有名气)

送红花一朵
引用回帖:
2楼: Originally posted by yijiaobani at 2016-07-21 09:08:19
相应R代码:
x <- c(0,6,12,18,24,30,36)
y <- c(4.07,6.03,13.49,31.62,87.1,141.25,199.53)
model.a <- lm(y~x)
summary(model.a)
model.b <- lm(log10(y)~x)
summary(model.b)

结果:
&g ...

十分感谢

发自小木虫IOS客户端
4楼2016-07-21 11:56:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lml630429812 的主题更新
信息提示
请填处理意见