时间戳

首页 > 解决方案 > 尝试预览 R Notebook 时出错。代码执行有效，但转换为笔记本失败

r - 尝试预览 R Notebook 时出错。代码执行有效，但转换为笔记本失败

问题描述

我一直在尝试解决 R 块正确执行的 R 笔记本中的错误，但是当我尝试预览笔记本时，出现以下错误：

创建笔记本时出错：值的长度必须为 3，但 FUN(X[[1]])result 的长度为 1。见第 31 行。

创建错误的代码是弗里德曼对我的数据（使用agricolae包）的分析。

以下是正确执行并用于弗里德曼分析的块（这些是我的 R 笔记本中的代码块，但{r}出于此问题的目的，我省略了笔记本中所需的和反引号）：

包安装

if(!require(agricolae))
{
print("You are missing the package 'agricolae', we will now try to install it...")
install.packages("agricolae")
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))))

head(WineTasting)

弗里德曼检验

这就是错误所在：

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

该Friedmantest代码工作正常并将正确的结果打印到控制台，但无法在笔记本中预览，从而产生错误。

我尝试使用不同的数据集运行它，但无济于事（我收到相同的错误消息）。谷歌并没有真正产生任何有用的结果，而且似乎之前在 Stackoverflow 中也没有讨论过这个错误。任何帮助，将不胜感激。

最小的可重现示例

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))

标签： rr-markdownrnotebook

解决方案

为了使它起作用，我删除了console=TRUE参数添加了一个print(Friedmantest)语句。笔记本预览现在打印弗里德曼测试的输出。正确的代码现在如下所示：

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

推荐阅读