diff --git a/TP_estimateurs/Exercice1.R b/TP_estimateurs/Exercice1.R index 779925a..b17250d 100644 --- a/TP_estimateurs/Exercice1.R +++ b/TP_estimateurs/Exercice1.R @@ -187,4 +187,7 @@ expected_probs <- diff(pnorm(breaks, mean = moyenne, sd = ecart_type)) # Perform chi-squared test chitest <- chisq.test(observed_counts, p = expected_probs, rescale.p = TRUE) -print(chitest) \ No newline at end of file +print(chitest) + +kstest <- ks.test(poids, "pnorm", mean = moyenne, sd = ecart_type) +print(kstest) \ No newline at end of file