一道关于“沃尔什 平均”的题 Walsh Averages 【R语言编程】

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合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