Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/80.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
在r中创建条件变量_R_Statistics - Fatal编程技术网

在r中创建条件变量

在r中创建条件变量,r,statistics,R,Statistics,我们被分配了一个任务,其中我们必须创建2个变量,均匀分布在0和1之间,运气和智力,有2000个观察值: Intelligence <- runif(2000, 0, 1) Luck <- runif <- runif(2000, 0, 1) 它有2000个观测值,将y定义为a+b,其中a=智力,b=运气。我对R不是很有经验,所以我的问题是我的最终“大学”值的条件,如果a+b>1,我需要告诉R:University=1。UniversityUniversity你的意思是: Un

我们被分配了一个任务,其中我们必须创建2个变量,均匀分布在0和1之间,运气和智力,有2000个观察值:

Intelligence <- runif(2000, 0, 1)
Luck <- runif <- runif(2000, 0, 1)
它有2000个观测值,将y定义为a+b,其中a=智力,b=运气。我对R不是很有经验,所以我的问题是我的最终“大学”值的条件,如果a+b>1,我需要告诉R:
University=1

University
University你的意思是:

University <- floor(Intelligence+Luck)
University <- ifelse(Intelligence+Luck > 1, 1, 0)
大学1,1,0)
你的意思是:

University <- ifelse(Intelligence+Luck > 1, 1, 0)
大学1,1,0)

使用
dplyr
将简化您的工作流程,使您的代码更易于阅读,我建议在
时使用
case\u(与SQL case类似,非常有用)

库(tidyverse)
#使你的数据变得不可复制
df1~‘1’
,智力(运气)总和<1 ~'0'))%>%
#删除“intelligence”变量
选择(-intelligence\u luck\u sum)

使用
dplyr
将简化您的工作流程,使您的代码更易于阅读,我建议在
时使用
case\u(与SQL case类似,非常有用)

库(tidyverse)
#使你的数据变得不可复制
df1~‘1’
,智力(运气)总和<1 ~'0'))%>%
#删除“intelligence”变量
选择(-intelligence\u luck\u sum)
Try:
University 1)
Try:
University 1)
library(tidyverse)

# make a tibble of your data
df <- data.frame(Intelligence, Luck)
df <- as.tibble(df)

df <- 
  df %>% 
  # new column, adds intelligence + Luck
  mutate (intelligence_luck_sum = Intelligence + Luck) %>% 
  # combine 'case_when' and 'mutate', create new variable 'University'
  # and perform the case when test for 2 scenarios
  mutate ( 
    University = case_when(
      intelligence_luck_sum > 1 ~ '1'
      , intelligence_luck_sum < 1 ~ '0')) %>% 
  # remove the 'intelligence' variable
  select(-intelligence_luck_sum)