Replace with Main Title
USUARIO
2025-12-17
> arbol <-c(23.81, 22.13, 22.64, 21.69, 23.58, 22.14, 18.73, 21.59, 20.36, 20.53, 20.11, 20.34, 19.19, 22.92, 18.65,
+ 20.6, 19.83, 20.09, 19.43, 22.06, 21.15, 19.26, 18.08, 20.24, 18.75, 20.69, 21.62, 23.69, 23.93, 23.19)
> redn <-c(23.24, 20.08, 18.01, 23.28, 19.23, 21.22, 21.47, 20.6, 21.11, 21.27, 21.03, 17.34, 22.8, 21.85, 17.85,
+ 23.15, 19.57, 19.56, 20.79, 18.04, 20.95, 21.83, 18.17, 22.66, 18.29, 18.89, 19.49, 19.19, 26.47, 25.25)
> regresion <-c(16.13, 17.84, 18.28, 15.61, 17.62, 16.12, 17.29, 16.13, 16.64, 15.03, 18.16, 16.82, 17.44, 16.76,
+ 17.26, 15.55, 17.49, 18.42, 17.54, 17.13, 15.5, 16.8, 18.47, 18.42, 18.43, 15.56, 16.03, 15.39, 15.12, 17.77)
> actual <-c(17.09, 15.77, 18.45, 16.55, 22.23, 22.11, 18.26, 18.04, 19.66, 19.76, 18.74, 19.02, 18.54, 16.7, 17.57,
+ 19.89, 19.06, 18.7, 19.39, 19.68, 19.2, 16.85, 19.91, 19.82, 18.08, 19.38, 20.3, 21.6, 23.39, 19.33)
> data2 <- data.frame(ÁrbolC =arbol, Red_N = redn, Regresion = regresion, SActual = actual)
> boxplot(data2)
plot of chunk unnamed-chunk-7
> datos_ttest <- data.frame(
+ Indicador = c(data2$ÁrbolC, data2$Red_N),
+ Metodo = factor(c(rep("ÁrbolC", 30), rep("Red_N", 30)))
+ )
> datos_ttest
Indicador Metodo
1 23.81 ÁrbolC
2 22.13 ÁrbolC
3 22.64 ÁrbolC
4 21.69 ÁrbolC
5 23.58 ÁrbolC
6 22.14 ÁrbolC
7 18.73 ÁrbolC
8 21.59 ÁrbolC
9 20.36 ÁrbolC
10 20.53 ÁrbolC
11 20.11 ÁrbolC
12 20.34 ÁrbolC
13 19.19 ÁrbolC
14 22.92 ÁrbolC
15 18.65 ÁrbolC
16 20.60 ÁrbolC
17 19.83 ÁrbolC
18 20.09 ÁrbolC
19 19.43 ÁrbolC
20 22.06 ÁrbolC
21 21.15 ÁrbolC
22 19.26 ÁrbolC
23 18.08 ÁrbolC
24 20.24 ÁrbolC
25 18.75 ÁrbolC
26 20.69 ÁrbolC
27 21.62 ÁrbolC
28 23.69 ÁrbolC
29 23.93 ÁrbolC
30 23.19 ÁrbolC
31 23.24 Red_N
32 20.08 Red_N
33 18.01 Red_N
34 23.28 Red_N
35 19.23 Red_N
36 21.22 Red_N
37 21.47 Red_N
38 20.60 Red_N
39 21.11 Red_N
40 21.27 Red_N
41 21.03 Red_N
42 17.34 Red_N
43 22.80 Red_N
44 21.85 Red_N
45 17.85 Red_N
46 23.15 Red_N
47 19.57 Red_N
48 19.56 Red_N
49 20.79 Red_N
50 18.04 Red_N
51 20.95 Red_N
52 21.83 Red_N
53 18.17 Red_N
54 22.66 Red_N
55 18.29 Red_N
56 18.89 Red_N
57 19.49 Red_N
58 19.19 Red_N
59 26.47 Red_N
60 25.25 Red_N
Independent-Samples t-Test: Indicador~Metodo
> t.test(Indicador~Metodo, alternative='two.sided', conf.level=.95, var.equal=FALSE, data=datos_ttest)
Welch Two Sample t-test
data: Indicador by Metodo
t = 0.54323, df = 54.341, p-value = 0.5892
alternative hypothesis: true difference in means between group ÁrbolC and group Red_N is not equal to 0
95 percent confidence interval:
-0.7478602 1.3038602
sample estimates:
mean in group ÁrbolC mean in group Red_N
21.034 20.756