Silvia prueba

knitr::opts_chunk$set(echo = TRUE,
                      results = TRUE,
                      message = FALSE,
                      warning = FALSE,
                      fig.align='center',
                      fig.height= 5,
                      fig.width=5,
                      cache = FALSE)

Familymembers<-c("Jorge", "Anto", "Zack", "Cata", "Malu","Silvia" )
Edad1<-c(5,3,8,40,8,36)
Mes<-c("abr", "sept", "feb", "abr", "agost", "feb")
Genero<-c(0,0,0,1,1,1)
Prod<-c(2600, 2200,400,30000,400,6000)

Familycrazy<- data.frame(Familymembers,Edad1,Mes,Genero,Prod)

Familycrazy 

summary(Familycrazy)

##  Familymembers          Edad1           Mes                Genero   
##  Length:6           Min.   : 3.00   Length:6           Min.   :0.0  
##  Class :character   1st Qu.: 5.75   Class :character   1st Qu.:0.0  
##  Mode  :character   Median : 8.00   Mode  :character   Median :0.5  
##                     Mean   :16.67                      Mean   :0.5  
##                     3rd Qu.:29.00                      3rd Qu.:1.0  
##                     Max.   :40.00                      Max.   :1.0  
##       Prod      
##  Min.   :  400  
##  1st Qu.:  850  
##  Median : 2400  
##  Mean   : 6933  
##  3rd Qu.: 5150  
##  Max.   :30000

library(dplyr)
H<-Familycrazy[!(Familycrazy$Familymembers %in% c("Zack", "Malu")), ]
H

feb<-subset(Familycrazy, Mes=="feb")
feb

Familymembers<-c("Valen", "Maria","Marina", "Yaneth")
Edad1<-c(21,61,66,38)
Mes<-c("oct", "mar", "may", "jul")
Genero<-c(1,1,1,1)

extend<-data.frame(Familymembers,Edad1,Mes,Genero)
extend

tabcruz<-merge(Familycrazy, extend, by=NULL)
tabcruz