new version, fixed print.win_Prob

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: stRoke
 Title: Clinical Stroke Research
-Version: 23.4.1
+Version: 23.5.1
 Authors@R: 
     person("Andreas Gammelgaard", "Damsbo", , "agdamsbo@clin.au.dk", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-7559-1154"))

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(print,win_Prob)
 export(age_calc)
 export(ci_plot)
 export(contrast_text)

R/win_prob.R

@@ -167,12 +167,16 @@ win_prob <-
         dec = dec
       )
     )
-    class(out) <- c("win_Prop", class(out))
+    class(out) <- c("win_Prob", class(out))
     return(out)
   }
 
-
+#' @title PRints win_prob results
-print.win_Prop <- function (x, ...) {
+#' @param x win_prob results.
+#' @param ... ignored for now
+#' @return Prints win_prob statistics. 
+#' @export
+print.win_Prob <- function (x, ...) {
   args <- list(...)
   
   cat("\t Zou et al's winP (doi: 10.1161/STROKEAHA.121.037744) \n\n")

man/print.win_Prob.Rd

@@ -0,0 +1,19 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/win_prob.R
+\name{print.win_Prob}
+\alias{print.win_Prob}
+\title{PRints win_prob results}
+\usage{
+\method{print}{win_Prob}(x, ...)
+}
+\arguments{
+\item{x}{win_prob results.}
+
+\item{...}{ignored for now}
+}
+\value{
+Prints win_prob statistics.
+}
+\description{
+PRints win_prob results
+}

tests/testthat/test-win_prob.R

@@ -32,7 +32,7 @@ test_that("Output length is 16, and print works", {
              sample.size = TRUE, 
              print.tables = TRUE)
   expect_length(result, 16)
-  expect_s3_class(result, "win_Prop")
+  expect_s3_class(result, "win_Prob")
-  expect_output(print.win_Prop(result))
+  expect_output(print.win_Prob(result))
   
 })