1回答
9 1 9 4 8 5 5 2 7 1
10 4 9 2 1 4 4 10 2 9 我想运行这个公式： c_SA=lm(formula = GN1 ~ ifelse(df2$if_a == 1,PEC3+PEC4+AC6,GN2+GN3+E10+PSV7+PEC3), data = df) 其中df2$if_a是来自df我尝试过as.formula()和reformulate()，但没有成功： c_SA=lm(formula = GN1 ~ ifel
浏览 11提问于2019-03-06得票数 0
2回答
R中变量数的回归函数
、、、
)) VIFb <- 1/(1- (R2 <- summary(lm(b ~ a + c + d +(lm(c ~ a + b + d + e + f + g))$r.square))
PMc <- ifelse (sqrt(VIFc) > 2, "JE", "NI
浏览 0提问于2014-09-14得票数 2
我尝试使用嵌套的if else语句，但遇到了问题，因为我有太多的条件(无论是否缩放X3ivs possible =6个潜在条件)。我如何简化我的代码，使它更容易阅读？is.na(iv3)){iv3<-eval(parse(text=paste0(df,"$",iv3)))} ifelse(!ifelse(!return(summary(lm((dv)~(iv1)))))))
) #format=ifels
浏览 1提问于2017-05-09得票数 1
我有这个数据帧ds：16LM1DNA我想在示例名称中的LM或M上创建一个新列：ds %>% matches(sample, "\\d+Md+") ~ "M"但它不起作用。
浏览 1提问于2017-10-11得票数 2
我正在用市场模型进行事件研究: AR(i，t)=R(i，t) -(alpha(I)+β(I)*R(m，t))。由于数据格式和过滤，我很难计算alpha(截获)和β(斜率)估计器。目前我的数据是这样的： 9 2016我需要的是只对事件前窗口使用lm()函数进行回归(例如，第9:11、21:23、74:77行，即-3:1预事件)。p
浏览 1提问于2021-05-15得票数 0
下面是一个使用两个库的R脚本示例library(pmmlTransformations)irisBox <- WrapData(iris) newFieldName="Sepal.Length.Transformed",
formulaText="ifelse(Sepal.Length>5,Sepal.Length*1.2, S
浏览 2提问于2017-07-25得票数 0
回答已采纳
1回答
我想使用嵌套的前置循环，包括并行化.作为输出，我想要有两个带有dim R的矩阵，b1，我非常感谢您的一些建议！！b1 ## ensures reproducibility x <- runif(n, 18, 80)
mod.lm</em
浏览 2提问于2020-11-30得票数 2
回答已采纳
我想使用一个ifelse条件来区分要运行哪个回归。但是，当我使用ifelse时，输出不是lm对象。我正在附加用于复制我的问题的代码。请帮帮忙。= lapply(names.list, { function(f)
浏览 3提问于2017-07-12得票数 0
回答已采纳
2回答
重复记录线性回归结果
、、、、
如下面的示例所示，我想要实现的是多次运行回归，每次R在一个中记录did的估计值。每一次，我在"ifelse“中更改了年份条件，即ifelse(mydata$ >= 1993，1，0)，因此每次我运行不同的回归。mydata$time = ifelse(mydata$year >= 1994, 1, 0)library(foreign)
mydata = read.dta("http:/
浏览 0提问于2018-09-01得票数 1
回答已采纳
road_id <- c("road_1", "road_2")lm1_mean <- c(2,3,4,7)lm_estimate <- c(5,5,5,5)
widths <- data.frame(road_id, roadFunction, lm1_mean, lm2_mean,
浏览 0提问于2019-08-21得票数 2
回答已采纳
library(data.table)
lapply(unique(dt$location), function(z) lm(location == 1, 0, <
浏览 10提问于2020-12-07得票数 0
回答已采纳
1回答
我在R中有一个特定的数据争论任务，我需要将预测变量划分为重叠的“邻域”(或范围)，并将线性模型(简单/二元)拟合到每个“邻域”，以获得与该“邻域”中的中间预测变量相关联的拟合值。= 100, sd = 20)), x = seq.int(0,9))new_data <- data %>% neighborhood4 =
浏览 2提问于2021-03-19得票数 1
回答已采纳
1回答
语句，但是现在我正在以更大的规模运行它，我很想找到一种方法来使它更快一些。targets_random$daypart <- ifelse((wday(targets_random$daypart) == 1 | ifelse(hour(targets_random$daypart) <= 2, "LP:Late Pri
浏览 1提问于2016-10-02得票数 1
回答已采纳
2回答
函数不会显示所有数据。
、、、
(具体来说，我从NHANES数据库中提取了年龄，并将不同的年龄范围划分为几代) ifelse(Database$Age>= 42 & Database$Age <= 57, "Gen
浏览 5提问于2022-11-09得票数 1
from: c = format(abs(coef(m)[3]), digits = 2),
s1 = ifelse(test = coef(m)[2]>0, yes = "+", no
浏览 0提问于2015-01-13得票数 3
回答已采纳
基于下面的函数，如何添加Formula = label = get_formula(model)和R^2(superscript) = label = r_squared？+ rnorm(100, sd = 40) geom_smooth(method = "lmgeom_point()
broom::tidy(model)[, 1:2] %>
浏览 1提问于2022-07-12得票数 0
回答已采纳
1回答
这会将线性模型添加到一年中每周的数据框中 cond_model %>% ~lm
浏览 6提问于2017-07-29得票数 1
回答已采纳
1回答
var <- ifelse(a==4 & b==4, 2, 0)
上面的代码不起作用，因为我没有考虑到只有一个4型等位基因副本的个体。我觉得我可能需要两个同时工作的ifelse语句？
浏览 0提问于2014-08-16得票数 0
回答已采纳
由多个班级的多名教师使用R。Auto$c3 <- ifelse(Auto$cylinders == 3, 1, 0)Auto$c5 <- ifelse(Auto$cylinders == 5, 1, 0)Auto$c8<-
浏览 0提问于2018-02-06得票数 2
回答已采纳
1回答
我在这里想做的是ifelse(myfunct(R) >= myfunct(worst_point),{IC <- C - 0.5 * (R - C); ifelse(myfunct(IC) < myfunct(worst_point), {points[[which.max(result)]]In rep(no, length.out = length(ans))
浏览 1提问于2017-10-21得票数 1
回答已采纳
云服务器
ICP备案
云点播
对象存储
即时通信 IM
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号