【发布时间】:2019-04-18 08:11:00
【问题描述】:
---
title: "Untitled"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```
```{r,message=FALSE}
library(mirt)
set.seed(12345)
a <- matrix(abs(rnorm(15,1,.3)), ncol=1)
d <- matrix(rnorm(15,0,.7),ncol=1)
itemtype <- rep('2PL', nrow(a))
N <- 1000
dataset1 <- simdata(a, d, N, itemtype)
dataset2 <- simdata(a, d, N, itemtype, mu = .1, sigma = matrix(1.5))
dat <- rbind(dataset1, dataset2)
group <- c(rep('D1', N), rep('D2', N))
models <- 'F1 = 1-15'
mod_configural <- multipleGroup(dat, models, group = group)
coef(mod_configural )
```
上面运行Rmd脚本和knit to HTML,我会得到计算结果输出为:
## $D1
## $Item_1
## a1 d g u
## par 1.071 0.524 0 1
##
## $Item_2
## a1 d g u
## par 1.217 -0.699 0 1
问题是计算过程也输出HTML,如:
##
Iteration: 1, Log-Lik: -18088.494, Max-Change: 0.37763
Iteration: 2, Log-Lik: -17943.205, Max-Change: 0.18868
然后我的 HTML 会变得很长,难以阅读。我尝试使用 message=FALSE 但不起作用。
如何在 HTML 中隐藏或折叠这些信息?
【问题讨论】:
标签: r rstudio r-markdown knitr