ödev 4

x <- c(“kadın”, “erkek”)

x

[1] “kadin” “erkek”

x <- 2:7

x

[1] 2 3 4 5 6 7

seq(from=5, to=15, by=3)

[1] 5 8 11 14

rep(5, times=20)

[1] 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5

x<- rep(3:5, times=10)

x

[1] 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5

x

[1] 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5

y <- rep(x, times=3)

y

[1] 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4

[39] 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3 4 5 3

[77] 4 5 3 4 5 3 4 5 3 4 5 3 4 5

y <- 10:13

y

[1] 10 11 12 13

y +10

[1] 20 21 22 23

y * 5

[1] 50 55 60 65

z <- seq(from=30, to=60, by=10) y <- z/5

y

[1] 6 8 10 12

y + z

[1] 36 48 60 72

z / y

[1] 5 5 5 5

y*z

[1] 180 320 500 720

y - z

[1] -24 -32 -40 -48

x <- 4:10

x

[1] 4 5 6 7 8 9 10

x [2]

[1] 5

x [-2]

[1] 4 6 7 8 9 10

x [x<7]

[1] 4 5 6

matrix (1:9, nrow=3, byrow= TRUE)

[,1] [,2] [,3]

[1,] 1 2 3

[2,] 4 5 6

[3,] 7 8 9

matrix (1:9, nrow=3, byrow= FALSE) [,1] [,2] [,3] [1,] 1 4 7 [2,] 2 5 8 [3,] 3 6 9

m <- matrix (1:9, nrow=3, byrow= FALSE)

m [1,2] [1] 4

m [1,] [1] 1 4 7

m [c(1,3),2] [1] 4 6

n <- m/2 n

[,1] [,2] [,3]

[1,] 0.5 2.0 3.5

[2,] 1.0 2.5 4.0

[3,] 1.5 3.0 4.5

n+m

[,1] [,2] [,3]

[1,] 1.5 6.0 10.5

[2,] 3.0 7.5 12.0

[3,] 4.5 9.0 13.5