前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >如何将R语言普通矩阵转换为非负矩阵

如何将R语言普通矩阵转换为非负矩阵

作者头像
用户1359560
发布2020-06-19 17:09:57
1.3K0
发布2020-06-19 17:09:57
举报
文章被收录于专栏:生信小驿站
代码语言:javascript
复制
# ===============================================================


# ===============================================================

setwd('C:\\Users\\czh\\Desktop')

library(Matrix)

rm(list=ls()) 

options(stringsAsFactors = F)

library(ConsensusClusterPlus)

dt <- read.csv("train.csv",header = T,
                   row.names = 1,
                   stringsAsFactors = F)

colnames(dt)

head(dt)


# ===============================================================


# ===============================================================



for (i in 1:dim(dt)[2]) {

  dt[,i] <- ifelse( dt[,i] > median( dt[,i]), 1, 0)
  
}

head(dt)



# ===============================================================


# ===============================================================


dt1 <- dt

 for (i in 1:dim(dt)[2]) {
  col_name1 <- paste0(names(dt)[i], '_low')
  dt1$col_name1 <- dt[,i]
  dt1$col_name1 <- ifelse(dt1$col_name1 == 0, 1,0)
  dt1[paste0(names(dt)[i], '_low')] = dt1$col_name1
  dt1$col_name1 <- NULL
  
  col_name2 <- paste0(names(dt)[i], '_high')
  dt1$col_name2 <- dt[,i]
  dt1$col_name2 <- ifelse(dt1$col_name2 == 1, 1,0)
  dt1[paste0(names(dt)[i], '_high')] = dt1$col_name2
  dt1$col_name2 <- NULL
 }
dt1 <- dt1[,-(1:dim(dt)[2])]
head(dt1)

输入数据

输出数据

本文参与 腾讯云自媒体同步曝光计划,分享自作者个人站点/博客。
如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档