##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (start, end, chromosome, dp = NULL)
{
if (is.null(dp))
dp <- getClass("GeneModel")@prototype@dp
new("GeneModel", exonStart = start, exonEnd = end, dp = dp)
}
Run the code above in your browser using DataLab