odev 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