HTML.R

simpan = c (10,20,40,15,40)
simpan[3]

## [1] 40

simpan [c(1,3,4)]

## [1] 10 40 15

simpan[2:4]

## [1] 20 40 15

NILAI=c(100,95,70,80,25,60,80,60,45,90)
NILAI[NILAI>70 | NILAI<20]

## [1] 100  95  80  80  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,45,90)
fungsi(A)

## [1] 100
## [1] 95
## [1] 70
## [1] 80
## [1] 35
## [1] 70
## [1] 80
## [1] 70
## [1] 55
## [1] 90

pi

## [1] 3.141593

exp(1)

## [1] 2.718282