как включить функцию в R Markdown

Question

для отчета о назначении Я хочу включить такие функции в свой отчет, но, похоже, есть какая-то ошибка, и я не могу ее найти.Функция запускается в консоли, но разметка R говорит: Ошибка разбора (text = x, srcfile = src):: 7: 11: неожиданно '}' 6: + x <- x / 2 7:} ^ вызывает: ... -> parse_all -> parse_all.character -> parse

Это функция: {r echo=FALSE} collatz <- function(x){ + steps <- c(); + stepCounter <- 0; + while(x>1){ + if(x%%2==0){ + x <- x/2 + } else { + x <- 3*x+1 } + stepCounter <- stepCounter+1 + steps[stepCounter] <- x} + print(paste(c("steps:", steps), collapse=" ")) + print(paste("number of iterations:",stepCounter))}

Answer 1

Есть ли у вас + в вашем документе?Удаление их приводит к рабочему документу.

---
title: "function"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r echo=F}
collatz <- function(x) {
    steps <- c()

    stepCounter <- 0

    while (x > 1) {
        if (x %% 2 == 0) {
            x <- x / 2
        } else {
            x <- 3 * x + 1
        }
        stepCounter <- stepCounter + 1
        steps[stepCounter] <- x
    }
    print(paste(c("steps:", steps), collapse = " "))
    print(paste("number of iterations:", stepCounter))
}
collatz(3)
```