##---- 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 (id, type, biomart, dp = NULL)
{
if (missing(id))
stop("Need to specify a gene identifier for creating a Transcript")
pt <- getClass("Transcript")@prototype
if (is.null(dp))
dp <- pt@dp
if (missing(type))
type = pt@type
new("Transcript", id = id, type = type, biomart = biomart,
dp = dp)
}
Run the code above in your browser using DataLab