R_Language 板


LINE

[軟體熟悉度]: 入門 [問題敘述]: 我目前想要做出多組數據的sp^2來估計群體的總變異數,目前遇到的問題是如果單跑 sqrt((((D[3+(i*4500-4500),5])^2)+((D[4+(i*4500-4500),5])^2))/(k-1-(k/2-1))) 這行的話出來的sp^2值是正確的 但如果用i=5000,k=4500時的for迴圈做大量運算時sp^2就會跑掉 請問各位先進大大們有解法嗎,小弟被困住好多天了,謝謝各位大大 [程式範例]: for(i in c(1:5000)){ for (k in seq(4,4500,by = 2)) { D[4+i*4500-4500,6] <- sqrt((((D[3+(i*4500-4500),5])^2)+((D[4+(i*4500-4500),5]) ^2))/(k-1-(k/2-1))) } } --



※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.113.136.218 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1587524830.A.AA9.html
1F:→ andrew43: 沒有迴圈的情況時i和k是什麼?有迴圈時是否有任何警告 04/22 11:29
2F:→ cwz1110: 沒回圈時i =1,k=4先算出第一組的sp^2,迴圈跑完後迴圈沒 04/22 11:34
3F:→ cwz1110: 有任何警告 04/22 11:34
4F:推 andrew43: 猜測單純資料有毛病或是你的迴圈設計不如預期 04/22 11:58
5F:推 rebe212296: 你k跟i維度沒有一樣會有問題,因為你的算式同時有ik 04/22 20:21
6F:推 rebe212296: 還有D[3+(i*4500-4500),5]這裡3+(i*4500-4500)不能超D 04/22 20:30
7F:→ rebe212296: 的列數 04/22 20:30
8F:→ cwz1110: 感謝a大&r大的回覆 04/23 12:20
9F:→ cwz1110: 另回r大3+(i*4500-4500)沒超過D吧 04/23 12:20
10F:→ cwz1110: 因爲我是5000*4500 04/23 12:20
11F:→ cwz1110: 謝謝r大回覆! 04/23 12:20
12F:推 x05863a1: j每次代數字你的D[4+i*4500-4500,6]這個元素就會被疊掉 04/24 21:53
13F:→ x05863a1: 一次,所以你整個迴圈出來的結果會是每個i之下j=4500的 04/24 21:53
14F:→ x05863a1: 結果,也就是前面j=4到4498的結果都沒有被傳出 04/24 21:53
15F:→ cwz1110: 謝謝x大回覆!我原本是用[k+i*4500-4500,6]只不過後來檢 04/25 19:06
16F:→ cwz1110: 查發現他sp^2完全都算錯,所以才用[4+i*4500-4500,6]試跑 04/25 19:06
17F:→ cwz1110: 單跑可以但疊上for loop之後就錯了,苦惱很久之後才來板 04/25 19:07
18F:→ cwz1110: 上問各位大神 04/25 19:07







like.gif 您可能會有興趣的文章
icon.png[問題/行為] 貓晚上進房間會不會有憋尿問題
icon.pngRe: [閒聊] 選了錯誤的女孩成為魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一張
icon.png[心得] EMS高領長版毛衣.墨小樓MC1002
icon.png[分享] 丹龍隔熱紙GE55+33+22
icon.png[問題] 清洗洗衣機
icon.png[尋物] 窗台下的空間
icon.png[閒聊] 双極の女神1 木魔爵
icon.png[售車] 新竹 1997 march 1297cc 白色 四門
icon.png[討論] 能從照片感受到攝影者心情嗎
icon.png[狂賀] 賀賀賀賀 賀!島村卯月!總選舉NO.1
icon.png[難過] 羨慕白皮膚的女生
icon.png閱讀文章
icon.png[黑特]
icon.png[問題] SBK S1安裝於安全帽位置
icon.png[分享] 舊woo100絕版開箱!!
icon.pngRe: [無言] 關於小包衛生紙
icon.png[開箱] E5-2683V3 RX480Strix 快睿C1 簡單測試
icon.png[心得] 蒼の海賊龍 地獄 執行者16PT
icon.png[售車] 1999年Virage iO 1.8EXi
icon.png[心得] 挑戰33 LV10 獅子座pt solo
icon.png[閒聊] 手把手教你不被桶之新手主購教學
icon.png[分享] Civic Type R 量產版官方照無預警流出
icon.png[售車] Golf 4 2.0 銀色 自排
icon.png[出售] Graco提籃汽座(有底座)2000元誠可議
icon.png[問題] 請問補牙材質掉了還能再補嗎?(台中半年內
icon.png[問題] 44th 單曲 生寫竟然都給重複的啊啊!
icon.png[心得] 華南紅卡/icash 核卡
icon.png[問題] 拔牙矯正這樣正常嗎
icon.png[贈送] 老莫高業 初業 102年版
icon.png[情報] 三大行動支付 本季掀戰火
icon.png[寶寶] 博客來Amos水蠟筆5/1特價五折
icon.pngRe: [心得] 新鮮人一些面試分享
icon.png[心得] 蒼の海賊龍 地獄 麒麟25PT
icon.pngRe: [閒聊] (君の名は。雷慎入) 君名二創漫畫翻譯
icon.pngRe: [閒聊] OGN中場影片:失蹤人口局 (英文字幕)
icon.png[問題] 台灣大哥大4G訊號差
icon.png[出售] [全國]全新千尋侘草LED燈, 水草

請輸入看板名稱,例如:BabyMother站內搜尋

TOP