# for this example we'll create dummy files
countfile <- tempfile()
write.csv(data.frame(row.names = c("Sample1", "Sample2", "Sample3"),
Mrkr1_A_0 = c(0, 20, 4),
Mrkr1_G_1 = c(7, 0, 12)),
file = countfile, quote = FALSE)
dbfile <- tempfile()
write.csv(data.frame(Marker.name = "Mrkr1", Chr = 5, Pos = 66739827),
file = dbfile, row.names = FALSE, quote = FALSE)
# read the data
myrad <- readTagDigger(countfile, dbfile = dbfile)
Run the code above in your browser using DataLab