请教一个用R语言处理矩阵的问题？多谢

xuxinqiujiao

1496

收藏 2016-04-11

矩阵x，360行，4列，怎么用R语言选出每行的最大值，并把最大值设为1，其他的都为0（也就是0-1矩阵）

扫码加我拉你入群

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

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

全部回复

xuxinqiujiao

2016-4-11 15:55:02

还有一个问题：

怎么把把矩阵第一行换到最后一行？

扫码加我拉你入群

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

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

jinkelazzz

2016-4-11 16:21:30

m<-matrix(rnorm(360*4),ncol = 4,nrow=360)
fun<-function(vec)
{
  newvec<-rep(0,length(vec))
  newvec[which.max(vec)]<-1
  newvec[-which.max(vec)]<-0
  return(newvec)
}
new_m<-t(apply(m,1,fun))
new_m1<-rbind(new_m[-1,],new_m[1,])#换行

扫码加我拉你入群

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

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

ryoeng

2016-4-11 16:35:40

提示: 作者被禁止或删除内容自动屏蔽

扫码加我拉你入群

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

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

xuxinqiujiao

2016-4-11 16:39:51

jinkelazzz 发表于 2016-4-11 16:21
m

[hug][hug][hug][hug][hug][hug][hug][hug][hug][hug][hug][hug]

扫码加我拉你入群

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

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

xuxinqiujiao

2016-4-12 15:18:25

ryoeng 发表于 2016-4-11 16:35

[victory][em17][victory][em17][victory][em17][victory][em17][victory][em17][victory][em17][victory][em17][victory][em17][victory][em17]

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群