[Must Learning with R_1] Ch2. 기본문법 1단계 연습문제

Wikidocs에 올라와있는 Must Learning with R 을 참고하며 방학동안 부족한 R programming 공부를 하고있습니다. 책에 나와있는 연습문제를 정리하려 합니다.

Ch2. 기본문법 1단계

연습문제1

sample()을 활용해서 로또번호(1 ~ 45, 6개)를 추첨하여라.

x = sample(1:45, 6, replace = FALSE)
print(x)

결과

> x = sample(1:45, 6, replace = FALSE)
> print(x)
[1] 43 39 12 15 32  7

연습문제2

다음의 수열로 구성 된 벡터를 생성하시오.

$AV = (1,3,5,7,9, \cdots, 99)$
$BV = (1,1,2,2,3,3,4,4,5,5)$

AV = c(1:100,2)
print(AV)

BV = rep(c(1:5),rep(2,5))
print(BV)

결과

> AV = seq(1,100,2)
> print(AV)
 [1]  1  3  5  7  9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99
> 
> 
> BV = rep(c(1:5),rep(2,5))
> print(BV)
 [1] 1 1 2 2 3 3 4 4 5 5

연습문제3

다음과 같은 행렬을 생성하시오.

$M = \begin{pmatrix} 1 & 2 & 3 \\ 4 & 5 & 6 \\ 7 & 8 & 9 \end{pmatrix} $

N = matrix(c(1:9),3,3)
M = t(N)
print(M)

결과

> N = matrix(c(1:9),3,3)
> M = t(N)
> print(M)
     [,1] [,2] [,3]
[1,]    1    2    3
[2,]    4    5    6
[3,]    7    8    9

연습문제4

funtion()을 사용하여 다음의 함수를 만드시오.

$Quadratic(x,y) = x^2 + y + 10$

Q = function(x,y){
  z = x^2 + y + 10
  return(z)
}

연습문제5

for()문을 활용하여 구구단을 만드시오.

for( i in c(1:9) ){
  for (j in c(1:9)){
    print(paste(i,'x',j,'=',i*j))
  }
}

결과

> for( i in c(1:9) ){
+   for (j in c(1:9)){
+     print(paste(i,'x',j,'=',i*j))
+   }
+ }
[1] "1 x 1 = 1"
[1] "1 x 2 = 2"
[1] "1 x 3 = 3"
[1] "1 x 4 = 4"
[1] "1 x 5 = 5"
[1] "1 x 6 = 6"
[1] "1 x 7 = 7"
[1] "1 x 8 = 8"
[1] "1 x 9 = 9"
[1] "2 x 1 = 2"
[1] "2 x 2 = 4"
[1] "2 x 3 = 6"
[1] "2 x 4 = 8"
[1] "2 x 5 = 10"
[1] "2 x 6 = 12"
[1] "2 x 7 = 14"
[1] "2 x 8 = 16"
[1] "2 x 9 = 18"
[1] "3 x 1 = 3"
[1] "3 x 2 = 6"
[1] "3 x 3 = 9"
[1] "3 x 4 = 12"
[1] "3 x 5 = 15"
[1] "3 x 6 = 18"
[1] "3 x 7 = 21"
[1] "3 x 8 = 24"
[1] "3 x 9 = 27"
[1] "4 x 1 = 4"
[1] "4 x 2 = 8"
[1] "4 x 3 = 12"
[1] "4 x 4 = 16"
[1] "4 x 5 = 20"
[1] "4 x 6 = 24"
[1] "4 x 7 = 28"
[1] "4 x 8 = 32"
[1] "4 x 9 = 36"
[1] "5 x 1 = 5"
[1] "5 x 2 = 10"
[1] "5 x 3 = 15"
[1] "5 x 4 = 20"
[1] "5 x 5 = 25"
[1] "5 x 6 = 30"
[1] "5 x 7 = 35"
[1] "5 x 8 = 40"
[1] "5 x 9 = 45"
[1] "6 x 1 = 6"
[1] "6 x 2 = 12"
[1] "6 x 3 = 18"
[1] "6 x 4 = 24"
[1] "6 x 5 = 30"
[1] "6 x 6 = 36"
[1] "6 x 7 = 42"
[1] "6 x 8 = 48"
[1] "6 x 9 = 54"
[1] "7 x 1 = 7"
[1] "7 x 2 = 14"
[1] "7 x 3 = 21"
[1] "7 x 4 = 28"
[1] "7 x 5 = 35"
[1] "7 x 6 = 42"
[1] "7 x 7 = 49"
[1] "7 x 8 = 56"
[1] "7 x 9 = 63"
[1] "8 x 1 = 8"
[1] "8 x 2 = 16"
[1] "8 x 3 = 24"
[1] "8 x 4 = 32"
[1] "8 x 5 = 40"
[1] "8 x 6 = 48"
[1] "8 x 7 = 56"
[1] "8 x 8 = 64"
[1] "8 x 9 = 72"
[1] "9 x 1 = 9"
[1] "9 x 2 = 18"
[1] "9 x 3 = 27"
[1] "9 x 4 = 36"
[1] "9 x 5 = 45"
[1] "9 x 6 = 54"
[1] "9 x 7 = 63"
[1] "9 x 8 = 72"
[1] "9 x 9 = 81"