Crimenes.R

#Muestreo Aleatorio Siple
#Datos de crimenes de 20 años en el Reino Unido

crime <- data.frame(crimtab) #variable
dim(crime) #para conocer las dimensiones

## [1] 924   3

#Seleccion del tamaño demuestra
n <- 30
#Muestra de 30 con sample
muestramia <- sample(1:nrow(crime), size = n, replace = FALSE)
muestramia

##  [1] 684 611 442 425 845 638 746 872 600 186  54  26 590 808 211 355 508
## [18] 708 313 699 516 372 784 183 333 339 426  59 606 328

#Asignar los elementos de la muestra a un
#data frame de datos
crimemuestramia <- crime[muestramia, ]
head(crimemuestramia)

##     Var1   Var2 Freq
## 684 10.5 182.88    0
## 611 11.6  177.8    2
## 442 11.5 167.64   38
## 425  9.8 167.64    0
## 845  9.8 193.04    0
## 638 10.1 180.34    0

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

#Muestra sin reemplazo
crimemuestramia2 <- crime %>%
  sample_n(size = n, replace = FALSE)

head(crimemuestramia2)

##   Var1   Var2 Freq
## 1 12.9  165.1    0
## 2  9.6 167.64    0
## 3 10.7 172.72    2
## 4 13.4 144.78    0
## 5 12.6 195.58    0
## 6 11.6 175.26   12

#Muestreo con pesos (ponderaciones)
crimemuestramia4 <- crime %>%
  sample_frac(0.05)
head(crimemuestramia4); dim(crimemuestramia4)

##   Var1   Var2 Freq
## 1 10.2  177.8    0
## 2 11.3 167.64   26
## 3 11.1 162.56   24
## 4 11.2 175.26    1
## 5 12.8 147.32    0
## 6 10.6 195.58    0

## [1] 46  3