Pertemuan 1

"Hello World"

## [1] "Hello World"

print("Hello World")

## [1] "Hello World"

#comment

# Legal variable names: myvar, my_var, myVar, MYVAR, myvar2, .myvar 

# Illegal variable names: 2myvar, my-var, my var, _my_var, my_v@ar 

myvar <- 3
name <- "bjorka"
age <- 27
p <- "keren"

print(name) 

## [1] "bjorka"

age    

## [1] 27

#age+p
#age+name
#name+p
#print(name,p)
paste(name,p)

## [1] "bjorka keren"

cat(name,p)

## bjorka keren

# numeric
x <- 10.5
class(x)

## [1] "numeric"

# logical/boolean
x <- TRUE
class(x)

## [1] "logical"

# character/string
x <- "hello world"
class(x)

## [1] "character"

x

## [1] "hello world"

cat(x)

## hello world

nchar(x)

## [1] 11

a <- 10
b <- 9

#aritmetik
a+b

## [1] 19

a/b

## [1] 1.111111

a%%b

## [1] 1

#comp
a >= b

## [1] TRUE

a==b

## [1] FALSE

a!=b

## [1] TRUE

a<=b

## [1] FALSE

#boolean
haha <- T
hihi <- F
!haha

## [1] FALSE

haha&&hihi

## [1] FALSE

haha||hihi

## [1] TRUE

x <- 5
y <- 2
!(x%%y==1)

## [1] FALSE

Hasil=x*3+(7%%5)*y
Hasil

## [1] 19

luas_o <- function(r){
  pi=3.14
  luas <- pi*r*r
  return(luas)
}
luas_o(10)

## [1] 314

diameter_o <- function(k){
  pi=3.14
  d <- k/pi
  return(d)
}
diameter_o(70)

## [1] 22.29299

z <- 50
if(z<50){
  print("z kurang dari 50")
} else if(z>50){
  print("z lebih dari 50")
} else {
  print("z=50")
}

## [1] "z=50"

for (i in 1:5) {
  print(i)
}

## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5

i <- 1
while (i < 6) {
  print(i)
  i=i+1
}

## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5

fungsi1 <- function(x){
  if(x%%2==0){
    print("genap")
  }else{
    print("ganjil")
  }
}

#faktorial

faktorial <- function(n){
  hasil = 1
  
  if (n==0){
    return(1)
  }
    
  for (i in 1:n){
    hasil = hasil*i
  }
  return(hasil)
}

faktorial(5)

## [1] 120

#kombinasi

kombinasi <- function(n,r){
  hasil <- faktorial (n)/ (faktorial (r)*faktorial (n-r))
  return(hasil)
}
kombinasi(9,2)

## [1] 36

var <- c("apple", "banana", "cherry")
for (x in var) {
  print(x)
}

## [1] "apple"
## [1] "banana"
## [1] "cherry"

dice <- c(1, 2, 3, 4, 5, 6)
for (x in dice) {
  print(x)
}

## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5
## [1] 6

fruits <- c("apple", "banana", "cherry")
for (x in fruits) {
  if (x == "cherry") {
    break
  }
  print(x)
}

## [1] "apple"
## [1] "banana"

fruits <- c("apple", "banana", "cherry")
for (x in fruits) {
  if (x == "banana") {
    next
  }
  print(x)
}

## [1] "apple"
## [1] "cherry"

i <- 1
while (i < 6) {
  print(i)
  i <- i + 1
  if (i == 4) {
    break
  }
}

## [1] 1
## [1] 2
## [1] 3

i <- 0
while (i < 6) {
  i <- i + 1
  if (i == 3) {
    next
  }
  print(i)
}

## [1] 1
## [1] 2
## [1] 4
## [1] 5
## [1] 6

max(5, 10, 15)

## [1] 15

min(5, 10, 15)

## [1] 5

sqrt(16)

## [1] 4

abs(-4.7)

## [1] 4.7

ceiling(1.4)

## [1] 2

floor(1.4)

## [1] 1