R 的問題

gistfile1.r

#先定義函數
ff = function(y,i){
  if (i==1){
    return((4*5+1)%%16)
  }else{
    y[i] = (y[i-1]*5+1)%%16
    return(y)
  }
}

#迴圈
for ( i in 1:3){
  y = ff(y,i)
}