Question

我想用knitr在社会科学中写一篇可复制的论文。因此，我想使用knitr内联块打印内联验证性因子分析的Fit-Indices。

我的最小例子：

\documentclass{article}

\begin{document}

Run a lavaan model

<<lavaanmodel>>=
library(lavaan)
## cfa model from help
HS.model <- ' visual  =~ x1 + x2 + x3
              textual =~ x4 + x5 + x6
              speed   =~ x7 + x8 + x9 '

cfaout <- cfa(HS.model, data=HolzingerSwineford1939)
@

Specifiy a fitprintfunction

<<fpf_def>>=
fpf_la <- function(x){  fm_tmp <- fitmeasures(x)

                        cat("\\chi^2 = ", fm_tmp[c("chisq")],
                            ", df = ",    fm_tmp[c("df")],
                            ", RMSEA = ", fm_tmp[c("rmsea")],
                            ", CFI = ",   fm_tmp[c("cli")],
                            ", TLI = ",   fm_tmp[c("tli")],
                            ", SRMR = ",  fm_tmp[c("srmr")],
                            sep = "")}
@

Print the fit inline:\\

The specified model resulted in good model fit $\Sexpr{fpf_la(cfaout)}$

\end{document}

问题： $\Sexpr{fpf_la(cfaout)}$ 没有任何结果。我猜在内联块中处理非数字输出会导致问题吗？

Answer 1

\Sexpr中使用的函数应返回输出。你的功能打印出来。

最小例子：

\documentclass{article}
\begin{document}
<<>>=
showSquare <- function(x) {
  return(sprintf("%s^2 = %s", x, x^2))
}
@

Let's square 42: $\Sexpr{showSquare(42)}$.

\end{document}

knitr内联块中的公式输出

1 个答案: