楼主: 18249553878
997 1

[问答] R语言用极大释然法估计参数后,怎么样将图形表示出来。代码如下 [推广有奖]

  • 0关注
  • 0粉丝

初中生

61%

还不是VIP/贵宾

-

威望
0
论坛币
0 个
通用积分
0
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
133 点
帖子
6
精华
0
在线时间
16 小时
注册时间
2016-3-11
最后登录
2017-10-24

相似文件 换一批

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
  1. x<c(0.06,2.8441,540,1.1,4.974,509.8,66,800.14,3670,762.2336,0.05,2880,2.4514,1235.921,0.57,0.2,270,159.2482,3.6,769,4.65,280,0.1876,0.3,0.07,2200,0.0695,3970,280,138,1050.952,287.2281,5.7128,0.77,2.964,10.2,3.4849,2.7415,1000,1.3796,13.6403,9.3983,322.371,0.8,0.89,110.3466,2,0.38,10,136.0477,0.4,348.8425,148,52,117,240,1350.358)
  2. y=log10(x)
  3. # location and scale based on the y
  4. x.n <- length(x)
  5. x.location <- mean(x)
  6. x.var <- (x.n - 1)/x.n*var(x)
  7. x.scale <- sqrt(3*x.var)/pi
  8. # load the stats4 package
  9. library(stats4)
  10. # function to calculate negative log-likelihood
  11. ll.logis <- function(location=x.location, scale=x.scale){
  12.     -sum(dlogis(x, location, scale, log = TRUE))
  13. }
  14. # fitting logistic distribution using mle function
  15. fit.mle <- mle(ll.logis, method="Nelder-Mead")
复制代码


二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

关键词:R语言 怎么样 R语言极大似然法 R语言处理过程

W~[01AI_R5{HEY[TU)~K0]9.png (13.73 KB)

W~[01AI_R5{HEY[TU)~K0]9.png

沙发
zhangtao 发表于 2016-4-20 18:21:00 |只看作者 |坛友微信交流群
老师,那作图的程序代码是什么?非常感谢!

使用道具

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-4-24 21:41