你提供的代码报错为Error in smooth.fd(time, x, kneefdPar) : unused argument (kneefdPar)，如何修改

这个错误提示说明smooth.fd函数没有识别到kneefdPar参数，可能是因为该函数没有定义该参数或者该参数的名字不正确。你可以检查一下smooth.fd函数的定义，看一下它是否接受kneefdPar参数，或者该参数的名字是否正确。如果该参数是必要的，你需要添加相应的参数定义和默认值，以便在函数调用时正确地传递该参数。如果该参数不是必要的，你可以尝试将其从函数调用中删除，看一下是否可以正常运行。

相关问题

你提供的代码报错为Error in smooth.fd(time, x, kneefdPar) : unused argument (kneefdPar)，帮我修改你提供的代码

好的，以下是修改后的代码，我把kneefdPar作为参数传递给匿名函数，而不是传递给smooth.fd函数。

kneefits <- lapply(data, function(x, kneefdPar) smooth.fd(time, x, kneefdPar), kneefdPar)

这样，kneefdPar参数就会被正确地传递给smooth.fd函数了。请注意，你需要将kneefdPar参数的值传递给lapply函数，以便在匿名函数中使用。

Error in mode(full$Embarked, na.rm = T): unused argument (na.rm = T) Traceback:报错

这个错误提示意味着 `mode()` 函数不支持 `na.rm` 参数。这也就是为什么会出现 "unused argument" 的错误提示。

如果你想要计算众数并且忽略缺失值，可以使用以下代码：

mode(full$Embarked[!is.na(full$Embarked)])

这将会返回 Embarked 列中的众数，并且忽略缺失值。