TM KOMSTAT 1

#Menentukan Batas Keceptan Jenis Highway

cat("Kecepatan menurut Jenis Highway")

## Kecepatan menurut Jenis Highway

Kecepatan <- c(36,56,81,95,182) #Kecepatan dalam km/h

for (Kecepatan in Kecepatan) {
  if (Kecepatan >= 130) {
    Jenis <- "Autobahn"
  } else if (Kecepatan >= 90 & Kecepatan < 130) {
    Jenis <- "Motorway atau Expressway atau Jalan Bebas Hambatan"
  } else if (Kecepatan >= 70 & Kecepatan < 90) {
    Jenis <- "Expressway terbatas"
  } else if (Kecepatan >= 50 & Kecepatan < 70) {
    Jenis <- "Jalan lokal"
  } else {
    Jenis <- "Jalan kota atau pemukiman"
  }
  print (Jenis)
}

## [1] "Jalan kota atau pemukiman"
## [1] "Jalan lokal"
## [1] "Expressway terbatas"
## [1] "Motorway atau Expressway atau Jalan Bebas Hambatan"
## [1] "Autobahn"

#Jenis Highway

cat("Kecepatan menurut Jenis Highway\n")

## Kecepatan menurut Jenis Highway

Kecepatan <- c(36,56,81,95,182) #Kecepatan dalam km/h
Jenis <- c("Jalan kota atau pemukiman", "Jalan lokal", "Expressway terbatas", "Motorway atau Expressway atau Jalan Bebas hambatan", "Autobahn")

for (i in 1:length(Kecepatan)) {
  print(paste("Jenis", Jenis[i], "- Kecepatan", Kecepatan[i], "km/h"))
}

## [1] "Jenis Jalan kota atau pemukiman - Kecepatan 36 km/h"
## [1] "Jenis Jalan lokal - Kecepatan 56 km/h"
## [1] "Jenis Expressway terbatas - Kecepatan 81 km/h"
## [1] "Jenis Motorway atau Expressway atau Jalan Bebas hambatan - Kecepatan 95 km/h"
## [1] "Jenis Autobahn - Kecepatan 182 km/h"

#Menentukan Batas Keceptan Jenis Highway

cat("Kecepatan menurut Jenis Highway")

## Kecepatan menurut Jenis Highway

Kecepatan <- c(60) #Kecepatan dalam km/h

if (Kecepatan >= 130) {
  print ("Autobahn")
} else if (Kecepatan >= 90 & Kecepatan < 130) {
  print ("Motorway")
} else if (Kecepatan >= 70 & Kecepatan < 90) {
  print ("Expressway")
} else if (Kecepatan >= 50 & Kecepatan < 70) {
  print ("Jalan lokal")
} else {
  print ("jalan kota")
}

## [1] "Jalan lokal"