Установить количество цифр в функции description () пакета Hmisc

Question

Я пытаюсь установить количество цифр при экспорте в латекс результат функции description ().

MWE:

require("Hmisc")
dat <- rnorm(1000,mean = 0, sd = 1)
latex(describe(dat, digits=2))

производит следующий вывод:

digits Аргумент, кажется, не имеет никакого эффекта: ни средние значения, ни минимальные / максимальные значения не имеют количества измененных цифр. Любая идея, чтобы установить количество цифр?

Answer 1

digits аргумент describes используется для установки options(digits = digits),
То есть, digits указывает минимальное количество значащих цифр для печати (см. ?options).
Мы начинаем рассматривать вектор случайных чисел с mean=5, sd=1и установить digits=2,

library(Hmisc)
oldopt <- options("digits")
set.seed(1)
dat <- rnorm(1000, mean = 5, sd = 1)
dgts <- 2
dscr <- describe(dat, digits=dgts)
options(digits = dgts)
outltx <- latex(dscr, file="describe.tex")
dvips(outltx)
options(digits = oldopt$digits)

Выход:

Здесь минимальное количество значащих цифр равно 2: одна цифра до и одна после десятичной точки (например, 95-й процентиль равен 6,7).

Теперь рассмотрим вектор случайных чисел с mean=0, sd=0.01и установить digits=2,

oldopt <- options("digits")
set.seed(1)
dat <- rnorm(1000, mean = 0, sd = 0.01)
dgts <- 2
dscr <- describe(dat, digits=dgts)
options(digits = dgts)
outltx <- latex(dscr, file="describe.tex")
dvips(outltx)
options(digits = oldopt$digits)

Опять же, минимальное количество значащих цифр равно 2; Медиана (.50), например, есть -0.00035то есть имеет 2 значащих цифры (3 а также 5).