## Not run:
# # Sample data with domains for P53
# sample <- GRanges(seqnames = "chr17",
# IRanges(start = c(7576884, 7577499, 7579707),
# end = c(7577102, 7579403, 7579899)),
# strand = "-",
# domain = c("P53_tetramer", "P53", "P53_TAD"))
#
# # Create the mapping objects
# pfam.objs <- makePFAMObjs()
#
# PFAMIDE(transcripts = sample, desc = pfam.objs$desc, ids = pfam.objs$ids)
# ## End(Not run)
Run the code above in your browser using DataLab