问题标签 [sapply]

我正在使用 glm() 根据我制作的向量 (h1_lines) 中的值创建几个不同的模型。我想 sapply 为向量中的每个值返回一个模型。相反，我的代码当前正在返回一个列表列表，其中列表的一部分是模型。它似乎正在返回我在 sapply 函数中所做的一切。

我希望代码能够工作，所以在这些行之后我可以这样做：

但现在我不能这样做，因为 sapply 返回的不仅仅是模型......如果我打印（dim（models））它说模型有 30 行和 3 列？

编辑添加问题；

使用下面的代码建议效果很好，我可以进行 predict(models[[1]], test_case) 并且效果很好。如何返回/保存模型，以便我可以使用创建它们的密钥访问它们？例如，使用 h1_scores 可能类似于以下内容：

我有下表：

现在我遇到的问题是，经过多次测试校正后，存在一些高于 1 的 p 值，它们应该再次设置为 1。我认为这很容易做到，sapply但这给了我一个错误

矩阵错误（unlist（value，recursive = FALSE，use.names = FALSE），nrow = nr，：'data' 必须是向量类型，为 'NULL

我的尝试是：

myfamDF[, 2:4] <- sapply(myfamDF[,2:4], function(x){if(myfamDF[, 2:4][x] >= 1) {myfamDF[, 2:4] = 1}})

我在做什么错，为什么 sapply 将列表（data.frame）视为 NULL 类型。

老实说，我不确定标题是否准确地描述了正在发生的事情，但它就在这里。

假设我从以下对象“Tempcheck”开始

然后我调用一个函数并使用 sapply 来规范化一些数据。

Tempcor 是以前的对象，用于存储来自线性模型的系数。如果这是相关的，我可以稍后发布。

这一切都很好，花花公子！直到 ....

我调用另一个函数

然后再次使用 sapply 到 Tempcheck

我期待得到与上一行代码相同的东西，但是发生了一些奇怪的事情。

这个向量的长度是 1872^2，我认为这很奇怪。我的怀疑是它来自线路

我知道我可以用不同的方式做到这一点，但我试图强迫自己使用 apply 系列并更好地学习它。无论如何，任何帮助将不胜感激。谢谢！

我知道这段代码解决了我的问题。

我正在寻找一种将其转换为函数并应用于 Tempcheck[[3]] 列中的每个元素的方法

我知道我可以使用 apply 评估一个包含多个数据的函数，但是我可以使用一个数据评估多个函数吗？使用 sapply 我可以得到：

但我想要这样的东西：

并得到

有什么聪明的主意吗？:)

我想在两列中找到最大值[,1]并[,2]跨越此数据结构中的所有数字：

这是我的解决方案：

这种丑陋的表达方式还能再简化吗？应该是，它只是数据结构中所有数字的简单最大值。

数据转储x：

我使用 sapply 编写了一个函数，该函数获取数据框列的元素并重命名它们。我使用查找列表和 sapply 执行此操作。奇怪的是，我把东西放在查找列表中的顺序会改变输出。

这是我的例子：

似乎它将按字母顺序排列的向量与查找列表进行比较，并且每个元素的相应元素都匹配，但我不知道为什么。任何人都可以阐明这个问题并帮助我找到解决方案吗？

我有一个 data.frame 有几列有 1 个数字（X0 1-5）或 2 个数字（X0 6）

我可以手动执行此操作，但是如果我尝试将其包装到函数中以运行 Y0:X0、Y1:X1、Y2:X2 等，我会收到一条错误消息“强制引入的 NA”。

我有很多不同的方法——如果我一个一个地做，它会起作用，但不能让它作为函数的一部分工作。

我对具有多个参数的 R 应用函数有一个类似但不完全相同的问题

我有一个包含两个变量 RSHIFTSTART 和 RSHIFTEND（以及其他变量）的数据集。这些变量包含时间，例如。23:30:00 或 00:00:00。我想用 NA 替换 RSHIFTSTART 和 RSHIFTEND ，只要两个变量都为零，即。'00:00:00'。

我写了一个我认为可以完成这项工作的函数：

我的问题是如何应用这个函数来更新数据集的变量，即。为其提供两个参数。我试过了：

但这种语法不正确。也许我将被限制为每次调用只更改一个变量，即。RSHIFTSTART 或 RSHIFTEND，没关系。

有任何想法吗？谢谢皮特

我正在尝试编写一个需要：

1. 将列名视为变量
2. 获取列的长度（或访问最后一行）
3. 对列中的行子集求和

我可以用 做第 1 步sapply，但我被困在第 2 步。如何获得向量的长度？下面是一个示例数据集。

步骤 2 的预期结果是：

步骤 3 的期望结果是：

这是第 2 步的函数：

也许xhas length == 1，这可以解释为什么上面的代码只返回x2我想要返回的行的第一行，而不是最后一行。

我可以在函数外部轻松地执行这些操作，但是如何在允许将列名用作变量的函数内部执行它们呢？谢谢你的任何建议。

我是一名 C++ 程序员，而且我是 R 新手。有人告诉我，在 R 中使用 for 循环是个坏主意，最好使用sapply. 我编写了以下代码来计算生日巧合的概率：

我怎么能做同样的事情sapply？我想做类似的事情：

但是如何使用公式来确定生日不重合呢？