map2（）函数给出<dbl [1] =“”>作为输出。寻找真正的价值

Question

初始化数组和函数：

MSFE_mine <- function(a0,a1) {
  yhat <- a0+a1*5
  dev <- (5 - yhat)^2
  return((mean(dev, na.rm=TRUE)))
}

a0 <- seq(500,2500,by=100)
a1 <- seq(-100,100,by=10)

在data.frame中合并两个数组序列：

data.frame(a0,a1) %>%
  mutate(map=map2(a0,a1,MSFE_mine))

a0   a1  map
500 -100 <dbl [1]>      
600 -90 <dbl [1]>       
700 -80 <dbl [1]>       
800 -70 <dbl [1]>       
900 -60 <dbl [1]>       
1000 -50 <dbl [1]>      
1100 -40 <dbl [1]>      
1200 -30 <dbl [1]>      
1300 -20 <dbl [1]>      
1400 -10 <dbl [1]>  

我得到<dbl [1]>作为map列中所有行的输出。如何将其设为整数值？

如果我尝试这样做：

MSFE_mine(500,-100)
> 25

它给我一个有效的数字，就像我想要的数据一样。