library(sagenhaft)
B6Hypo <- read.sage.library(system.file("extdata", "B6HypothalHFI.sage",
package="sagenhaft"))
E15post <- read.sage.library(system.file("extdata","E15postHFI.sage",
package="sagenhaft"))
libcomp <- compare.lib.pair(B6Hypo, E15post)
plot(libcomp)
libcomp
Run the code above in your browser using DataLab