## Some E4 Test Cases with the correct output.
# Make your own test cases as well, and put them in a separate R script.
# Do not submit your test cases.

> ListDuplicates(list(1, "hello", 4, 4, "hi"), 4)
[1] TRUE
> ListDuplicates(list(1, "hello", 4, 454, "hi"), 4)
[1] FALSE
> ListDuplicates(list("csc121", "csc207", "csc207"), "csc121")
[1] TRUE
> ListDuplicates(list("csc121", "csc207", "csc207"), "csc108")
[1] FALSE
>
>
> pets = list(list("Shoji", "cat", 18), list("Hanako", "dog", 15))
> PetSelection(pets, 19, 12)
[1] 0
>
> PetDictionary(pets)
$cat
[1] "Shoji"

$dog
[1] "Hanako"

>
>
> pets = list(list("Shoji", "cat", 18), list("Hanako", "dog", 15), list("Sachiko", "alligator", 7), list("Toby", "dog", "12"))
>
> PetSelection(pets, 10, 17)
[1] "Shoji"
> PetSelection(pets, 19, 17)
[1] "Hanako"
> PetSelection(pets, 19, 12)
[1] -1
>
> PetDictionary(pets)
$cat
[1] "Shoji"

$dog
[1] "Hanako" "Toby"  

$alligator
[1] "Sachiko"
>