simpan = c (10, 20, 40, 15, 40)
simpan
## [1] 10 20 40 15 40
kuadrat=function(x) 
{ 
print(x*x); 
} 
A=c(4) 
kuadrat(A) 
## [1] 16
mode(kuadrat) 
## [1] "function"
A=c(10,25,90,75,95,57) 
max(A) 
## [1] 95
min(A)
## [1] 10
A=c(10, 10, 10, 10, 20, 20, 30, 30, 30, 30, 30, 30) 
barplot(table(A))