map_dbl returns a numeric matrix

Question

Here is a sample code I\'m stuck in.

I define a function. Input a number x, output a vector vec

fct <- function(x){
  vec = ve