# The car table program in R

# Generate a dataframe using 4 varabiles (car,kph,mph,cost)

# Also includes a bike, motocycle and a normal human (normal speed vs running)

car <- c ("Normal human", "Running human", "Bike", "Motorcycle", "Car", "4x4 car",
"Racing car", "Powerful racing car", "Plane")
kph <- c (5, 15, 25, 50, 100, 150, 250, 400, 750)
mph <- c (3, 9, 15, 31, 62, 93, 155, 249, 466)
cost <- c (0, 0, 250, 500, 1000, 1500, 2000, 4000, 8000)

df <- data.frame(car, kph, mph, cost)
print (df)