如何在一个向量上使用ifelse，并在if语句之后进行多次计算(它使用来自其他向量的条目)
在向量上使用ifelse语句并在if语句之后进行多次计算的方法如下：
首先，我们需要创建一个向量，例如vector1，以及其他向量，例如vector2和vector3，它们包含了我们需要进行计算的数据。
然后，我们可以使用ifelse语句来根据条件对向量进行操作。ifelse语句的一般语法如下：
result <- ifelse(condition, true_value, false_value)
其中，condition是一个逻辑条件，true_value是当条件为真时要返回的值，false_value是当条件为假时要返回的值。
在我们的例子中，我们可以使用ifelse语句来根据vector1的值选择执行不同的计算。假设我们要在vector1上进行加法运算，如果vector1的值大于10，则使用vector2的对应条目进行加法运算，否则使用vector3的对应条目进行加法运算。代码示例如下：
vector1 <- c(5, 12, 8, 15, 3)
vector2 <- c(2, 4, 6, 8, 10)
vector3 <- c(1, 3, 5, 7, 9)
result <- ifelse(vector1 > 10, vector1 + vector2, vector1 + vector3)在上述代码中，如果vector1的值大于10，则使用vector2的对应条目进行加法运算，否则使用vector3的对应条目进行加法运算。最终的结果将存储在result向量中。
这种方法可以在ifelse语句之后进行多次计算，只需根据需要添加更多的计算逻辑即可。
腾讯云相关产品推荐：
- 云服务器（CVM）：提供弹性计算能力，满足各类业务需求。产品介绍链接
- 云数据库 MySQL 版（CDB）：提供稳定可靠的云端数据库服务。产品介绍链接
- 云函数（SCF）：无服务器函数计算服务，支持按需运行代码。产品介绍链接
- 人工智能机器学习平台（AI Lab）：提供丰富的人工智能开发工具和资源。产品介绍链接
- 云存储（COS）：提供安全可靠的对象存储服务，适用于各类数据存储需求。产品介绍链接
请注意，以上推荐的腾讯云产品仅供参考，具体选择应根据实际需求进行。
相关·内容
1回答
我在R方面很新，我正在努力弄清楚如何使用sapply使我的函数更快，有帮助吗？
x <- c(0.0, 1.0, 2.0, 3.0, 4.0, 5.7)
y <- c(10.0, 7.0, 5.5, 4.5, 3.2, NA)
z <- c(as.data.frame(cbind(x,y))
vcub=function(y, x, z)
{
vol<-vector()
for(i in 1:dim(z)[1]){
if(is.na(y[i]))
{
vol[i]<-(((pi*y[i-1]^
浏览 2提问于2014-09-10得票数 1
回答已采纳
我在R.中的嵌套ifelse()语句中遇到了一个问题，我有一个具有列年龄的dataframe。我必须按照以下条件对数据进行编码-
If <=18，Age=child，如果年龄>18，<=60，Age=adult，如果年龄>60，则Age=senior.
我用下面的代码来解决这个问题。
ifelse((Titanic$Age <= 18),Titanic$Age <-'child',ifelse((Titanic$Age>18 & Titanic$Age<=60),Titanic$Age <- 'adult&#
浏览 2提问于2019-10-08得票数 0
我想检查向量A is empty: return [0] else: return A
import theano
import theano.tensor as T
A = T.ivector()
out = T.switch( T.eq(A.size, 0), [0], A )
f = theano.function([A], out)
print f([1])
print f([])
这些指纹：
[ 1 ]
[]
条件语句本身工作，如果A是空的，它只返回1。
浏览 3提问于2016-02-14得票数 3
回答已采纳
我正在尝试创建一个函数，如果列的类型为char，则该函数将数据框的数据类型转换为factor，否则我不会更改任何内容。但这里的问题是，我可以对if else语句执行相同的操作，但不能使用if_else语句。这里是用于相同注释的代码-我使用的是titanic数据集
changetype = function(x)
if(class(x) == "character") as.factor(x) else x
changetype2 = function(x)
if_else(is.character(x),as.factor(x),x)
result1 = sapply
浏览 0提问于2018-05-25得票数 3
嗨，我想知道是否可以假设SELECT语句从左到右选择字段，以确保按照以下方式构造语句是安全的(尝试使用未设置的变量是不太好的)：
SELECT @variable := IFNULL(var, 0), value + @variable, somevalue, value2*@variable, ..., @variable/whatever...
FROM table1 LEFT JOIN table2 LEFT JOIN table3
我之所以问这个问题，是因为在一些元组中，由于使用左联接(假设var来自表3)，var等于null，而且我需要多次使用变量来生成派生字段，如您所见，所以我不
浏览 5提问于2015-03-02得票数 0
回答已采纳
如果can ()可以返回，是否对值的类型有一些限制？
适用于：
v = c(1,2)
l1 = list(11)
l2 = list(22)
> ifelse(v==1, l1, l2)
[[1]]
[1] 11
[[2]]
[1] 22
如预期，但：
hp0 = fp_text_lite()
hp = fp_text_lite(bold = TRUE, shading.color = "yellow" )
ifelse(v==1, hp, hp0)
[[1]]
[1] NA
[[2]]
[1] NA
浏览 5提问于2022-01-13得票数 0
回答已采纳
2回答
我正在处理一个大型数据集，我们将其命名为data，并希望创建一个新列，基于某个列data$input，我们将其命名为data$results。结果是基于一些条件if/then逻辑，所以我最初的方法是这样的：
for (rows in data) {
data$results <- if(data$results == "1" | data$results== "2") {
trueAnswer
} else {
falseAnswer
}
}
对于大数据帧，此过程可能需要几个小时才能运行。但是，如果我
浏览 1提问于2018-04-16得票数 1
1回答
在我的数据集中，我有2年的数据，所以有730个条目。问题是，第一年的表格1至365，第二年的表格相同。
我希望“年度日”栏中的值为1到730。
我的“新手功能”：
set$DoYnew = if (seq(set$Year==2002)) {set$DoY <- set$DoY+365}
没能让我更进一步。它得到的错误是：
在if (z < 0) { :>中，条件长度>1，并且只使用第一个元素
问题出在哪里？
浏览 1提问于2013-04-05得票数 2
我希望将依赖于检查条件的函数向量化，并根据该条件是真还是假，分别返回两个函数之一的结果。问题是，当条件为FALSE时，无法计算第一个函数。然后，如果返回正确的值，但也会产生警告。我想要生成一个不产生警告的函数。
我试过ifelse()，但它不起作用。我原以为当条件为FALSE时，此命令将跳过第一个函数的计算。
下面是一段说明性的R代码
p = c(-1,1,-1,1,-1,-1,-1,1)
ifelse(p>0, sqrt(p), p^2)
回传
[1] 1 1 1 1 1 1 1 1
Warning message:
In sqrt(p) : NaNs produced
正如您所看到
浏览 0提问于2019-07-01得票数 2
回答已采纳
3回答
我想计算一个比率(A /B= C)。然后我要为比率指定一个标签。如果比率等于0，标签将得到"0“。如果值小于1，则得到"1“。最后，比率大于1标签得到"2“。
下面是示例数据：
A B C
1 0 171.06 0.0000000
2 1 2 0.5
3 0 120.84 360.00000
4
浏览 3提问于2017-06-12得票数 1
回答已采纳
我有一个带有列a的数据帧。我想在列'a‘的基础上添加一个不同的列'b’。
For: if a>=10, b='double'. Otherwise b='single'.
我该怎么做呢？
示例输出：
a b
2 single
2 single
4 single
11 double
12 double
12 double
45 double
4 single
浏览 0提问于2014-09-05得票数 3
回答已采纳
X1是主队的专栏。
goals
X1 X2
1 1 1
2 4 0
3 0 0
4 2 1
5 1 1
6 1 1
7 1 1
8 0 0
...
如果我输入嵌套的elseif If，我会在控制台中得到正确的结果。
> ifelse(goals$X1 > goals$X2, goals$winner <- "h",ifelse(goals$X1 <
goals$X2, goals$winner <- "d",goals$winner <- &#
浏览 0提问于2017-04-07得票数 3
回答已采纳
我想写一个if语句，格式如下：
a=5
b=2
la<-function(a,b){
if(a>3){a}
else{b}
}
现在，我想要做的不仅仅是if语句中的一个操作，而是两个操作，例如：
if(a>3){a and c<<-1000}
在这种情况下，返回'a‘，并在变量'c’中写入1000
我的问题是如何在if语句后插入多个操作。
浏览 1提问于2012-12-31得票数 15
回答已采纳
3回答
我现在才开始深入研究R中的IF语句。根据我从中看到的，看起来所有的IF语句都必须是nested。
这是真的吗？如果是这样的话，这种IF/THEN结构更像EXCEL，而且我认为，它不像RUBY或Python IF/THEN逻辑那样直接。我没有打断这件事吗？
在EXCEL ( gui，而不是VBA)中，您必须运行如下公式：
#IF Statement 1
=IF(A1<20, A1*1,
#IF Statement 2
IF(A1<50, A1*2,
#IF Statement 3
IF(A1<100, A1*3, A1*4)
#Closes IF Statement 2
)
浏览 4提问于2012-01-23得票数 2
回答已采纳
1回答
如何将以下代码从Stata转换为R？
gen a01sb=cond(b01~=1 & c01~=1, a01, 0)
我知道它是按if-else-条件排序的，但我不知道如何在R中对其进行编码。
浏览 92提问于2018-05-30得票数 -1
回答已采纳
我有csv文件，我想读取它作为一个数据或矩阵。我成功地读取了.csv文件，但是当我想要根据条件if语句更改条目时，它不起作用。csv文件可以在这里下载
我想将这个.csv文件作为一个矩阵或数据读取。然后，我想根据某些条件将条目更改为“是”或“否”。我试过这个：
mydata = read.csv("mydata.csv")
mydata = data.frame(mydata)
ifelse(mydata>0.005, "YES", "NO")
mydata
然而，我得到的结果是
和
我试过这个
mydata =
read.csv
浏览 0提问于2021-08-15得票数 1
回答已采纳
我试着为这个问题寻找答案，但我不确定我是否在搜索栏中正确地问了这个问题，所以它开始了。我想以两个向量为基础，创建一个具有逻辑条件的if或ifelse语句。
下面是代码的缩短版本：
ifelse(Vector1 == c(T,T,T),"Combo1","Combo2")
我创建了一个名为"Vector1“的向量。它的值目前是T T F。所以在上面的例子中，我希望输出值"Combo2“被打印出来。相反，我得到了Combo1 Combo1 Combo2的向量。因此，我看到它正在将这些值传递到向量中，但我希望ifelse语句传递单个TRUE或FALSE
浏览 0提问于2017-05-12得票数 2
回答已采纳
2回答
我正在试着为我的R在线课程解决一个练习。我们有一个向量B：
B<-c(seq(10,75,by=1))
我想将所有可以被5整除的元素(没有余数，例如5，10，15)设置为NA。然后向量看起来像(NA，11，12，13，14，NA，...，)。我的想法是使用模运算符%%和替换函数：
replace((B%/%5==0),B,NA)
当我这样做时，向量返回以下输出：
[1] TRUE FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE NA NA NA
NA
[14] NA NA NA NA
浏览 0提问于2018-04-28得票数 1
2回答
我正在尝试比较R中的两个字符串，请建议如何在下面的R代码中比较n和reversed_split。
n= readLines(file("stdin"))
string <- strsplit(as.character(n), "")
string = unlist(string)
reversed_split = string[nchar(n):1]
if(string == reversed_split)
print("Indeed")
else
print("Not At All")
浏览 0提问于2018-05-01得票数 0
回答已采纳
我之前也发过类似的问题()。
但正如有人指出的那样，我没有包含相关的数据。下面是我的代码：
library(shiny)
library(leaflet)
library(DT)
library(ggplot2)
library(dplyr)
r_colors <- rgb(t(col2rgb(colors()) / 255))
names(r_colors) <- colors()
plotdata <- read.csv("C:/Users/Anatoly/Documents/Collatz/RenameLater/RenameLater/MapsAndSuc
浏览 1提问于2017-04-16得票数 1
我有一个主要由数字列组成的数据框架，每个列都有几个独特的元素。那些有20个或更少的唯一值的人，我想要像现在这样转换成因子，那些有更多的，我想转换成使用gtools::quantcut的因素。
我为什么不了解ifelse在lapply中的行为？
d <- data.frame(a = sample(1:10, 100, replace=T),
b = sample(1:10, 100 ,replace=T),
c = sample(1:30, 100 ,rep
浏览 0提问于2014-04-25得票数 0
回答已采纳
test = [1, 1, 1, 1]
ifelse(isassigned(test, 5), test[5], "nope")
对我来说，这应该会产生字符串“To”，但是相反，我得到了
BoundsError: attempt to access 4-element Array{Int64,1} at index [5]
这是一个bug还是预期的功能？
现在，我用的是
if isassigned(test, 5) test[5] else "nope" end
但在理解列表的过程中，这并不是很清楚的。
浏览 3提问于2020-11-29得票数 1
回答已采纳
2回答
我有我的数据
test<-data.frame(F1=c(1,2,3,4,5),F2=c(3,4,5,6,7),Group=c("G1","G2","G2","G3","G1"))
我试着在不同的条件下设置不同的点颜色：
FF<-function(Ture_or_not){
p<-ggplot(test,aes(x=F1,y=F2))+
geom_point(aes(color=Group),size=10)+
scale_color_manual(values=ifelse(
浏览 4提问于2020-12-25得票数 0
回答已采纳
2回答
我有一个非常大的事件数据集(df)，其中每一行对应一个度量、时间点(df$TimeSec)和事件ID (df$Source)。 下面的循环创建列df$TimeDiff，该列计算当前行时间戳与下一行时间戳之间的时间差。它还检查Source是否已更改，以便新事件的第一行的TimeDiff为NA。 我正在尝试改变我的思维方式，从循环到利用R的矢量化，并希望提高处理速度。 for(i in 1:nrow(df)){
if(df$Source[i+1] == df$Source[i]){
df$TimeDiff[i+1] <- df$TimeSec[i+1] - df$TimeSec
浏览 25提问于2019-04-26得票数 0
回答已采纳
1回答
我有一个用户定义的函数，我正在以下数据集上使用它：
Pos
A
B
C
A
C
B
我创建了以下函数来向数据集添加一个变量。
Predict <- function(Uncontested.REB.per.game, STL.per.game, BLK.per.game, Opp.FGA.at.rim.per.game, PTS.per.game, Passes.per.game, log.Points.created.by.assist.per.game, sqrt.Drives.Per.Game, Pos){
if (Pos=="A"){
Pred = 1
浏览 2提问于2015-05-11得票数 1
1回答
只是在玩一些基本的函数，如果我使用哪个()函数作为参数之一，如果ifelse条件是真的，那么如果使用哪个()函数，似乎会很奇怪，例如：
#I want to identify the location of all values above 6.5
#only if there are more than 90 values in the vector a:
set.seed(100)
a <- rnorm(100, mean=5, sd=1)
ifelse(length(a)>90, which(a>6.5), NA)
我得到了这个输出：
[1] 4
事实上，它应该是以
浏览 1提问于2014-10-03得票数 0
回答已采纳
1回答
晚上好，伙计们，我有六百万的数据，他们有四种类型。
z=structure(list(date = structure(c(11866, 16190, 14729, 11718), class = "Date"),
beg1 = structure(c(12264, 12264, 13970, 12264), class = "Date"),
end1 = structure(c(17621, 14760, 14760, 13298), class = "Date"),
ID
浏览 0提问于2019-09-20得票数 1
回答已采纳
我正在编写一个函数，它根据数据帧中的几个字段计算一个新列。部分过程是在实际处理之前对一个输入字段的范围进行预检查。奇怪的是，我的预检查总是返回相同的值，也就是说，对dataframe的第一行进行预检查的结果。
请参阅下面的示例，其中包含了我的函数的简化版本，其中只包括了检查。即使变量被正确地传递给函数，并且每次都不同，预检查的结果仍然是一样的。我遗漏了什么？
> my_function = function(x){
+ print(paste(x, x < 32 && x > 0))
+ if (x < 32 && x >
浏览 0提问于2018-07-04得票数 0
回答已采纳
在R中，如果一个字符串向量61,1 b中的元素与31，1字符串向量c1，c2，c3中的元素匹配，则设置61,1虚拟向量a等于1。
我试过这样的方法：
for(i in 1:3) {
data$a[data$b==data2$ci]<-1
}
但没有成功。
为了说明清楚，这些数据看起来类似于(无法生成列向量，因此请考虑这些数据的转置)：
Data
a 0 0 0 0 0 ... 0
b M M D M X ... E
Data2
c1 M
c2 X
c3 P
我想让"a“看起来像：
a 1 1 0 1 1 ... 0
编辑：
此代码适用于：
data$a <- ife
浏览 0提问于2019-08-31得票数 0
回答已采纳
1回答
如何在R中创建包含式分箱函数？
、、、、
我正在尝试创建一个根据多个条件对数据进行装箱的函数。我的数据有两个变量：max_dist和activated.
该函数应为不同的bin创建多个向量；检查max_dist是否在特定范围内，如果在该范围内，则将1附加到向量，如果activated为TRUE，则将activated附加到列表。
关键部分是，对于每个观察值，如果max_dist大于指定的范围，但activated也是TRUE，那么我希望在该bin中包含0。因此，一些具有高max_dist值的观测值将被多次入库。
目前我的结构是这样的(简写版本-全长有6个存储箱)：
binning_function <- function(df)
浏览 8提问于2018-08-29得票数 0
2回答
我想用R写一些类似这样的东西：
If (df$age<5) {df$child=1}
else {df$child=NA}
但这对我不起作用。
你能改正一下吗？
浏览 2提问于2014-06-02得票数 0
考虑以下数据
F1 <- c(1,1,1,0,1)
F2 <- c(10,20,15,7,20)
F3 <- c('A', 'D', 'B', 'A', 'A')
F4 <- c(9,6,20,20,20)
F5 <- c(2,1,21,8,7)
df1 <- data.frame(F1,F2,F3,F4,F5)
当df1$F1==1时，我想得到$F4、$F5和$F2之间的最大值，但是如果$F3因子是A或B，则只考虑$F2。否则写NA
df1$max <- with(df1
浏览 2提问于2017-02-23得票数 0
回答已采纳
2回答
有人能给我推荐一个在R中使用矢量化编程方法的好教程吗?现在对我来说这感觉非常神奇，我真的不明白R在做什么。尤其是关于if语句和寻址相邻行的值。
浏览 1提问于2010-01-02得票数 4
回答已采纳
要求我们在使用函数外部来计算双和函数时编写一个函数。
最初，我的代码以以下形式编写，并且工作正常：
funC<-function(n){
express<-function(r,s){
s^2/(10+4*r^3)
}
s<-1:n
r<-1:n
g<-outer(r,s,"express")
g[row(g)< col(g)]<-0
sum(g)
}
但是，我注意到，当我将输入n增加到一个大的数(例如10000 )时，这个函数将运行得非常慢。
我认为这是因为在我的方案中，许多计算都是多余的，我应该去
浏览 0提问于2018-09-23得票数 0
2回答
这是我第一次在R中使用if- are语句，我有一个列(在一个数据框架中)，名为“Performance”，它包含百分比(其中一些是估计值)。我创建了一个名为“估计”的新列，它使用了'Performance‘列的最后一个字符。现在，我想用以下条件创建一列:如果‘估计’= '*‘，那么’估计‘=’是‘，否则估计’= 'NO‘。我只想保留新的专栏名“估计”。我所写的声明是有效的，但我收到了一条错误消息，上面写着：
“警告消息: In if (data.set$Estimate ==”*“”){：条件长度>1，将只使用第一个元素
以下是我的发言：
data.set
浏览 0提问于2014-09-23得票数 1
回答已采纳
可能重复：
关于如何最好地将函数向量化，这里有一些类似的问题，但我还找不到一个应用if类型函数的示例，该函数按行排列用于数据框架。
给出一个数据框架df，该列包含1912-2010年的年份值，我只想在测试年之前还是之后应用一个测试，并在另一列中指定一个字符"yes“或"no”。应该很容易..。
目前，我编写的代码如下：
i = 1
while (i < nrow(df)) {
if (df$Year[i] < 1948) {
df$Test[i] <- "Yes"
} else {
浏览 4提问于2012-10-31得票数 0
回答已采纳
1回答
我试图使用命令ifelse在R中创建一个向量函数，如下所示
temp <- function(p){
ifelse(p < 0.5 *(1 + 0.5), (1 + 0.5) * qnorm(p/(1 +0.5)), (1 - 0.5) * qnorm((p - 0.5)/(1 - 0.5)))
}
例如，该函数可以很好地处理标量值。
> temp(0.1)
[1] -2.251629
> temp(0.9)
[1] 0.4208106
但对载体来说却不是：
> temp(c(0.1,0.9))
[1] -2.2516289 0.4208106
Warning
浏览 2提问于2014-09-24得票数 1
回答已采纳
这只是一个基本的of，但它返回错误：“意外符号”，并指向最后一行的第一个字符。有什么想法吗？
input1<-readline("using C:/Users/HouseGroup/Desktop/betterformat.csv as the target csv file.
Is this correct? Y/N" )
ifelse (input1=="Y",
theData <- read.csv("C:/Users/HouseGroup/Desktop/betterformat.csv"),
rightDir<-
浏览 2提问于2013-02-01得票数 0
回答已采纳
我正在研究R中的这个虚拟问题：
Patient_Being_Tested_Disease = 0
Method_1 = 0.1
Method_4 = 0.4
Method_5 = 0.5
我正在尝试编写以下条件
winner = ifelse( Patient_Being_Tested_Disease == 0, min(Method_1, Method_4, Method_5), max(Method_1, Method_4, Method_5))
> winner
[1] 0.1
这是可行的，但是我不返回一个数字，而是返回与返回的数字相对应的“方法”。
例如，我希望IF语句返
浏览 3提问于2022-10-15得票数 0
回答已采纳
我正在寻找一个在RStudio中使用的代码，它将标识来自column B的值，如果column A中同一行的值小于x。
具体地说，如果N_LOG列中的值大于0.67，那么我想知道ACTIVITY_ACTION_ID column中的值是什么。输出可以是列表或表。下面是我的数据的图片。
谢谢你的帮助。
更新:我从工作中的一个朋友那里得到了一个解决方案，如果将来有人正在阅读这篇文章并需要答案的话。下面的任何一行都可以工作。
head( with(eLINK_Sediment, eLINK_Sediment[0.67 < N_LOG,"ACTIVITY_ACTION_ID"]
浏览 0提问于2017-12-20得票数 1
1回答
我对R很陌生，我想做一些事情，比如：
如果是Survive="Y“，那么我的数据文件中的Survive1=1名为"od”，但是，我的代码有问题。这就是我现在所拥有的
od$Survive <- c(0)
if(od$Survive=="Y"){
od$Survive1=1
}
我一直收到这样的警告：
警告消息:在if (od$Survive == "Y") {：条件长度>1并且只有第一个元素将被使用
浏览 3提问于2019-11-26得票数 0
回答已采纳
3回答
在R语言中，我希望使用switch语句来替换nest if else语句。我想给一个新列赋值，我的想法是：
## Create a function to seperate the case
Range <- function(x)
if (CityData_Group_Copy$BadDebtNum[x] < 26)
{ CityData_Group_Copy$BadDebtRange[x] <- "1~25"}
else if(CityData_Group_Copy$BadDebtNum[x] >
浏览 1提问于2015-05-18得票数 1
4回答
我正试着找出最近的星期天到今天。
我今天的定义是：
dt <- as.Date("2014-06-04")
我可以通过以下方式找到最后一个星期天：
dt - as.POSIXlt(dt)$wday
[1] "2014-06-01"
我可以通过以下方式找到下一个星期天：
dt + as.POSIXlt(dt)$wday
[1] "2014-06-07"
不确定为什么以下内容不起作用：
ifelse(as.POSIXlt(dt)$wday <= 3,
dt - as.POSIXlt(dt)$wday,
dt
浏览 1提问于2014-06-04得票数 1
回答已采纳
1回答
在R中创建条件轴标签？
、、、
我想知道为什么在运行下面的R函数时，我会收到以下警告：
Warning message: In if (is.na(labels)) axTicks(2) else labels : the condition has length > 1 and only the first element will be used
由于除了这条警告消息，一切都很好，我想知道如何消除这条警告消息？
bb <- function(labels = NA){
plot(1, yaxt = "n")
lab <- if(is.na(labels)) axTicks(2
浏览 1提问于2018-05-14得票数 0
回答已采纳
我正在处理一个问题，我希望有一个二进制变量Z，它是A的错误分类或度量不当的代理，只用于Y的某个级别。
我在这里模拟A和Y：
set.seed(76)
n=10000
#generate correctly classified treatment A
a <- (rbinom(n, 1, 0.5))
#generate Y conditional on A
pry <- exp(-3 + 0.7*a )/(1+ exp(-1 + 0.7*a))
y <- 1*(runif(n)<=pry)
然后生成Z，这是A的一个错误分类版本(在下面的示例中，Z捕获了80%的真
浏览 2提问于2018-11-28得票数 1
回答已采纳
考虑下面的df
structure(list(GID7173723 = c("A", "T", "G", "A", "G"), GID4878677 = c("G",
"C", "G", "A", "G"), GID88208 = c("A", "T", "G", "A", "G"), GID346403 = c("A",
"T&
浏览 1提问于2020-07-31得票数 0
1回答
我正在尝试使用ifelse语句来子集我的数据表，但是我没有得到我想要的结果。
我的初始数据表如下所示：
head(Data_copy, n = 18)
Company Date DOW variable value Year Month End_of_Month
1: ASXRI 1991-09-06 Friday RI NA 1991 Sep 0
2: ASXRI 1991-09-09 Monday RI NA 1991 Sep 0
3: A
浏览 3提问于2016-09-26得票数 3
回答已采纳
2回答
我有一个名为Cat的数据框。我有多个列。在一个名为Jan.15_Transaction的向量中，我有值。我想应用一个条件，如果value大于0，则1否则为0。因此，我不想使用if else条件，因为有42列与此相似，我希望在其中应用相同的逻辑。
Jan.15_Transaction Feb.15_Transaction
1 1
2 2
3 3
4 4
因此，我构建了这个函数
m
浏览 14提问于2016-07-27得票数 1
回答已采纳
我在R中得到了这个输出，我不能理解:我正在查看下面的向量bb中是否存在向量aa的条目。谁能解释一下，为什么我的输出向量的条目并不都是TRUE，正如人们所期望的那样？
aa <- seq(0.1, 0.5, by = 0.1)
bb <- seq(0.01, 0.99, by = 0.01)
aa %in% bb
[1] FALSE TRUE FALSE TRUE TRUE
谢谢
浏览 0提问于2017-08-23得票数 0
3回答
我有一列数字，比如社会保险号码。我想将这一列与不可接受的值列表(例如11111111或12345678 )进行比较。还有一些grepl操作我想要执行，比如头3位数不能是000。下面是我认为代码可能是什么样的框架，我更喜欢for循环逻辑。
ssns <- c(12343210,23454321,34565432,11111111)
badssns <- c(11111111,22222222)
for( i in 1:length(ssns)) {
if(ssns[i] %in% badssn_list) {
ssns$newcolumn==BADSSN
浏览 5提问于2016-09-28得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
