求教矩阵中每一个元素按行除以行平方和的代码实现

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

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怎样实现呢

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：平方和

大概这样

1. m <- matrix(1:9, 3)
   
2. rs <- sqrt(rowSums(m^2))
   
3. sweep(m, 1, rs, '/')

复制代码

拜托拜托，有没有哪位大神可以帮帮忙，最后一步代码，卡住了

owenqi 发表于 2021-5-27 22:49
大概这样

感谢，