b <- apply(a,1,function(x){
  x <- x*x
  x <- sum(x)
  x=sqrt(x)
  return(x)
})
这是按行求矩阵行平方和的函数代码，下一步想要矩阵中每一个元素按行除以行平方和，请问应该怎么实现？
a=matrix(1:9,3,3)
[,1] [,2] [,3]
[1,]    1    4    7
[2,]    2    5    8
[3,]    3    6    9
b <- apply(a,1,function(x){
  x <- x*x
  x <- sum(x)
  x=sqrt(x)
  return(x)
})
[1]  8.124038  9.643651 11.224972
计算1/8.124038, 4/8.12,  7/8.12
       2/9.64,       5/9.64,   8/9.64
       3/11.22      6/11.22   9/11.22
应该用R怎样实现呢