[Chapter 06: 연습문제] 난생처음 R 코딩 & 데이터 분석

https://www.aladin.co.kr/shop/wproduct.aspx?ItemId=257831838&start=slayer

난생처음 R 코딩 & 데이터 분석

 

01. 다음 그림과 같이 팝업창을 띄워 값을 입력받기 위한 명령문을 완성하시오.

        A: svDialogs   B: dlgInput

02. print() 함수의 경우 자동으로 줄바꿈을 하지만 cat() 함수는 줄바꿈을 하지 않는다. cat() 함수에서 줄바꿈을 위해 어떤 문자열을 추가해야 하는지 적으시오.

        cat('출력 대상', '\n')

03. A란 현재 내가 읽거나 쓰고자 하는 파일이 위치하는 폴더를 말한다. 현재 A를 알아내기 위한 함수는 B, 작업 폴더를 변경하기 위한 함수는 C이다.

        A: 작업 폴더   B: getwd()   C: setwd()

04. 다음과 같이 콤마로 각각의 값을 구분하는 파일의 형식은 무엇인지 적으시오.

        .csv

05. 엑셀 파일을 불러오고 저장하기 위한 명령문을 완성하시오.

        A: xlsx   B: read.xlsx   C: write.xlsx

06. cat() 함수의 실행 결과를 'result.txt' 파일에 출력하기 위한 명령문을 완성하시오.

        A: sink   B: 'result.txt'   C: sink

07. 삼각형의 밑변과 높이를 팝업창에서 입력받아 넓이를 출력하는 프로그램을 작성하시오.

library(svDialogs)

base <- as.numeric(dlgInput('Base of a triangle')$res)
height <- as.numeric(dlgInput('Height of a triangle')$res)
square <- base * height / 2
print(square)

 08. 다음은 ds_tab.txt 파일에 저장된 데이터의 일부이다. 각 열은 탭으로 구분되어 있고, 헤더는 포함되어 있지 않다고 했을 때, 이 파일을 불러오기 위한 명령문을 작성하시오.

# setwd()
temp <- read.table('ds_tab.txt', header=F, sep='\t')

09. 다음과 같이 ds.txt를 ds.csv로 변경하여 저장하기 위한 명령문을 작성하시오.

data <- read.table('ds.txt', header=F, sep=" ")
write.csv(data, 'ds.csv', row.names=F) # 행번호 제외

10. 엑셀을 이용해 R에 내장되어 있는 iris 데이터셋을 분석하려고 한다. iris 데이터셋을 iris.xlsx 파일로 변환한 뒤 iris.xlsx 파일을 불러와 파일이 잘 생성되었는지 확인하시오.

#getwd()
#setwd()
install.packages('xlsx')
library(xlsx)
write.xlsx(iris, 'iris.xlsx', row.names=F)
iris.xlsx <- read.xlsx('iris.xlsx', header=T, sheetIndex=1)
iris.xlsx

11. 다음은 작업 결과를 log.txt에 저장하는 프로그램이다. 원하는 결과는 오른쪽 log.txt였지만 주어진 코드를 실행하니 다른 결과가 나왔다. 한 줄의 명령문만 수정하여 원하는 결과를 얻게 하시오.

#getwd()
#setwd()
library(svDialogs)
sink('log.txt')
cat('----- x * y ----- \n')
sink()
x <- as.numeric(dlgInput('Input')$res)
y <- as.numeric(dlgInput('Input')$res)
sink('log.txt', append=T)
cat('x =', x, 'y =', y, 'result =', x*y)
sink()