test=1
# Get the example files directory
extdata_dir = np(system.file("extdata", package="BioGeoBEARS"))
# tmp hard code: extdata_dir = "/Dropbox/_njm/__packages/BioGeoBEARS_setup/inst/extdata/"
# Set the filenames (Hawaiian Psychotria from Ree & Smith 2008)
trfn = np(paste(extdata_dir, "/Psychotria_5.2.newick", sep=""))
tr = read.tree(file=trfn)
geogfn = np(paste(extdata_dir, "/Psychotria_geog.data", sep=""))
# Look at the tree and ranges, for kicks
getranges_from_LagrangePHYLIP(lgdata_fn=geogfn)
tr
## Not run:
# # Run the ML search
# bears_output = bears_3param_standard_fast(trfn=trfn, geogfn=geogfn)
# bears_output
# ## End(Not run)
Run the code above in your browser using DataLab