library(sagenhaft)
B6Hypo <-read.sage.library(system.file("extdata", "B6HypothalHFI.sage",
package="sagenhaft"))
E15post <- read.sage.library(system.file("extdata", "E15postHFI.sage",
package="sagenhaft"))
testlib <- combine.libs(B6Hypo, E15post)
testlib <- estimate.errors.mean(testlib)
testlib <- em.estimate.error.given(testlib)
tagneighbors <- compute.sequence.neighbors(testlib$seqs[,"seq"], 10,
testlib$seqs[,paste("q", 1:10, sep="")])
Run the code above in your browser using DataLab