From c8acd0c434457c2c6691de81c2c32b1b88b4826f Mon Sep 17 00:00:00 2001 From: Isaac Shoebottom Date: Thu, 18 Sep 2025 13:45:19 -0300 Subject: [PATCH] Improve printing --- A1.Rmd | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/A1.Rmd b/A1.Rmd index 217114b..05c12ae 100644 --- a/A1.Rmd +++ b/A1.Rmd @@ -30,9 +30,9 @@ Because t is greater than the critical t, 3.910959 \> 2.093024, we can reject th ## b) ```{r} -qt(1 - (0.05/2), 20-1) * (sd(data)/sqrt(20)) # Interval from mean -mean(data) - qt(1 - (0.05/2), 20-1) * (sd(data)/sqrt(20)) -mean(data) + qt(1 - (0.05/2), 20-1) * (sd(data)/sqrt(20)) +(interval <- qt(1 - (0.05/2), 20-1) * (sd(data)/sqrt(20))) # Interval from mean +mean(data) - interval +mean(data) + interval ``` The confidence interval with 95% confidence is [15.37186, 16.22814] @@ -59,9 +59,9 @@ Because t is greater than critical t, 10.28571 \> 3.249836, we can reject the nu ## b) ```{r} -qt(1 - (0.01/2), 10-1) * (sd(diff)/sqrt(10)) # Interval from mean -mean(diff) - qt(1 - (0.01/2), 10-1) * (sd(diff)/sqrt(10)) -mean(diff) + qt(1 - (0.01/2), 10-1) * (sd(diff)/sqrt(10)) +(interval <- qt(1 - (0.01/2), 10-1) * (sd(diff)/sqrt(10))) # Interval from mean +mean(diff) - interval +mean(diff) + interval ``` The confidence interval with 99% confidence is [3.28341, 6.31659]