unexpected symbol在"non_normal_vars<-sapply(num_vars,function(var){test_result<-shapiro.test(seer[var])test_result"里

在R语言中，`unexpected symbol`错误通常是由于语法问题导致的。在这个片段中：

non_normal_vars <- sapply(num_vars, function(var) {
    test_result <- shapiro.test(seer[var])
    test_result
})

问题出在`test_result <- shapiro.test(seer[var])`这行。可能是由于变量`seer`未被正确定义或者`var`在`shapiro.test()`函数内部使用时需要进一步处理。这里`seer`看起来像是一个数据框，而`var`是一个循环中的变量名。你需要确保`seer`是一个有效的数据框，`num_vars`列表中的每个元素都是`seer`中的列名，并且`shapiro.test()`返回的结果可以赋值给`test_result`。

修复这个问题，你应该检查`seer`是否已经加载，`var`是否真的代表`seer`中的列，以及`shapiro.test()`是否返回了预期的数据结构，比如一个统计对象。如果`shapiro.test()`返回的是非S3对象，那么直接赋值可能会出现问题。