경기도 인공지능 개발 과정/과제

R 1차 04/12 과제 -2

agingcurve 2022. 4. 13. 10:22
반응형
seasons_2 <- rbind(seasons,c("초봄","초가을"))
seasons_2

1. seq() 함수를 사용하여 date4 라는 변수에 2015년 1월 1일부터 2015년 1월 3일까지 1일 씩 증가하는

31개의 날짜를 입력하는 방법을 쓰세요

date4 <- seq(as.Date("2015-01-01"),as.Date("2015-01-03"),by=1)
date4

 

2. vec1 생성후 "감을 제외하고 출력

vec1 <- c("사과","배","감","버섯","고구마")
vec1[-3]

 

3. vec1, vec2 생성

vec1 <- c("봄","여름","가을","겨울")
vec2 <- c("봄","여름","늦여름","초가을")

 

1) vec1 과 vec2 내용을 모두 합친 결과

c(vec1,vec2)

2) vec1 에는 있는데 vec2에는 없는 결과를 출력

setdiff(vec1, vec2)

3) vec1, vec2에 모두 있는 결과 출력

intersect(vec1, vec2)

4. 아래그림을 완성

1)

seasons <- matrix(vec1,nrow=2,ncol=2)
seasons

2)

seasons <- matrix(vec1,nrow=2,ncol=2,byrow=T)
seasons

5. 여름과 겨울만 조회

seasons[2,]

6. 초봄, 초가을 추가 하여 seansons_2 생성

seasons_2 <- rbind(seasons,c("초봄","초가을"))
seasons_2

7. 초봄, 초가을 열추가 하여 seansons_2 생성

 

seasons_3 <- cbind(seasons,c("초봄","초가을"))
seasons_3

 

※새로운 함수정리 및 주의사항

  • union(vector1, vector2) : 합집합
  • setdiff(vector1, vector2) : 차집합 -> 순서에 따라서 결과가 달라짐
  • intersect(vector1, vector2) : 교집합
  • rbind(기존행렬, 추가c(~~)) : 기존행렬에 행추가
  • cbind(기존행렬, 추가c(~~)) : 기존행렬에 열추가
  • seq(as.Date("2022-04-01"), as.Date("2022-04-13"), by="day) : 날짜별 하루씩 증가함
  • seq(as.Date("2022/04/01"), as.Date("2022/04/13"), by="day) : 날짜별 하루씩 증가함(-또는 / 안할경우 오류)
  • 벡터 데이터 제외 : 벡터명[-위치]