R .7.

1. 벡터의 집합연산

코드작성

x <- c(1,2,3)
y <- c(4,2,6)
#합집합
union(x,y)
#곱집합
intersect(x,y)
#차집합
setdiff(x,y)
#같은 집합인가?
setequal(x,y)
#a는 x에 포함되어 있는가?
is.element(a,x)

결과

[1] 1 2 3 4 6
[1] 2
[1] 1 3
[1] FALSE
[1] TRUE TRUE TRUE FALSE FALSE FALSE

2.sample

코드작성

#1~99 랜덤으로 9개 수를 뽑아서 정렬 후 x에 대입
(x <- c(sort(sample(1:99, 9))))

#3~60 랜덤으로 7개 수를 뽑아서 y에 대입
(y <- c(sample(3:60, 7)))

결과

[1] 4 8 10 14 16 41 58 96 98
[1] 12 45 20 46 5 41 19

3.unique와 match

코드 작성

#A,B,C,D를 4번 반복해서 생성
(x <- req(c("A","B","C","D"),time=4))

#반복된 값을 제거하여 보여주고, Data자체는 변하지 않음
unique(x)
#벡터에서 A가 있으면 1을 출력
match(x,c("A"))

결과

[1] "A" "B" "C" "D" "A" "B" "C" "D" "A" "B" "C" "D" "A"
[14] "B" "C" "D"
[1] "A" "B" "C" "D"
[1] 1 NA NA NA 1 NA NA NA 1 NA NA NA 1 NA NA NA