附加我有下列R-腳本循環和R中
optioncost =c(5,52,23,15,134,996,2033,18)
options=c(0,1,1,1,1,0,1,1)
cip=c()
for (options_ind in options)
{
if(options_ind==1)
{
cip=append(cip,optioncost[which(options==options_ind)])
}
}
cip
我試圖獲得(52 23 15 134 2033 18)。當我運行上面的腳本時,我得到的輸出列表是預期結果長度的6倍。我的代碼輸出如下cip「52 23 15 134 2033 18 52 23 15 134 2033 18 52 23 15 134 2033 18 52 23 15 134 2033 18 52 23 15 134 2033 18 52 23 15 134 2033 18」。
請幫我找出我在哪裏呢?