Ejemplo 1

La probabilidad de ser seleccionado para un puesto de trabajo depende de la experiencia laboral. En concreto, cada año de experiencia laboral aumenta en 0.01 puntos la probabilidad de selección.

Podemos representar esta relación de la siguiente manera:

\(Pr(seleccion = 1) = 0.01 \cdot experiencia laboral\)

¿Cuál es la probabilidad de selección para un puesto de trabajo con 2, 10 y 30 años de experiencia laboral?

experiencia <- c(2,10,30)
seleccion <- 0.01*experiencia
seleccion
## [1] 0.02 0.10 0.30
plot(experiencia, seleccion, type = "l")

Ejemplo 2

La cantidad de cigarrillos consumidos mensualmente por un fumador depende de la edad en que se inicio el consumo. En concreto, la cantidad de consumidos en un mes equivale a 100 menos la edad de inicio del consumo.

Identifique los valores de la variable independiente para quienes iniciaron su consumo entre los 15 y 50 años.

edadinicio <- c(15:50)
cigarros <- 100-edadinicio
cigarros
##  [1] 85 84 83 82 81 80 79 78 77 76 75 74 73 72 71 70 69 68 67 66 65 64 63 62 61
## [26] 60 59 58 57 56 55 54 53 52 51 50
plot(edadinicio, cigarros, type="l")

Ejemplo 3

La cantidad de cigarrillos consumidos mensualmente por un fumador depende de la edad en que se inicio el consumo y el sexo. En concreto, la cantidad de consumidos en un mes equivale a 100 menos la edad de inicio del consumo. Además, los hombres consumen en promedio 10 cigarros menos que las mujeres.

edadinicio <- rep(c(15:50),2)
sexo <- c(rep(0,36), rep(1,36))
cigarros <- 100-edadinicio-10*sexo
resultados <- data.frame(sexo, edadinicio, cigarros)
resultados
##    sexo edadinicio cigarros
## 1     0         15       85
## 2     0         16       84
## 3     0         17       83
## 4     0         18       82
## 5     0         19       81
## 6     0         20       80
## 7     0         21       79
## 8     0         22       78
## 9     0         23       77
## 10    0         24       76
## 11    0         25       75
## 12    0         26       74
## 13    0         27       73
## 14    0         28       72
## 15    0         29       71
## 16    0         30       70
## 17    0         31       69
## 18    0         32       68
## 19    0         33       67
## 20    0         34       66
## 21    0         35       65
## 22    0         36       64
## 23    0         37       63
## 24    0         38       62
## 25    0         39       61
## 26    0         40       60
## 27    0         41       59
## 28    0         42       58
## 29    0         43       57
## 30    0         44       56
## 31    0         45       55
## 32    0         46       54
## 33    0         47       53
## 34    0         48       52
## 35    0         49       51
## 36    0         50       50
## 37    1         15       75
## 38    1         16       74
## 39    1         17       73
## 40    1         18       72
## 41    1         19       71
## 42    1         20       70
## 43    1         21       69
## 44    1         22       68
## 45    1         23       67
## 46    1         24       66
## 47    1         25       65
## 48    1         26       64
## 49    1         27       63
## 50    1         28       62
## 51    1         29       61
## 52    1         30       60
## 53    1         31       59
## 54    1         32       58
## 55    1         33       57
## 56    1         34       56
## 57    1         35       55
## 58    1         36       54
## 59    1         37       53
## 60    1         38       52
## 61    1         39       51
## 62    1         40       50
## 63    1         41       49
## 64    1         42       48
## 65    1         43       47
## 66    1         44       46
## 67    1         45       45
## 68    1         46       44
## 69    1         47       43
## 70    1         48       42
## 71    1         49       41
## 72    1         50       40
#datos
edadinicio <- 15:50
cigarros.hombres <- 100-edadinicio-10*0
cigarros.mujeres <- 100-edadinicio-10*1
#gráfico
plot(edadinicio, cigarros.hombres, type="l", col="darkgreen", xlab="edad de inicio", ylab="consumo mensual de cigarros")
lines(edadinicio, cigarros.mujeres, col="red")
legend(40,80,c("hombres","mujeres"), lwd=c(1,1), col=c("darkgreen","red"))