R関数が値を出力しないのはなぜですか？

Question

s <- seq(-10, 6, by = 0.1) 

    my.fun = function(s) 
    { 
    n = length(s) 
    s = 0 
    for(i in 1:n) 
    {  
     s = ((s[i]*s[i]*s[i]*s[i])*sin(1/s[i]) +(s[i]*s[i]))/(1+abs((s[i]*s[i]*s[i]))) 
    } 
    s 
    } 

これは私の機能です。私は数列を計算し、その数列内でそのシーケンスを使用しようとしています。しかし、新しい変数Sを保存するのではなく、関数は何も出力しません。

Answer 1

つの理由：

1. あなたは、あなたの関数の主な根性が1/s[i]が含まれているので、sは任意のゼロを含むべきではないあなたの関数でゼロにs
2. を設定しています。

は、関数のパラメータが `関数外S`と主変数も` S`が細かいされているという事実

s <- seq(-10, 6, by = 0.1) 
s = s[which(s != 0)] # to drop the zero from the vector 

my.fun = function(s) 
{ 
    n = length(s) 
    for(i in 1:n) {  
    s[i] = ((s[i]*s[i]*s[i]*s[i])*sin(1/s[i]) + s[i]*s[i]))/(1+abs((s[i]*s[i]*s[i]))) 
    } 
    s 
} 
my.fun(s) 

Answer 2

出力を関数自体の定義に戻すことはできません。

my.fun(s)を実行すると、sの出力が返されます。

また、sの値を初期化している間に0がないことを確認してください。ある時点で1/sを実行しているので、NaNだけが返されます。