From c83a18213fb4a1bb693a74a182554b19e9387e28 Mon Sep 17 00:00:00 2001
From: paithiov909 <am11.44@gmail.com>
Date: Tue, 29 Oct 2024 03:37:47 +0900
Subject: [PATCH] fix: byrow=TRUE

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

diff --git a/R/paistr.R b/R/paistr.R
index 6beb062..714bcd2 100644
--- a/R/paistr.R
+++ b/R/paistr.R
@@ -98,7 +98,7 @@ calculate.skksph_paistr <- function(x, ...) {
   bingpai <-
     skksph_bingpai_to_table(dat) |>
     unlist(use.names = FALSE) |>
-    matrix(length(x), 34)
+    matrix(length(x), 34, byrow = TRUE)
   tibble::tibble(
     id = seq_along(x),
     n_fulou = skksph_get_n_fulou(dat),