双环vs Apply或Purrr家族

Question

我的代码有一个双循环。有没有一种方法可以通过应用family或purrr而不是double loop来实现？

这是我的代码

values<-c(0.2, -0.7, 0.05,
           0.3,0.024,-0.78,
           0.1,0.007,-0.63,
           0.25,0.987, 0.8,
           -0.7,0.8,0.3,
           -0.6, 0.1,0.14,
           0.1, 0.4,0.304) 

mvalues = matrix(values, nrow=7,  ncol=3)

aux<-c(1.25, 1.7,0.8)


x<-matrix(0,nrow=7,ncol=3)
for (i in 1:length(aux)){
  for (j in 1:nrow(mvalues)){
    x[j,i]=mvalues[j,i]*sqrt(aux[i])
  }
}
x