一道關于“沃爾什 平均”的題 Walsh Averages 【R語言編程】

相似文件 換一批

是 否 +2 論壇幣

k人 參與回答

經管之家送您一份

應屆畢業(yè)生專屬福利!

求職就業(yè)群

趙安豆老師微信：zhaoandou666

經管之家聯(lián)合CDA

送您一個全額獎學金名額~ !

立即領取

感謝您參與論壇問題回答

經管之家送您兩個論壇幣！

+2 論壇幣

R語言新手，拿到這道題有點沒思路，希望各路大俠們指點我！

掃碼加我 拉你入群

請注明：姓名-公司-職位

以便審核進群資格，未注明則拒絕

分享0 收藏1 回帖

關鍵詞：Averages average Walsh R語言編程 語言編程 沃爾什

> x<-rnorm(100)
> wal_whileloop<-function(x)
+ {
+   n<-length(x)
+   i<-1
+   j<-1
+   k<-1
+   vec<-NULL
+   while(j<=n)
+   {
+     while(i<=j)
+     {
+       vec[k]<-(x[i]+x[j])/2
+       k<-k+1
+       i<-i+1
+     }
+     j<-j+1
+     i<-1
+   }
+   return(median(vec))
+ }
> wal_forloop<-function (x)
+ {
+   n <- length(x)
+   w <- vector(n * (n + 1)/2, mode = "numeric")
+   ind <- 0
+   for (i in 1:n) {
+     for (j in i:n) {
+       ind <- ind + 1
+       w[ind] <- 0.5 * (x[i] + x[j])
+     }
+   }
+   return(median(w))
+ }
> wal_whileloop(x)
[1] 0.03776875
> wal_forloop(x)
[1] 0.03776875