crazy_shit.R

CFI_taxa <- function (df,acceptable_taxa)   {
  subset(df, 
         (df[,c("Class",	"Sub-Class",	"Oder",	"Sub-Order",	"Super-Family",	"Family")] %in% acceptable_taxa,
          select = Field : Number))
}

CFI_taxa_try <- CFI_taxa (data_mother, acceptable_taxa = c("Carabidae", "Elateridae","Sympyhta"))



subset_Order <- subset (data_mother,
                   data_mother$Order %in% c("Lepidoptera", "Neuroptera"),
                   select = Field : Number )

subset_Sub_Order <- subset (data_mother,
                   data_mother$Sub_Order %in% c("Symphyta"),
                   select = Field : Number )

subset_Super_Family <- subset (data_mother,
                   data_mother$Super_Family %in% c("Curculionoidea", "Chrysomeloidea", "Membracoidea", "Cercopoidea", "Heteroptera", "Aphioidea"),
                   select = Field : Number )    

subset_Family <- subset(data_mother, 
                  data_mother$Family %in% c("Carabidae", "Elateridae"), 
                  select = Field : Number )

CFI_taxa_mother <- rbind (subset_Order, subset_Sub_Order, subset_Super_Family, subset_Family)



CFI_taxa_mother$new_col <- apply(CFI_taxa_mother[ data_mother$Order : data_mother$Family ] == c("Lepidoptera", "Neuroptera","Symphyta","Curculionoidea", "Chrysomeloidea", "Membracoidea", 
                                                                                                         "Cercopoidea", "Heteroptera","Carabidae", "Elateridae"), any)

# %>% mutate(newvar= case_when( any(c(var4,var5)=="value1") ~ "value1", TRUE~"else"))
# df <- df %>% mutate(newvar= case_when( apply(df[,c("var4","var5")] == "value1",1,any) ~ "value1", TRUE~"else"))


nofun<- ifelse(data_mother [ data_mother$Order : data_mother$Family ] 
               == c("Lepidoptera", "Neuroptera","Symphyta","Curculionoidea", "Chrysomeloidea", "Membracoidea", "Cercopoidea", "Heteroptera","Carabidae", "Elateridae"),
               "YES", "NOPE")
                                                                                                                


FUN <- ifelse(data_mother$Order == "Lepidoptera", "Lepidoptera", 
       ifelse (data_mother$Order == "Neuroptera", "Neuroptera",
          ifelse (data_mother$Sub_Order == "Symphyta", "Symphyta", 
            ifelse (data_mother$Super_Family == "Curculionoidea", "Curculionoidea", 
            ifelse (data_mother$Super_Family == "Chrysomeloidea", "Chrysomeloidea",
            ifelse (data_mother$Super_Family == "Membracoidea", "Membracoidea", 
            ifelse (data_mother$Super_Family == "Cercopoidea", "Cercopoidea",
            ifelse (data_mother$Super_Family == "Heteroptera", "Heteroptera", 
              ifelse (data_mother$Family == "Carabidae", "Carabidae",
              ifelse (data_mother$Family == "Elateridae", "Elateridae", "NOPE"))))))))))
            

length(data_mother)
length(FUN)


  
              # , "Neuroptera","Symphyta","Curculionoidea", "Chrysomeloidea", "Membracoidea", "Cercopoidea", "Heteroptera","Carabidae", "Elateridae")

prova <- apply(CFI_taxa_mother[Order:Family],2, FUN )






# CFI_taxa_coeff<- match (CFI_taxa_final and CFI_coefficients)
# CFI_coefficients_all <- cbind