数据中没有丢失值，仍然在boot（） - ＆gt;中出现此错误if中的错误（const（t，min（1e-08，mean（t，na.rm = TRUE）/ 1e + 06）））

Question

编辑：只是想让大家都知道我发现了问题 - 我使用的间接功能表明启动功能应该使用线性回归模型中的第6个回归系数来做它的事情，但事实证明我在这个特定的模型中只有五个系数。哎呀，哈哈。感谢所有帮助我排除故障的人！

我知道此问题已在过去的帖子中解决（here和here），但我无法使用此处给出的答案解决此问题。第一篇文章说<?php include 'function.php'; include 'sqlconnect.php'; if(loggedin()){ $userid = $_SESSION['user_id']; if ($userid == 1){ //if user id is 1 then display img of administrator echo '<img src="images/admin.png" title="Administrator" width:"75px" height="75px">'; echo "<li><a href='logout.php'>Logout</a></li>"; } else { $results = mysqli_query($connection, "SELECT Email FROM Users WHERE UserId='$userid'"); if(mysqli_num_rows($results) == 1) { foreach(mysqli_fetch_assoc($results) as $result) { echo "<li><a href='logout.php'>Logout</a></li>"; if (strpos($result,'yahoo')) { echo '<img src="images/yahoo.png>'; } elseif (strpos($result,'gmail')) { echo '<img src="images/google.png">'; } else { // you could echo a default image here } } } } } ?> 中有一个NA，但我不知道t是什么。第二篇文章说要删除您正在使用的变量中的缺失值，但我已经检查过，并且我的变量都没有丢失值。

我知道我需要提供一个可重现的例子＆＃34; （意思是我需要上传数据集，是吗？）但我无法弄清楚如何将数据上传到问题中。我查看了StackOverflow的帮助中心，常见问题解答和高级编辑帮助页面。 如果有人可以向我解释如何上传R数据以便提供可重现的示例，我真的非常感谢。

我使用的代码是：

t

它产生的错误是

indirects = function(data,indices) {
  return(lm(monin2$directharm~monin2$racismc*monin2$vig+monin2$manip)$coef[6] * 
           lm(monin2$hatecrime~monin2$racismc*monin2$vig+monin2$manip+monin2$directharm,data=data,subset=indices)$coef[6]) }

b = boot(data=monin2,statistic=indirects,R=5000)
ci = boot.ci(b,conf=.95,type="bca")
b 
ci 

我使用以下代码检查我的任何变量是否有缺失值，并且我对输出的解释是其中任何变量都不存在缺失值：

Error in if (const(t, min(1e-08, mean(t, na.rm = TRUE)/1e+06))) { : 
  missing value where TRUE/FALSE needed

Answer 1

下面的代码挑选了boot()使用的线性回归模型中的第六个系数，但在这个特定模型中我只有五个系数，所以我要求boot()使用一个变量不存在。

indirects = function(data,indices) {
  return(lm(monin2$directharm~monin2$racismc*monin2$vig+monin2$manip)$coef[6] * 
           lm(monin2$hatecrime~monin2$racismc*monin2$vig+monin2$manip+monin2$directharm,data=data,subset=indices)$coef[6]) }