R如何进行异常处理

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

各位大大，本菜想从yahoo finance上面弄一些数据，我有一个文档里面是股票的symbol，但貌似有些symbol不能用，所以循环总会出现问题。
想用异常处理跳过这些坏的symbol，请问怎么做呢？ ps: symbol文件是sp500.txt，已经上传附件。

1. library(quantmod)
   
2. library(tseries)
   
3. library(timeDate)
   
4. 
   
5. #get symbols
   
6. symbols <- read.csv("sp500.txt", header = F, stringsAsFactors = F)
   
7. 
   
8. nrStocks = length(symbols[,1])
   
9. funds <- NULL
   
10. dateStart <- "2009-1-1"
    
11. 
    
12. for (i in 1:nrStocks) {
    
13.     cat("Downloading ", i, " out of ", nrStocks , "\n")
    
14.     prices <- get.hist.quote(instrument = symbols[i,], start = dateStart, quote = "AdjClose", retclass = "zoo", quiet = T)   
    
15.     # Convert daily closing prices to monthly closing prices
    
16.     monthly.prices <- aggregate(prices, as.yearmon, tail, 1);
    
17.     # Convert selected monthly prices into monthly returns to run regression
    
18.     r <- diff(log(monthly.prices));  # convert prices to log returns
    
19.     r1 <- exp(r)-1        ;          # back to simple returns  
    
20.     # Now shift out of zoo object into ordinary matrix
    
21.     rj <- coredata(r1)   
    
22.     # Put fund returns into matrix
    
23.     if(length(rj) ==length(funds[,1]) )   {funds <- cbind(funds, rj);   }
    
24.     Sys.sleep(1);   
    
25.   }

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：异常处理 quantmod Library SYMBOLS tseries 如何

R语言用tryCatch进行错误处理，现在的问题是，你要锁定那段内容。
比如你要锁定这样一个内容：msg <- text[seq(which(text == "")[1] + 1, length(text), 1)]
那就可以这么写：
msg <- tryCatch({
   text[seq(which(text == "")[1] + 1, length(text), 1)]   }, error = function(e) {    ""   })
  
附上tryCatch的使用方法——
  

result = tryCatch ( {

expr

} , warning = function ( w ) {

warning - handler - code

} , error = function ( e ) {

error - handler - code

} , finally = {

cleanup - code

}