PBS 2

panggil=function(x,y,z) 
{ 
a=x; 
print(a); 
for(i in x : z) 
{ 
a=a+y; 
if(a>z) 
{ 
break; 
} 
print(a); 
} 
} 
panggil(2,3,30) 

## [1] 2
## [1] 5
## [1] 8
## [1] 11
## [1] 14
## [1] 17
## [1] 20
## [1] 23
## [1] 26
## [1] 29

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

A=c(10, 10, 10, 10, 20, 20, 30, 30, 30, 30, 30, 30) 
barplot(table(A)) 

A=c(10, 10, 10, 10, 20, 20, 30, 30, 30, 30, 30, 30)  
barplot (table(A))
barplot(table(A)/length(A))

A=c(10,10,10,10,10,20,20,20,30,30,40) 
table(A)

## A
## 10 20 30 40 
##  5  3  2  1

nilai=c(10,20,30,40) 
frekuensi=c(5,3,2,1) 
plot(nilai,frekuensi) 

A=c(10,10,10,10,10,20,20,20,30,30,40) 
plot(table(A))