尝试预览R笔记本时出错。代码执行正常，但转换到笔记本电脑失败

我一直试图在R notebook中排除一个错误，其中R块正确执行，但当我尝试预览笔记本时，我得到以下错误：

创建笔记本时出错：值的长度必须为3，但FUN（X[[1]]）结果的长度为1。参见第31行。

产生错误的代码是Friedman对我的数据的分析（使用

agricolae

package）

以下是正确执行并用于Friedman分析的代码块（这些是我的R笔记本中的代码块，但我省略了笔记本中关于这个问题所需的

{R}

和反勾号）：

包装安装 数据帧创建

---

为了使它工作，我删除了

console=TRUE

参数，添加了

print（Friedmantest）

语句。笔记本预览现在打印Friedman测试的输出。现在正确的代码如下所示：

Friedmantest <- with(WineTasting,friedman(Taster,Wine,Taste,alpha=0.05, group=TRUE))
print(Friedmantest)

---

Friedmantest为了使它工作，我删除了
console=TRUE
参数，添加了一个
print（Friedmantest）
语句。笔记本预览现在打印Friedman测试的输出。现在正确的代码如下所示：

Friedmantest <- with(WineTasting,friedman(Taster,Wine,Taste,alpha=0.05, group=TRUE))
print(Friedmantest)


Friedmantest请创建一个。这样其他人就可以复制粘贴你的代码，希望能解决这个问题。我现在为你添加了一个最小的可复制示例。谢谢你的示例，尽管这不是我想要的。R代码可以独立工作，但在RNotebook中失败。尝试删除
console=TRUE
。看起来RNotebook不喜欢这样。或者，您可以使用普通的R标记文档（即，
output:html\u document
而不是
output:html\u notebook
）。啊，我成功了。正如您所说，我删除了
console=TRUE
参数，只添加了
print（Friedmantest）
语句。笔记本预览现在打印Friedman测试的输出。谢谢你的帮助！请创建一个。这样其他人就可以复制粘贴你的代码，希望能解决这个问题。我现在为你添加了一个最小的可复制示例。谢谢你的示例，尽管这不是我想要的。R代码可以独立工作，但在RNotebook中失败。尝试删除
console=TRUE
。看起来RNotebook不喜欢这样。或者，您可以使用普通的R标记文档（即，
output:html\u document
而不是
output:html\u notebook
）。啊，我成功了。正如您所说，我删除了
console=TRUE
参数，只添加了
print（Friedmantest）
语句。笔记本预览现在打印Friedman测试的输出。谢谢你的帮助！
library(agricolae)
WineTasting <- data.frame(
  Taste = c(5.40, 5.50, 5.55,
            5.85, 5.70, 5.75,
            5.20, 5.60, 5.50,
            5.55, 5.50, 5.40,
            5.90, 5.85, 5.70,
            5.45, 5.55, 5.60,
            5.40, 5.40, 5.35,
            5.45, 5.50, 5.35,
            5.25, 5.15, 5.00,
            5.85, 5.80, 5.70,
            5.25, 5.20, 5.10,
            5.65, 5.55, 5.45,
            5.60, 5.35, 5.45,
            5.05, 5.00, 4.95,
            5.50, 5.50, 5.40,
            5.45, 5.55, 5.50,
            5.55, 5.55, 5.35,
            5.45, 5.50, 5.55,
            5.50, 5.45, 5.25,
            5.65, 5.60, 5.40,
            5.70, 5.65, 5.55,
            6.30, 6.30, 6.25),
  Wine = factor(rep(c("Wine A", "Wine B", "Wine C"), 22)),
  Taster = factor(rep(1:22, rep(3, 22))))

Friedmantest <- with(WineTasting,friedman(Taster,Wine,Taste,alpha=0.05, group=TRUE,console=TRUE))

Friedmantest <- with(WineTasting,friedman(Taster,Wine,Taste,alpha=0.05, group=TRUE))
print(Friedmantest)