Перевод функции отладки

Question

Я попытался "перевести" аргументы функции matrix на португальский язык, выполнив это:

portuguese.matrix <- function(dados = NA, nlin = 1, ncol = 1, porlin = FALSE,
                              dimnomes = NULL) {
    matrix(data, nrow, ncol, byrow,
           dimnames)
}

, поэтому я попытался получить такой вывод:

matrix(data = rnorm(9) ,nrow = 3, ncol = 3, dimnames = list(c("a","b","c"),c("d","e","f")))

            d          e         f
a  0.01874617 -0.5991677 -1.208076
b -0.18425254  0.2945451 -0.363676
c -1.37133055  0.3897943 -1.626673

вот чтоЯ получил:

portuguese.matrix(dados = rnorm(9) ,nlin = 3, ncol = 3, dimnomes = list(c("a","b","c"),c("d","e","f")))
Error in as.vector(x, mode) : 
  cannot coerce type 'closure' to vector of type 'any'
Called from: as.vector(data)
Browse[1]> 

И R studio открывает окно, показывающее это:

Любые советы, как решить эту проблему?

Answer 1

Вы ищете что-то подобное?

portuguese.matrix <- function(dados = NA, nlin = 1, ncol = 1, porlin = FALSE, dimnomes = NULL) {
  matrix(data = dados,
         nrow = nlin,
         ncol = ncol,
         byrow = porlin,
         dimnames = dimnomes)
 }

 set.seed(123) 
 portuguese.matrix(dados = rnorm(9) ,nlin = 3, ncol = 3, dimnomes =  list(c("a","b","c"),c("d","e","f")))

Вы можете использовать set.seed(number) при использовании функций случайных чисел для фиксации выхода.

Я получил этот вывод:

structure(c(-0.560475646552213, -0.23017748948328, 1.55870831414912, 
0.070508391424576, 0.129287735160946, 1.71506498688328, 0.460916205989202, 
-1.26506123460653, -0.686852851893526), .Dim = c(3L, 3L), .Dimnames = list(
    c("a", "b", "c"), c("d", "e", "f")))