# NOT RUN {
if (is_tmhmm_installed()) {
fasta_filename <- system.file("extdata", "tmhmm.fasta", package = "tmhmm")
locatome <- run_tmhmm(fasta_filename)
# Show as text
message(locatome, sep = "\n")
# Show as data frame
message(locatome_to_df(locatome))
# Show as plot
plot_locatome(locatome)
}
# }
Run the code above in your browser using DataLab