From 9e3ea49398f7facc972a167531a29f01ba89bc3c Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Fri, 13 Sep 2024 12:42:46 +0200
Subject: [PATCH] handleData defaults to BAPS format

---
 R/handleData.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/handleData.R b/R/handleData.R
index fbdd9c9..d8d44eb 100644
--- a/R/handleData.R
+++ b/R/handleData.R
@@ -10,7 +10,7 @@
 #' the function changes the allele codes so that one locus j
 #' codes get values between? 1, ..., noalle(j).
 #' @export
-handleData <- function(raw_data, format = "Genepop") {
+handleData <- function(raw_data, format = "baps") {
   # Alkuper?isen datan viimeinen sarake kertoo, milt?yksil?lt?
   # kyseinen rivi on per?isin. Funktio tutkii ensin, ett?montako
   # rivi?maksimissaan on per?isin yhdelt?yksil?lt? jolloin saadaan