library(SVGMapping)

## Import sample data (taken from GEO acc:GSE7140 and SGD)

data(yeastExprData)

data(yeastAnnotMatrix)

mysvg <- loadSVG(system.file("extdata/example.svg", package="SVGMapping"))

logratios <- yeastExprData[,1]

foldchange <- ifelse(logratios>=0, 2^(logratios), -2^-logratios)

mapDataSVG(mysvg,

           logratios,

           tooltipData=foldchange,

           annotation=yeastAnnotMatrix)

## Show results in a browser

showSVG(mysvg)