diff --git a/R/auxiliar.R b/R/auxiliar.R
new file mode 100644
index 0000000..dfdd6a0
--- /dev/null
+++ b/R/auxiliar.R
@@ -0,0 +1,5 @@
+.data <- function(){
+  templ <- system.file("xls", "lbpa_dat.xlsx", package = "LBPA")
+  return(templ)
+}
+
diff --git a/lbpa_dat.xlsx b/inst/xls/lbpa_dat.xlsx
similarity index 100%
rename from lbpa_dat.xlsx
rename to inst/xls/lbpa_dat.xlsx
diff --git a/man/LBPA_fits.Rd b/man/LBPA_fits.Rd
index 5859aee..e6343c4 100644
--- a/man/LBPA_fits.Rd
+++ b/man/LBPA_fits.Rd
@@ -25,6 +25,7 @@ The model estimates the fishing mortality and depletion of the Spawning Potentia
 The model is fitted to several length frequencies of catches simultaneously by minimizing a penalized log-likelihood function.
 }
 \examples{
-LBPA_fits("data_file.xlsx")
+name <- LBPA:::.data()
+LBPA_fits(name)
 LBPA_fits("data_file.xlsx")
 }