Actividad 2

Muestreo sistemático
> k<-floor(N/n)
> k
[1] 10

> aleatorio<-sample(1:k,1)
> aleatorio
[1] 6

> #DATOS 1
> muestra.embarque=Sel.sistematica(datos,10)
>muestra.embarque
EMBARQUE PERDIDAS
4 046-9 30
14 057-7 17
24 071-7 382
34 081-0 38
44 091-4 236
54 101-A 212
64 111-3 407
74121-7 7
84 133-A 36
94 161-1 20

> #DATOS2
> datos=read.table(file.choose(),header=T, sep=",")
> muestra.embarque2=Sel.sistematica(datos,10)
>muestra.embarque2
EMBARQUE PERDIDAS
10 122-1 12
20 157-5 34
30 114-7 55
40 060-9 78
50 113-2 102
60 090-A 14770 112-8 181
80 180-4 231
90 106-2 265
100 043-5 852



> #DATOS3
> datos=read.table(file.choose(),header=T, sep=",")
>muestra.embarque3=Sel.sistematica(datos,10)
> muestra.embarque3
EMBARQUE PERDIDAS
5 119-A 24
15 055-8 105
25 156-0 456
35 114-7 55
45 110-9170
55 161-1 20
65 134-4 184
75 111-3 407
85 093-3 93
95 101-A 212



y.pob1

y.pob2
y.pob3
x.barra

138.50000195.70000
172.60000
var.x.barra
2247.68500

5416.88100
2070.52400
EE.x

47.40976
73.59946
45.50301
LI.xbarra

31.25168
29.20645
69.66504
LS.xbarra245.74832
362.19355
245.74832

Se escoge la muestra tres porque aun que no es la muestra con menos perdida en promedio pero su variabilidad si lo es y así creo que esla mejor muestra porque es menor su variabilidad. Se trata de una población aleatoria ya que sus elementos no tienen orden alguno respecto a sus características.