(→개요) |
Jmnote bot (토론 | 기여) 잔글 (봇: 자동으로 텍스트 교체 (-<source +<syntaxhighlight , -</source> +</syntaxhighlight>)) |
||
| 3번째 줄: | 3번째 줄: | ||
* "Conditional Element Selection" | * "Conditional Element Selection" | ||
< | <syntaxhighlight lang='r' run> | ||
a <- c(3, 1, 4, 1, 5, 9) | a <- c(3, 1, 4, 1, 5, 9) | ||
ifelse(a %% 2 == 0, "even", "odd") | ifelse(a %% 2 == 0, "even", "odd") | ||
</ | </syntaxhighlight> | ||
< | <syntaxhighlight lang='r' notebook> | ||
df <- read.table( header=TRUE, sep=",", stringsAsFactors=FALSE, text=" | df <- read.table( header=TRUE, sep=",", stringsAsFactors=FALSE, text=" | ||
id,score | id,score | ||
| 17번째 줄: | 17번째 줄: | ||
") | ") | ||
df | df | ||
</ | </syntaxhighlight> | ||
< | <syntaxhighlight lang='r' notebook> | ||
df$result <- ifelse(df$score >= 50, "pass", "fail") | df$result <- ifelse(df$score >= 50, "pass", "fail") | ||
df | df | ||
</ | </syntaxhighlight> | ||
==같이 보기== | ==같이 보기== | ||
2021년 4월 14일 (수) 02:00 기준 최신판
1 개요[ | ]
- R ifelse()
- "Conditional Element Selection"
a <- c(3, 1, 4, 1, 5, 9)
ifelse(a %% 2 == 0, "even", "odd")
df <- read.table( header=TRUE, sep=",", stringsAsFactors=FALSE, text="
id,score
1,40
2,60
3,45
4,50
5,25
")
df
df$result <- ifelse(df$score >= 50, "pass", "fail")
df
2 같이 보기[ | ]
3 참고[ | ]
로그인하시면 댓글을 쓸 수 있습니다.
{{ comment.name }}
{{ comment.created | snstime }}
-
{{comment.page_title}} ―{{comment.name}}