跪求大神优化此循环序列算法

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

目标是对一个长度为60的5年月度时间序列算每个月的权重值，本来以为写个循环可以轻松解决，不管怎么尝试都在报错，对数据结构理解可能不够深入。希望楼下有大神能帮忙优化一下！一开始采用的是这种写法，但实现不了

1. get_weight <- function(x){
   
2.   l <- length(x)
   
3.   seq <- matrix(1:12,nrow=1,ncol=12)
   
4.   weight <- matrix(1:12,nrow=1,ncol=12)
   
5.   for(i in 1:l){
   
6.     seq[i] <- seq(i:60,12)
   
7.     weight[i] <- seq[i]
   
8.   }
   
9.   return(weight)
   
10. }

复制代码

这是最后无奈选择的实现办法

1. get_weight <- function(x){
   
2.   s1 <- seq(1,60,12)
   
3.   w1 <- sum(x[s1])/sum(x)
   
4.   s2 <- seq(2,60,12)
   
5.   w2 <- sum(x[s2])/sum(x)
   
6.   s3 <- seq(3,60,12)
   
7.   w3 <- sum(x[s3])/sum(x)
   
8.   s4 <- seq(4,60,12)
   
9.   w4 <- sum(x[s4])/sum(x)
   
10.   s5 <- seq(5,60,12)
    
11.   w5 <- sum(x[s5])/sum(x)
    
12.   s6 <- seq(6,60,12)
    
13.   w6 <- sum(x[s6])/sum(x)
    
14.   s7 <- seq(7,60,12)
    
15.   w7 <- sum(x[s7])/sum(x)
    
16.   s8 <- seq(8,60,12)
    
17.   w8 <- sum(x[s8])/sum(x)
    
18.   s9 <- seq(9,60,12)
    
19.   w9 <- sum(x[s9])/sum(x)
    
20.   s10 <- seq(10,60,12)
    
21.   w10 <- sum(x[s10])/sum(x)
    
22.   s11 <- seq(11,60,12)
    
23.   w11 <- sum(x[s11])/sum(x)
    
24.   s12 <- seq(12,60,12)
    
25.   w12 <- sum(x[s12])/sum(x)
    
26.   weight <- c(w1,w2,w3,w4,w5,w6,w7,w8,w9,w10,w11,w12)
    
27.   return(weight)
    
28. }

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：时间序列 数据结构

你对R语言还太陌生了，还要多练啊！

1. get_weight <- function(x) {
   
2.     rowSums(matrix(x, nrow = 12)) / sum(x)
   
3. }

复制代码

cheetahfly 发表于 2018-3-9 13:54
你对R语言还太陌生了，还要多练啊！

没有系统性学过，都不知道有这么个函数啊为什么martrix（x, nrow=12）就可以直接将它自动分割成隔12个数形成一组啊

这个说来话长了，但是不用着急，谁对R都是从不懂到慢慢熟悉的。你提问的方式非常好，将所有的代码都清晰列出，这样也方便别人解答，请保持。

cheetahfly 发表于 2018-3-10 20:30
这个说来话长了，但是不用着急，谁对R都是从不懂到慢慢熟悉的。你提问的方式非常好，将所有的代码都清晰列出 ...

hhhh，毕竟请教问题的第一步是描述好问题