fix: byrow=TRUE

paithiov909 · Oct 28, 2024 · c83a182 · c83a182
1 parent 1b77f60
commit c83a182
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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),