# Define the vehicle SurvivalBeast <- Vehicle("Survival Beast", maxHealth = 1000, speed = 50, armor = 200)