r - 将函数应用于数据框中的多行

Question

尝试将以下内容应用于数据框中的许多单独的行，每行包含 17 个值：

rsq <- function (x, y) {cor(x, y) ^ 2}

rsq <- function(x,y){
  result <- matrix(0,ncol=ncol(y),nrow = nrow(y))
  for(i in seq(1:nrow(y))){
    fcs <- cor(x, i) ^ 2
    result[i] <- result[i]+fcs
  }
  rownames(result) <- rownames(x)
  return(result)
}

让我们以这个示例 data.frame 为例，我想将 rsq 应用于数据和每个基因：

数据示例

标签： r