##---- 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 (base, value, strand, segmentation, dp = NULL)
{
pt <- getClass("BaseTrack")@prototype
if (is.null(dp))
dp <- pt@dp
if (missing(strand))
strand <- pt@strand
if (missing(segmentation))
segmentation <- pt@segmentation
if (missing(base))
stop("Need base argument to know the base positions to plot the data on the genome")
if (missing(value))
stop("Need value argument")
new("BaseTrack", base = base, value = value, strand = strand,
dp = dp, segmentation = segmentation)
}
Run the code above in your browser using DataLab