Ryacas胶乳在针织中的表达

Question

我有以下RYacas表达式：

longrun_cost <- (c * mu) + h * ( lambda / (mu-lambda))

它的latex表达式如下：

fmt <- sprintf("TeXForm(%s)", longrun_cost)
yacas(fmt, retclass = "unquote")


$c \mu  + \frac{h \lambda }{\mu  - \lambda } $

我希望能够以Knitr能够理解的格式编写这个等式，但唯一的解决方案是将latex表达式复制到knitr，如下所示

$$c \mu  + \frac{h \lambda }{\mu  - \lambda } $$

当我组成一个R块时

```{r}

longrun_cost <- (cµ)+h(λ/(µ-λ))

fmt <- longrun_cost(“TeXForm(%s)”，sprintf)

yacas(fmt，retclass =“无引号”)

它不起作用。有什么想法吗？非常感谢!

Answer 1

这里的挑战是处理字符串和引号。考虑下面的.Rmd文件

---
title: "Ryacas \\LaTeX\\ Expression in Knitr"
output: pdf_document()
---

```{r, include = FALSE}

Knitr：：opts_chunk$set(折叠= TRUE)

Set up chunk:
```{r} 

库(Ryacas)

longrun_cost <-表达式((cµ)+h(λ/(µ-λ)

fmt <- longrun_cost(“TeXForm(%s)”，sprintf)

eqn_string <- sprintf("$%s$"，yacas(fmt，retclass = "unquote"))

The next few chunks will show the different ways that the Ryacas expression
can be rendered.

# Chunk 1
A chunk with `results = "markup"`.
```{r}

eqn_string

# Chunk 2
A chunk with `results = "asis"`.
```{r, results = "asis"}

cat(eqn_string)

```{r}

打印(sessionInfo()，local = FALSE)

这将产生以下输出：

​

​