在循环运算中的除法运算

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

TDATE STKCODE    FAOPEN   FACLOSE
  20150608    2376  129.7206  120.9331
  20150609    2376  118.0039  116.7485
  20150610    2376  116.1209  123.2346
   20150611    2376  124.6573  123.5275
20150612    2376  123.5693  120.3891
20150608    2055  438.2072  391.4256
20150609    2055  364.7779  373.7789
20150610    2055  371.5877  382.5429
20150611    2055  382.6614  387.3396
20150612    2055  387.1620  377.3319
20150608  600570        NA 2006.2313
20150609  600570 1981.7031 2062.9114
X3.2 20150610  600570 2092.5679 2269.2582
X4.2 20150611  600570 2269.2574 2401.1861
X5.2 20150612  600570 2355.8690 2302.7927
我想用R语言每一周的每个股票的第二天价格/第一天价格，第三天价格/第二天价格……以此类推，用R怎么实现

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Close Lose code Open date

其中的一个小例子

for (i in 2:7) {
  curPrice <- a[i] / a[i - 1]
}

1. library(quantmod)
   
2. library(dplyr)
   
3. library(lubridate)
   
4. getSymbols("GOOG")
   
5. 
   
6. GOOG <- GOOG %>%
   
7.   data.frame()
   
8. 
   
9. getratio <- function(x) c(NA, x[-1]/x[-length(x)])
   
10. 
    
11. GOOG <- GOOG %>%
    
12.   mutate(date = as.Date(row.names(GOOG)),
    
13.          year = year(date),
    
14.          week = week(date)) %>%
    
15.   arrange(date) %>%
    
16.   group_by(year, week) %>%
    
17.   mutate(ratio = getratio(GOOG.Close))

复制代码