函数/循环问题

Question

作为我工作的一部分，我正在撰写相当复杂的代码。很长一段时间以来一直很痛苦，我开始犯下无用的错误。所以我试图将我的问题简化为一段令人难以置信的基本代码，但仍然犯了错误。任何人都可以解释错误是什么以及如何解决它？谢谢！

（数据框'我的文件'在底部）

library(plyr)
setwd("J:/R/Loops")

funct <- function(x,v) 
  (x^2) + (v^2)

myfiles <- read.csv("myfiles.csv", header=TRUE)
funct(myfiles)

  

功能错误（myfiles）：缺少参数“v”，没有默认值

lapply(myfiles, funct)

  

FUN中的错误（X [[i]]，...）：缺少参数“v”，没有默认值

数据

myfiles <- read.table(header = TRUE, text = "x  v
1  7
2  8
3  9
4 10
5 11
6 12")

Answer 1

您可以使用?mapply

mapply(funct,myfiles$x, myfiles$v)
[1]  50  68  90 116 146 180