Modérateur : Groupe des modérateurs
Code : Tout sélectionner
> dixon.test
Erreur : objet 'dixon.test' introuvable
highest value 10.89611 is an outlier
Code : Tout sélectionner
Value
A list with class htest containing the following components:
statistic the value of Dixon Q-statistic.
p.value the p-value for the test.
alternative a character string describing the alternative hypothesis.
method a character string indicating what type of test was performed.
data.name name of the data argument.
Code : Tout sélectionner
alt = paste("lowest value",x[1],"is an outlier");
Code : Tout sélectionner
alt = paste("highest value",x[n],"is an outlier");
Code : Tout sélectionner
RVAL <- list(statistic = c(Q = Q), alternative = alt, p.value = pval, method = "Dixon test for outliers",
data.name = DNAME)
class(RVAL) <- "htest"
return(RVAL)
Code : Tout sélectionner
RVAL <- list(
statistic = c(Q = Q),
alternative = alt,
p.value = pval,
method = "Dixon test for outliers",
data.name = DNAME,
outlier_value = if (grepl("highest", alt)) x[n] else x[1]
)
class(RVAL) <- "htest"
Code : Tout sélectionner
res_dixon <- list(
statistic = c(Q = NA),
alternative = paste("highest value", 123, "is an outlier"),
p.value = NA,
method = "Dixon test for outliers",
data.name = NA
)
class(res_dixon) <- "htest"
as.numeric(gsub("[A-Za-z ]+([0-9.]+)[A-Za-z ]+$", "\\1", res_dixon[["alternative"]]))
#> [1] 123
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Google [Bot] et 1 invité