R语言函数报错继续执行方法

在上一篇文章中，我们使用了基于Usercf的推荐方法帮助互联网金融企业针对他们的投资者做投资品推荐，在文章末尾我提出了几点问题。

今天我把这些问题的细节做了一些改善，重新做了模型，发觉模型结果比我预想中的要棒！！主要修改如下：

1、将邻居矩阵从2维扩充为35维；（据我测算，一般为整个数据集中用户数的5%最佳，50维出现了一些空值）

2、将欧氏距离上限标准化去掉，这样能更有效的匹配到相似度更高的用户。

后续在执行推荐算法的过程中发现，一个一个计算每一个用户的推荐产品太傻，我需要来一个循环语句来执行推荐算法！

过程中主要问题如下：

1、并不是所有用户都有相似用户，在执行语句中会报错——这里我需要一个语句能识别报错并跳过继续执行；

2、如何把所有执行的结果放入一个矩阵，并且识别是哪一个用户——这里需要一个空矩阵将用户ID和结果装入。

最终代码编写如下：

#组建初始化空矩阵

R<-matrix(0,9,1)  

#循环运行推荐程序并将结果并入到空矩阵

for (i in 1:nrow(S))

    #循环执行推荐程序

    try({

      #将ID放到结果之前

      R1=cbind(c(rep(i,3),UserBasedRecommender(i,RECOMMENDER_NUM,M,S,N)))

      #将ID和结果一起并入空矩阵

      R<-cbind(R,R1)

    }

    ,silent = T)

#删除结果矩阵1,2行以及第一列

c<-R[-1,-1][-1,]

write.csv(c,file = 'hnjbtj1.csv')

结果如下：