# Exercice 7-6 Exercise 2

# Create a sublist for animalType

AnimalType=list(Species="Dog", Breed="Greyhound")
# Create a list animals

Animals<-list(PetName="Gracie",   # Newlines make things readable
              Type=AnimalType,
              Age=14,
              Owner="Nusbacher")

# Display list using tag

Animals

# Display the type details using tag

Animals$Type

# Display the breed details using tag

Animals$Type$Breed

# Display the type details using indices

Animals[[2]]

# Display the breed details using tag

Animals[[2]][[2]]
