将功能应用于数据框中的多行

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应用于数据和每个基因：

data example