simpan =c(10,20,40,15,40)
simpan

## [1] 10 20 40 15 40

simpan[4]

## [1] 15

simpan[c(1,3,4)]

## [1] 10 40 15

simpan[2:4]

## [1] 20 40 15

#####################################
simpan =c(1000,2000,3000,4000,5000)
simpan

## [1] 1000 2000 3000 4000 5000

#####################################
nilai=c(10,40,45,30,80)
nilai

## [1] 10 40 45 30 80

nilai=nilai[-3]
nilai

## [1] 10 40 30 80

nilai=nilai[-4]
nilai

## [1] 10 40 30

nilai=nilai[c(-1,-3)]
nilai

## [1] 40

#####################################
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

#####################################
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

mode(1000)

## [1] "numeric"

simpan=c(1000)
mode(simpan)

## [1] "numeric"

#####################################
kuadrat=function(x)
{
  print(x*x);
}
a=c(4)
kuadrat(a)

## [1] 16

mode(kuadrat)

## [1] "function"

#####################################
a=c(100,70,80,55,80,70,80)
length(a)

## [1] 7

sort(a)

## [1]  55  70  70  80  80  80 100

diff(a)

## [1] -30  10 -25  25 -10  10

sum(a)

## [1] 535

#####################################
a=sqrt(81)
a

## [1] 9

b=sqrt(a)
b

## [1] 3

#####################################
a=c(10,25,90,75,95,57)
max(a)

## [1] 95

min(a)

## [1] 10

exp(1)

## [1] 2.718282

exp(2)

## [1] 7.389056

pi

## [1] 3.141593

options(digits=10)
#####################################
seq(from=1,to=10)

##  [1]  1  2  3  4  5  6  7  8  9 10

seq(from=2,by=0.5,length.out=4)

## [1] 2.0 2.5 3.0 3.5

#####################################
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

#####################################
a=c(10,10,30,10,30,10,10,40,40,70,90,70,80,60,60,90)
table(a)

## a
## 10 30 40 60 70 80 90 
##  5  2  2  2  2  1  2

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))

```