lapply中的意外符号错误

Question

好的，我基本上是试图通过在R中运行以下代码来删除列表元素data_csv的行，然后我得到以下错误：

a <- lapply(data_csv, funtion(x) x[!delete_row(x)])

Error: unexpected symbol in "a <- lapply(data_csv, funtion(x) x"

delete_row是我写的自定义函数。它如下：

delete_row <- function(x){
    if (sum(is.na(x[1,8:11])) > 2 || 
        sum(is.na(data_csv[iter, 12:15])) > 2 || 
        sum(is.na(data_csv[iter,16:19])) > 2){
        return(TRUE)
    } 
} 

由于

Answer 1

感谢@akrun指出错误： 这是拼写错误功能的语法错误