# NOT RUN {
(x <- system.file("examples/pensoft_1.xml", package = "pubchunks"))
pub_guess_publisher(x)
(x <- system.file("examples/copernicus_2.xml", package = "pubchunks"))
pub_guess_publisher(x)
(x <- system.file("examples/peerj_1.xml", package = "pubchunks"))
pub_guess_publisher(x)
(x <- system.file("examples/hindawi_1.xml", package = "pubchunks"))
pub_guess_publisher(x)
(x <- system.file("examples/frontiers_1.xml", package = "pubchunks"))
pub_guess_publisher(x)
(x <- system.file("examples/elife_1.xml", package = "pubchunks"))
pub_guess_publisher(x)
(x <- system.file("examples/elsevier_1.xml", package = "pubchunks"))
pub_guess_publisher(x)
x <- system.file("examples/f1000research_1.xml", package = "pubchunks")
pub_guess_publisher(x)
x <- system.file("examples/plos_1.xml", package = "pubchunks")
pub_guess_publisher(x)
x <- system.file("examples/mdpi_1.xml", package = "pubchunks")
pub_guess_publisher(x)
x <- system.file("examples/pubmed_brief_1.xml", package = "pubchunks")
pub_guess_publisher(x)
x <- system.file("examples/pubmed_full_1.xml", package = "pubchunks")
pub_guess_publisher(x)
x <- system.file("examples/pubmed_full_2.xml", package = "pubchunks")
pub_guess_publisher(x)
x <- system.file("examples/pubmed_full_3.xml", package = "pubchunks")
pub_guess_publisher(x)
# }
Run the code above in your browser using DataLab