fix typo and update website

R/sdt_functions.R

@@ -83,7 +83,7 @@ type_1_sdt <- function(df,
 #' of confidence in their judgements.
 #'
 #' The expected input is two vectors, one for responses to each stimulus,
-#' encoding the observers response and confidence. For example, for two stimului
+#' encoding the observers response and confidence. For example, for two stimuli
 #' labelled A and B, with three confidence ratings, participants could respond
 #' to stimulus A as follows:
 #'
@@ -884,4 +884,4 @@ fit_metad_minus <- function(x0, th, hm, fm) {
   y1 <- pnorm(x0[[1]], 0, 1) / pnorm(th * x0[[2]], 0, 1) - hm
   y2 <- pnorm(x0[[1]], x0[[2]], 1) / pnorm(th * x0[[2]], x0[[2]], 1) - fm
   c(y1, y2)
-}
+}