ЕТ
Size: a a a
ЕТ
ЕТ
A
ЕТ
require(dplyr)
make_stats_vector <- function(vec) {
vec <- as.vector(vec)
stats <- c(Min = min(vec, na.rm = TRUE),
Max = min(vec, na.rm = TRUE))
return(stats)
}
mtcars_stats <- tapply(mtcars$mpg, list(mtcars$vs, mtcars$am), make_stats_vector)
ЕТ
A
ЕТ
ЕТ
A
model.matrix()
иногда всплываетA
A
matrix(list(iris, iris), 2)
A
?matrixкак видим, ничего не discarded и не coerced. Баг или фича?
data
an optional data vector (including a list or expression vector). Non-atomic classed R objects are coerced by as.vector and all attributes discarded.
class(as.vector(iris))видать так и задумано
[1] "data.frame"
> class(matrix(list(iris, iris), 2))
[1] "matrix"
> mode(matrix(list(iris, iris), 2))
[1] "list"
> typeof(matrix(list(iris, iris), 2))
[1] "list"
БА
БА
A
A
dt_reactive <- eventReactive(input$make_report, {
... все манипуляции
dt_results
})
БА
ЕТ
> make.names("АЛТ (гг/моль) %")
[1] "АЛТ..гг.моль..."