Rでコラッツ数列を折れ線グラフにすることについて

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
Ｒでコラッツ数列をグラフ化する関数をつくろうとしていますが、意図するグラフができません。コラッツ数列は、任意の数が偶数なら二で割り、奇数なら三で割るというような作業を繰り返し、いずれは１になるというような数列です。

発生している問題・エラーメッセージ

例えばｍが１６のときに処理を行うと、１６、８、４、２、１というようになります。これを折れ線グラフにしたいです。

![イメージ説明](6dd99d4d8d1f73450da863f8cc2a8d55.png)

該当のソースコード

Collatz <- function(m){
cat(m)
while(m>1){
if(m%%2==0){
m<- m/2
} else{
m<- 3*m+1
}
cat(c(m))
plot(c(m))
}
cat("\n")
}

### 試したこと

ｍをベクトルにしたりしてみましたが、うまくいきませんでいた。

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

計算結果を vector に保存する必要があります。

collatz_sequence <- function(m){
  sequence <- c(m)
  while(m > 1) {
    m <- if (m%%2) 3*m+1 else m/2
    sequence <- c(sequence, m)
  }
  sequence
}

collatz_11 <- collatz_sequence(11)
cat(collatz_11, "\n")
plot(collatz_11, type="l")

#
11 34 17 52 26 13 40 20 10 5 16 8 4 2 1

Comments

[kouta2222222222]

解決しました。ありがとうございました。