PARCIAL 2 BERMEO

library(MASS)
data("farms")
attach(farms)

#Punto a
data("farms")
head(farms)

##   Mois Manag Use Manure
## 1   M1    SF  U2     C4
## 2   M1    BF  U2     C2
## 3   M2    SF  U2     C4
## 4   M2    SF  U2     C4
## 5   M1    HF  U1     C2
## 6   M1    HF  U2     C2

str(farms)

## 'data.frame':    20 obs. of  4 variables:
##  $ Mois  : Factor w/ 4 levels "M1","M2","M4",..: 1 1 2 2 1 1 1 4 3 2 ...
##  $ Manag : Factor w/ 4 levels "BF","HF","NM",..: 4 1 4 4 2 2 2 2 2 1 ...
##  $ Use   : Factor w/ 3 levels "U1","U2","U3": 2 2 2 2 1 2 3 3 1 1 ...
##  $ Manure: Factor w/ 5 levels "C0","C1","C2",..: 5 3 5 5 3 3 4 4 2 2 ...

table(farms$Manag,farms$Mois)

##     
##      M1 M2 M4 M5
##   BF  2  1  0  0
##   HF  3  0  1  1
##   NM  1  1  0  4
##   SF  1  2  1  2

table(farms$Use)

## 
## U1 U2 U3 
##  7  8  5

table(farms$Use,Manag)

##     Manag
##      BF HF NM SF
##   U1  1  2  4  0
##   U2  1  1  1  5
##   U3  1  2  1  1

table(farms$Manure)

## 
## C0 C1 C2 C3 C4 
##  6  3  4  4  3

plot(Manure)

table(farms$Manag)

## 
## BF HF NM SF 
##  3  5  6  6

plot(Manag)