Skip to content

Commit d7aa3e1

Browse files
joanbyjoanby
committed
Ejemplos tema 9
1 parent da5568e commit d7aa3e1

2 files changed

Lines changed: 78 additions & 0 deletions

File tree

‎scripts/tema9/01-clases.Rmd‎

Lines changed: 33 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -18,5 +18,38 @@ irisdf$div5 = cut(petals, breaks = 5, right = FALSE,
1818
labels = c("Peq", "Norm", "Gran", "XGran", "Gigan"))
1919
irisdf
2020
```
21+
# Funciones para las tablas de frecuencias
22+
```{r}
23+
TablaFrecs = function(x,k,A,p){
24+
L = min(x)-p/2+A*(0:k)
25+
x_cut = cut(x, breaks = L, right=FALSE)
26+
intervals = levels(x_cut)
27+
mc = (L[1]+L[2])/2+A*(0:(k-1))
28+
Fr.abs = as.vector(table(x_cut))
29+
Fr.rel = round(Fr.abs/length(x),4)
30+
Fr.cum.abs = cumsum(Fr.abs)
31+
Fr.cum.rel = cumsum(Fr.rel)
32+
tabla = data.frame(intervals, mc, Fr.abs, Fr.cum.abs, Fr.rel, Fr.cum.rel)
33+
tabla
34+
}
35+
36+
TablaFrecs.L = function(x,L,V){
37+
x_cut = cut(x, breaks=L, right=FALSE, include.lowest=V)
38+
intervals = levels(x_cut)
39+
mc = (L[1:(length(L)-1)]+L[2:length(L)])/2
40+
Fr.abs = as.vector(table(x_cut))
41+
Fr.rel = round(Fr.abs/length(x),4)
42+
Fr.cum.abs = cumsum(Fr.abs)
43+
Fr.cum.rel = cumsum(Fr.rel)
44+
tabla = data.frame(intervals, mc, Fr.abs, Fr.cum.abs, Fr.rel, Fr.cum.rel)
45+
tabla
46+
}
47+
```
48+
49+
La tabla de frecuencias de la longitud de los pétalos de *Iris* es:
50+
```{r}
51+
TablaFrecs(petals, k = 6, A = 1, p = 0.1)
52+
TablaFrecs.L(petals, L = c(1,3,4,5,5.5,6,6.5,7), V = FALSE)
53+
```
2154

2255

‎scripts/tema9/01-clases.html‎

Lines changed: 45 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -505,6 +505,51 @@ <h1>La función <code>cut</code></h1>
505505
## 149 [4.54,5.72) [5.08,5.54) [5,6) 4 XGran
506506
## 150 [4.54,5.72) [5.08,5.54) [5,6) 4 XGran</code></pre>
507507
</div>
508+
<div id="funciones-para-las-tablas-de-frecuencias" class="section level1">
509+
<h1>Funciones para las tablas de frecuencias</h1>
510+
<pre class="r"><code>TablaFrecs = function(x,k,A,p){
511+
L = min(x)-p/2+A*(0:k)
512+
x_cut = cut(x, breaks = L, right=FALSE)
513+
intervals = levels(x_cut)
514+
mc = (L[1]+L[2])/2+A*(0:(k-1))
515+
Fr.abs = as.vector(table(x_cut))
516+
Fr.rel = round(Fr.abs/length(x),4)
517+
Fr.cum.abs = cumsum(Fr.abs)
518+
Fr.cum.rel = cumsum(Fr.rel)
519+
tabla = data.frame(intervals, mc, Fr.abs, Fr.cum.abs, Fr.rel, Fr.cum.rel)
520+
tabla
521+
}
522+
523+
TablaFrecs.L = function(x,L,V){
524+
x_cut = cut(x, breaks=L, right=FALSE, include.lowest=V)
525+
intervals = levels(x_cut)
526+
mc = (L[1:(length(L)-1)]+L[2:length(L)])/2
527+
Fr.abs = as.vector(table(x_cut))
528+
Fr.rel = round(Fr.abs/length(x),4)
529+
Fr.cum.abs = cumsum(Fr.abs)
530+
Fr.cum.rel = cumsum(Fr.rel)
531+
tabla = data.frame(intervals, mc, Fr.abs, Fr.cum.abs, Fr.rel, Fr.cum.rel)
532+
tabla
533+
}</code></pre>
534+
<p>La tabla de frecuencias de la longitud de los pétalos de <em>Iris</em> es:</p>
535+
<pre class="r"><code>TablaFrecs(petals, k = 6, A = 1, p = 0.1)</code></pre>
536+
<pre><code>## intervals mc Fr.abs Fr.cum.abs Fr.rel Fr.cum.rel
537+
## 1 [0.95,1.95) 1.45 50 50 0.3333 0.3333
538+
## 2 [1.95,2.95) 2.45 0 50 0.0000 0.3333
539+
## 3 [2.95,3.95) 3.45 11 61 0.0733 0.4066
540+
## 4 [3.95,4.95) 4.45 43 104 0.2867 0.6933
541+
## 5 [4.95,5.95) 5.45 35 139 0.2333 0.9266
542+
## 6 [5.95,6.95) 6.45 11 150 0.0733 0.9999</code></pre>
543+
<pre class="r"><code>TablaFrecs.L(petals, L = c(1,3,4,5,5.5,6,6.5,7), V = FALSE)</code></pre>
544+
<pre><code>## intervals mc Fr.abs Fr.cum.abs Fr.rel Fr.cum.rel
545+
## 1 [1,3) 2.00 50 50 0.3333 0.3333
546+
## 2 [3,4) 3.50 11 61 0.0733 0.4066
547+
## 3 [4,5) 4.50 43 104 0.2867 0.6933
548+
## 4 [5,5.5) 5.25 18 122 0.1200 0.8133
549+
## 5 [5.5,6) 5.75 17 139 0.1133 0.9266
550+
## 6 [6,6.5) 6.25 7 146 0.0467 0.9733
551+
## 7 [6.5,7) 6.75 4 150 0.0267 1.0000</code></pre>
552+
</div>
508553

509554

510555

0 commit comments

Comments
 (0)