ESTIMADOR

R Markdown

KAROL

# Crear el marco de datos
altura_muestra <- c(178, 151, 162, 158, 162, 168, 151, 162, 162, 168,168,169)

df_alturas <- data.frame(Altura = altura_muestra)

# Crear una tabla de frecuencias
tabla_frecuencias <- table(df_alturas$Altura)

# Mostrar la tabla de frecuencias
print(tabla_frecuencias)

## 
## 151 158 162 168 169 178 
##   2   1   4   3   1   1

# Crear una tabla de resumen
tabla_resumen <- summary(df_alturas$Altura)

# Mostrar la tabla de resumen
print(tabla_resumen)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   151.0   161.0   162.0   163.2   168.0   178.0

Tabla:

# Crear el marco de datos
altura_muestra <- c(170, 172, 175, 168, 180, 178, 172, 176, 174, 170,
                    172, 175, 178, 180, 172, 174, 176, 177, 179, 170,
                    171, 174, 176, 178, 180, 173, 175, 177, 179, 182)

df_alturas <- data.frame(Altura = altura_muestra)

# Crear una tabla de frecuencias
tabla_frecuencias <- table(df_alturas$Altura)

# Convertir la tabla de frecuencias a un marco de datos
df_tabla <- as.data.frame(table(df_alturas$Altura))

# Nombrar las columnas
colnames(df_tabla) <- c("Altura", "Frecuencia")

# Mostrar la tabla
print(df_tabla)

##    Altura Frecuencia
## 1     168          1
## 2     170          3
## 3     171          1
## 4     172          4
## 5     173          1
## 6     174          3
## 7     175          3
## 8     176          3
## 9     177          2
## 10    178          3
## 11    179          2
## 12    180          3
## 13    182          1

ahora tabla de varios datos

# Crear tres variables
Edad <- c(1, 2, 3, 4, 5)
Rango <- c("A", "B", "C", "D", "E")
Peso <- c(10.5, 20.3, 15.7, 8.2, 12.9)


# Crear el marco de datos
datos <- data.frame(Edad = Edad, Rango = Rango, Peso = Peso)

# Mostrar la tabla
print(datos)

##   Edad Rango Peso
## 1    1     A 10.5
## 2    2     B 20.3
## 3    3     C 15.7
## 4    4     D  8.2
## 5    5     E 12.9

Importar datos:

# Instalar el paquete readxl si aún no está instalado
# install.packages("readxl")

# Cargar el paquete
library(readxl)

# Especificar la ruta de tu archivo Excel

ruta_excel <- "C:/Users/asus/Documents/excel.xlsx"

# Leer el archivo Excel
datos_excel <- read_excel(ruta_excel)

# Mostrar la estructura de los datos importados
str(datos_excel)

## tibble [13 x 2] (S3: tbl_df/tbl/data.frame)
##  $ Alturas: num [1:13] 1.75 1.55 1.55 1.78 1.77 1.75 1.68 1.68 1.64 1.63 ...
##  $ Edad   : num [1:13] 20 33 35 36 32 12 35 60 41 42 ...

# Mostrar las primeras filas de los datos
head(datos_excel)

## # A tibble: 6 x 2
##   Alturas  Edad
##     <dbl> <dbl>
## 1    1.75    20
## 2    1.55    33
## 3    1.55    35
## 4    1.78    36
## 5    1.77    32
## 6    1.75    12