※ 引述《nono0611 (nono)》之铭言： : Create 15 random numbers that are normally distributed with mean 10 and s.d. 5. Find a 1-sample z-test at the 95% level. Did it get it right? : 这是我们的作业 : 单就这一题 : 我该怎样操作R : 做出Z检定 : 课本有给范例 : 看不懂意思 : > simple.z.test = function(x,sigma,conf.level=0.95) { #现在作一个function，参数有x,sigma,conf.level(直接设定为0.95) : + n = length(x);xbar=mean(x) n是x这个array的长度、xbar是x这个array的mean : + alpha = 1 - conf.level alpha是1 - conf.level : + zstar = qnorm(1-alpha/2) zstar是常态分配机率为(1-alpha/2)的数值 : + SE = sigma/sqrt(n) SE是sigma/根号n : + xbar + c(-zstar*SE,zstar*SE) 这行就是把上面定义的乘一下，输出的就会是拒绝域的端点数值。 : + } : ## now try it : > simple.z.test(x,1.5) : [1] 173.7703 175.6297 : 拜托各位先贤帮助我度过期末考! 建议你多使用R里面的help， 你可以查到每个function的定义。 -- 多麽不想 却又不能不相信 爱和了解真的还是有点距离 两个人渴望能生活在一起 需要的不只是感情 关於那个你最在乎的梦境 我很抱歉终究还是进不去 但我们曾为爱的人而努力 回想起再遗憾也美丽 用过心永远在意 我想我的担心你懂 人的感觉太多 容易寂寞 我想我的担心你懂 假如你不快乐 我会难过 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 118.168.28.77 ※ 编辑: mrk 来自: 118.168.28.77 (01/11 12:22)