a <- chromosome()
c <- chromosome()
is.chromosome(list()) # FALSE
is.chromosome(1) # FALSE
is.chromosome(a) # TRUE
is.chromosome(c(a, c)) # TRUE TRUE
is.chromosome(list(a, b = "char")) # TRUE FALSE
is.chromosome(c(a, b = list(12, c))) # TRUE FALSE TRUE
Run the code above in your browser using DataLab