# Martes ejercicios - respuestas

# 1

Length <- c(75, 85, 91.6, 95, NA, 105.5, 106)
Tb <- c(0, 0, 1, NA, 0, 0, 0)
mean(Length)


# 2 
Farm <- c("MO", "MO", "MO", "MO", "LN", "SE", "QM")
Month <- c(11, 07, 07, NA, 09, 09, 11)

Boar <- cbind(Length, Tb, Farm, Month)
Boar

dim(Boar)
nrow(Boar)
ncol(Boar)



# 3

Tb2 <- vector(length = 8)
Tb2[1] <- 75
Tb2[2] <- 85
Tb2[3] <- 91.6
Tb2[4] <- 95
Tb2[5] <- NA
Tb2[6] <- 105.5
Tb2[7] <- 106
Tb2



# 4

Dmat <- matrix(nrow=3, ncol=3)
Dmat[,1] <- c(1,4,2)
Dmat[,2] <- c(2,2,3)
Dmat[,3] <- c(3,1,0)
Dmat

t(Dmat)
solve(Dmat)
Dmat %*% solve(Dmat)


# 5

Sex <- c(1,2,2,2,1,2,2)
Ecervi <- c(0,0,0,NA, 0, 0, 0)
Year <- c(00, 00, 01, NA, 03, 03, 02)

Boar2 <- data.frame(cbind(Boar, Sex, Ecervi, Year))
Boar2

Boar3 <- cbind(Boar2, sqrt(Length))
Boar3


Boar2 <- list(Boar, Sex, Ecervi, Year)
Boar2

Boar3 <- c(Boar2, sqrt(Length)) # ?
Boar3