Как подавить информацию о процессе расчета и сохранить результат расчета только в R уценке HTML? - PullRequest
Новая
       13

Как подавить информацию о процессе расчета и сохранить результат расчета только в R уценке HTML?

1 голос
/ 18 апреля 2019 
---
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?

1 Ответ

3 голосов
/ 18 апреля 2019

Решение очень простое и не имеет ничего общего с RMD. 

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

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

...