# NOT RUN {
demo_file <- system.file('extdata',
'demo/proteinpaint/fusions2pp_fusioncatcher.txt', package = 'ngstk')
input_data <- read.table(demo_file, sep = '\t', header = TRUE, stringsAsFactors = FALSE)
result <- fusions_filter(input_data)
# }
Run the code above in your browser using DataCamp Workspace