※ 引述《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)