##---- 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 (intensity, probeStart, probeEnd, probeId, nProbes,
displayProbesets = FALSE, dp = NULL)
{
pt <- getClass("ExonArray")@prototype
if (is.null(dp))
dp <- pt@dp
if (missing(probeEnd))
probeEnd <- pt@probeEnd
if (missing(probeId))
probeId <- pt@probeId
if (missing(nProbes))
nProbes <- pt@nProbes
if (is.null(dp))
dp <- getClass("ExonArray")@prototype@dp
new("ExonArray", intensity = intensity, probeStart = probeStart,
probeEnd = probeEnd, probeId = probeId, nProbes = nProbes,
displayProbesets = displayProbesets, dp = dp)
}
Run the code above in your browser using DataLab