# Create a valid experiment table
exptab <- data.frame(
condition = c("cond1", "cond2"),
replicate = c(1, 1),
direction = c("forward", "reverse"),
strand = c("plus", "minus"),
path = c("toto/", "toto/"))
checkexptab(exptab) # Should pass without errors
# Invalid experiment table (wrong column names)
invalid_exptab <- data.frame(
cond = c("cond1", "cond2"),
rep = c(1, 1),
dir = c("forward", "reverse"),
str = c("+", "-"),
paths = c("toto/", "toto/"))
try(checkexptab(invalid_exptab))
Run the code above in your browser using DataLab