## ----echo=TRUE, message=FALSE-------------------------------------------------
library(NestLink)

## ----fig.retina=1, fig.height=5, fig.width=5----------------------------------
# load(url("http://fgcz-ms.uzh.ch/~cpanse/p1875/F255744.RData"))
# F255744 <- as.data.frame.mascot(F255744) 
# now available through ExperimentHub

library(ExperimentHub)
eh <- ExperimentHub(); 

load(query(eh, c("NestLink", "F255744.RData"))[[1]])

.ssrc.mascot(F255744, scores = c(10, 20, 40, 50), 
             pch = 16, 
             col = rgb(0.1,0.1,0.1,
                       alpha = 0.1)
)

## ----sessionInfo, echo=FALSE--------------------------------------------------
sessionInfo()