## -----------------------------------------------------------------------------
library(genefindr)

# Check that functions are available
is.function(findr)
is.function(findr_multi)

## ----eval=FALSE---------------------------------------------------------------
# library(genefindr)
# findr("TP53")

## ----eval=FALSE---------------------------------------------------------------
# findr("TP53", site = "breast")
# findr("APOE", disease = "alzheimer")

## ----eval=FALSE---------------------------------------------------------------
# findr_multi(c("TP53", "BRCA1", "MYC"), site = "breast")

## ----eval=FALSE---------------------------------------------------------------
# findr("TP53", site = c("breast", "lung", "colon"))

## ----eval=FALSE---------------------------------------------------------------
# results <- findr_multi(c("TP53", "BRCA1"), site = "breast", output = "table")
# write.csv(results, "candidates.csv")

## ----eval=FALSE---------------------------------------------------------------
# findr("MALAT1", site = "lung")