Actividad.data.frame

# Definición de vectores individuales
especie_ej1 <- c("Perro", "Perro", "Gato", "Gato", "Perro")
edad        <- c(3, 5, 2, 7, 4)
sexo        <- c("H", "M", "H", "M", "H")
muestra <- c("M01", "M02", "M03", "M04", "M05")

# Creación del dataframe 1
df_ejercicio1 <- data.frame(muestra = muestra,especie =especie_ej1,edad=edad,sexo=sexo)

# Visualizar resultado
df_ejercicio1

##   muestra especie edad sexo
## 1     M01   Perro    3    H
## 2     M02   Perro    5    M
## 3     M03    Gato    2    H
## 4     M04    Gato    7    M
## 5     M05   Perro    4    H

expresion <- c(1.2, 0.8, 2.4, 0.6, 1.5)

# Creación del dataframe 2 (reutiliza 'muestra' y 'especie_ej1')
df_ejercicio2 <- data.frame(muestra = muestra,especie = especie_ej1,expresion = expresion)

# Visualizar resultado
df_ejercicio2

##   muestra especie expresion
## 1     M01   Perro       1.2
## 2     M02   Perro       0.8
## 3     M03    Gato       2.4
## 4     M04    Gato       0.6
## 5     M05   Perro       1.5

# Definición de vectores individuales
gen <- c("GAPDH", "GAPDH", "GAPDH", "GAPDH", "GAPDH")
Ct  <- c(23.4, 25.1, 21.8, 28.3, 24.7)

# Creación del dataframe 3
df_ejercicio3 <- data.frame(
  muestra = muestra,
  gen     = gen,
  Ct      = Ct
)

# Visualizar resultado
df_ejercicio3

##   muestra   gen   Ct
## 1     M01 GAPDH 23.4
## 2     M02 GAPDH 25.1
## 3     M03 GAPDH 21.8
## 4     M04 GAPDH 28.3
## 5     M05 GAPDH 24.7