Use new ImgSchemeHandler (#148)

* Use new ImgSchemeHandler from jasp-stats/jasp-desktop#5083 * remove 'the' from 'the Bayes theorem' --------- Co-authored-by: Kucharssim <[email protected]>
jasp-stats · May 10, 2023 · e73fd35 · e73fd35
1 parent 644396c
commit e73fd35
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/R/LSbinaryclassification.R b/R/LSbinaryclassification.R
@@ -32,9 +32,7 @@ LSbinaryclassification <- function(jaspResults, dataset, options, state = NULL)
   if(isFALSE(options[["introductoryText"]])) return()
   if(!is.null(jaspResults[["introductoryText"]])) return()
 
-  bayes <- system.file("icons", "bayes.png", package = "jaspLearnBayes")
-  #bayes <- "https://dev.w3.org/SVG/tools/svgweb/samples/svg-files/410.svg"
-  text <- gettextf('This analysis demonstrates <b>binary classification</b> which is a common statistical procedure where subjects are classified into two groups based on a classification rule.
+  text <- gettext('This analysis demonstrates <b>binary classification</b> which is a common statistical procedure where subjects are classified into two groups based on a classification rule.
 
                    Binary classification is a procedure where data about the subject is dichotomised to reach a binary decision (e.g., yes/no, true/false).
 
@@ -52,9 +50,9 @@ LSbinaryclassification <- function(jaspResults, dataset, options, state = NULL)
                    Properties of the test are usually described in terms of its <b>sensitivity</b> and <b>specificity</b>. Sensitivity is the probability of testing positive if the condition is positive. Specificity is the probability of testing negative if the condition is negative. Property of condition is <b>prevalence</b>, which is the proportion of subjects that have a positive condition in the population.
                    Skewed characteristics of the test or prevalence can lead to situations that may appear to the untrained eye as paradoxical. For example, in certain situations it is more likely that a patient does not have a certain disease than does, even after testing positive for that disease.
 
-                   Formally, the probability that a subject has a positive condition after the test came out positive (i.e., positive predictive value) is obtained by applying the <b>Bayes theorem</b>:
+                   Formally, the probability that a subject has a positive condition after the test came out positive (i.e., positive predictive value) is obtained by applying <b>Bayes theorem</b>:
 
-                   <img src = "file://%s", width="500">
+                   <img src = "img:jaspLearnBayes/icons/bayes.png", width="500">
 
                    <h5>References</h5>
                    Pepe, M. S. (2003). <i>The statistical evaluation of medical tests for classification and prediction</i>. Oxford University Press.
@@ -64,7 +62,7 @@ LSbinaryclassification <- function(jaspResults, dataset, options, state = NULL)
                    <a href="https://wikipedia.org/wiki/Evaluation_of_binary_classifiers">https://wikipedia.org/wiki/Evaluation_of_binary_classifiers</a>
 
                    <a href="https://wikipedia.org/wiki/Bayes%%27_theorem">https://wikipedia.org/wiki/Bayes%%27_theorem</a>
-                   ', bayes)
+                   ')
 
   jaspResults[["introductoryText"]] <- createJaspHtml(title        = gettext("Welcome to binary classification with JASP!"),
                                                text         = text,