#Gambar 2.22

NILAI=c(100,95,70,80,25,60,80,60,55,90)
NILAI
##  [1] 100  95  70  80  25  60  80  60  55  90
NILAI[NILAI>80]
## [1] 100  95  90

#Gambar 2.24

NILAI=c(100,95,70,80,25,60,80,60,55,90)
NILAI
##  [1] 100  95  70  80  25  60  80  60  55  90
NILAI[NILAI<70]
## [1] 25 60 60 55

#Gambar 2.26

NILAI=c(100,95,70,80,25,60,80,60,55,90)
NILAI
##  [1] 100  95  70  80  25  60  80  60  55  90
NILAI[NILAI>60&NILAI<80]
## [1] 70

#Gambar 2.28

NILAI=c(100,95,70,80,25,60,80,60,55,90)
NILAI
##  [1] 100  95  70  80  25  60  80  60  55  90
NILAI[NILAI>80|NILAI<30]
## [1] 100  95  25  90

#Gambar 2.30

NILAI=c(100,95,70,80,25,60,80,60,55,90)
NILAI
##  [1] 100  95  70  80  25  60  80  60  55  90
NILAI[NILAI<75]
## [1] 70 25 60 60 55

#Gambar 2.32

NILAI=c(100,95,70,80,25,60,80,60,55,90)
NILAI
##  [1] 100  95  70  80  25  60  80  60  55  90
NILAI=NILAI[NILAI>90]
NILAI
## [1] 100  95

#Gambar 2.34

fungsi=function(x)
{
for(i in 1 : length(x))
 {
if(x[i]<65)
 {
x[i]=x[i]+10;
 }
print(x[i])
 }
}
A=c(100,95,70,80,25,60,80,60,55,90)
fungsi(A)
## [1] 100
## [1] 95
## [1] 70
## [1] 80
## [1] 35
## [1] 70
## [1] 80
## [1] 70
## [1] 65
## [1] 90