# NOT RUN {
fpath <- system.file("extdata", "vncMedianCoverage.tsv", package="cellOrigins")
vncExpression <- read.delim(file = fpath, header=FALSE, as.is=TRUE)
expression <- vncExpression$V2
names(expression) <- vncExpression$V1
result <- seqVsInsitu(expression, depth=1)
diagnosticPlots(result)
# }
# NOT RUN {
oracleResponse <- iterating_seqVsInsitu(expression, 3)
diagnosticPlots(oracleResponse)
# }
Run the code above in your browser using DataLab