Prueba para exportar a RPubs

Esto que mostramos a continuación es la definición del número de Euler o número e, base de los logaritmos Neperianos. \[ e=lim_{x\rightarrow \infty }\left( 1+\frac{1}{n} \right)^{n} \] Podemos incluir un trozo de código con el fin de que el mismo pueda ejecutarse y mostrar su salida tal y como se muestra a continuación

k<-1
for (i in 1:12){
  for (j in 1:12){
    if(i>j){
      print(paste("Para :",i," = ",j))
      modelo[k]<-lm(data2[,i]~data2[,j],data=data2)
      k<-k+1
    }
  }
}


for (m in 1:k){print(modelo[m])}

Salida del código anterior

> for (m in 1:k){print(modelo[m])}
$coefficients
(Intercept)  data2[, j] 
  1.7113424   0.4458209 

$residuals
(Intercept)  data2[, j] 
  1.5742857   0.2286143 

$effects
(Intercept)  data2[, j] 
  1.1259666   0.3727161 

$rank
(Intercept)  data2[, j] 
  3.0228030   0.2504368 

Otra Sección

En esta sección añadimos una tabla

	Hombres	Mujeres
Rural	3200	3196
Urbano	2760	3100
Total	5960	6296