data(spliceset)
print(spliceset)
par(mfrow=c(1,2))
plot(spliceset, main=attr(spliceset, "name"))
## filter out supporting matches with unique positions
filter.typeI <- function(x) {unique(x[duplicated(x), , drop=FALSE])}
spliceset.filter <- spliceset
sSites <- spliceset.filter@spliceSites
sSites@spsiteIpos <- filter.typeI(sSites@spsiteIpos)
spliceset.filter@spliceSites <- sSites
## plot the resulting new object
plot(spliceset.filter)Run the code above in your browser using DataLab