Блог

 ---
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?

Решение очень простое и не имеет к этому никакого отношения RMD .

 mod_configural <- multipleGroup(dat, models, group = group, verbose = FALSE)
 

Если вы посмотрите на руководство (стр. 95) пакета, verbose то увидите, что выбор — это решение.