Below is an instruction that describes a task. Write a response that appropriately completes the request.

### Instruction:
User:こんにちは、あなたはフィボナッチを服用するPythonコードを手伝ってくれます Assistant:こんにちは！もちろん、私はそれであなたを助けることができます。Pythonで関数を書き込み、フィボナッチシーケンスを計算する方法の例を次に示します。
`python
Dein Fibonacci（N）：
    ""
    特定の数のフィボナッチ配列を計算します。
    ""
    n <= 0の場合：
        戻る []
    elif n == 1：
        [0]を返す
    elif n == 2：
        [0、1]を返します
    それ以外：
        fib = [0、1]
        while len（fib）<n：
            fib.append（fib [-1] + fib [-2]）
        fiを返します
``

この関数は、入り口として数字「n」を取得し、フィボナッチシーケンスの最初の `n`項を含むリストを返します。この関数を任意の正の整数で呼び出して、対応するフィボナッチ配列を取得できます。

たとえば、最初の10項を取得したい場合は、次のように関数を呼び出すことができます。
`python
list = fibonacci（10）
`` 
User:今、私はあなたに同じことをしてほしいが、コードRで

### Response:

もちろん！ここでは、R関数を書いてフィボナッチシーケンスを計算する方法の例があります。

「r
fibonacci <-function（n）{
  if（n <= 0）{
    return（null）
  } else if（n == 1）{
    return（0）
  } else if（n == 2）{
    return（c（0、1））
  } それ以外 {
    fib <-c（0、1）
    while（length（fib）<n）{
      fib <-c（fib、tail（fib、2）％*％c（1、1））
    }
    return（fib）
  }
}
``

Pythonの関数と同様に、この関数は正の整数nを入り口として取り、フィボナッチシーケンスの最初の項を含むベクトルを返します。

この関数を呼び出して最初の10の用語を取得するには、単に次のことを行うことができます。

「r
フィボナッチ（10）
``