CRAN
링크를 선택해서 적당한 mirror 사이트를 선택한 뒤, 해당되는 운영체제에 적당한 링크를 선택한다.base
링크를 선택하여 프로그램을 설치한다.plot
과 같은 함수를 호출하면 그래프 창이 새로 열리게 된다.Download
를 선택한 뒤 RStudio Desktop
을 선택하여 설치한다.set.seed(904)
name <- read.table('name.txt')
name[1:nrow(name),] <- NA # remove
name <- as.character(unlist(name))
team <- NULL
res = length(name)%%8
mod = length(name)%/%8
for(i in 1:8){
if(res!=0){
tmp_ind <- sample(1:length(name),mod+1,replace=F)
team[[i]] <- name[tmp_ind]
name <- name[-tmp_ind]
res <- res-1
} else {
tmp_ind <- sample(1:length(name),mod,replace=F)
team[[i]] <- c(name[tmp_ind],'')
name <- name[-tmp_ind]
}
}
team <- as.data.frame(team)
colnames(team) <- paste0(1:8,'조')
kable(team,align='c') %>%
kable_styling(bootstrap_options = c("striped","bordered"), full_width = T, position = "center")
1조 | 2조 | 3조 | 4조 | 5조 | 6조 | 7조 | 8조 |
---|---|---|---|---|---|---|---|
NA | NA | NA | NA | NA | NA | NA | NA |
NA | NA | NA | NA | NA | NA | NA | NA |
NA | NA | NA | NA | NA | NA | NA | NA |
NA | NA | NA | NA | NA | NA | NA | NA |
NA | NA | NA | NA | NA | NA | NA | NA |
NA | NA | NA |
![]() |
---|
Problem 1 |
![]() |
Problem 2 |
![]() |
Problem 3 |
![]() |
Problem 4 |
![]() |
Problem 5 |
![]() |
Problem 6 |
![]() |
Problem 7 |
![]() |
Problem 8 |
본인의 이름을 제목으로 한 빈 내용의 R파일을 eTL에 업로드하기.