> x <- as.data.frame(x)       # 데이터 프레임 구조로 변환
> x x
1 1
2 1
3 1
4 2
5 2
6 2
> class(x)                 # 데이터 프레임 구조로 출력됨
[1] "data.frame"

> # 진릿값 할당
> x$x <- TRUE              # x 열에 참(TRUE) 값을 할당
> x
      x
1  TRUE
2  TRUE
3  TRUE
4  TRUE
5  TRUE
6  TRUE
> class(x)                 # 여전히 데이터 프레임 구조로 출력
[1] "data.frame"

> y <- as.logical(x$x)     # 논리형으로 변환
> y
[1] TRUE TRUE TRUE TRUE TRUE TRUE
> class(y)                 # 논리형으로 출력됨
[1] "logical"