####################################
####PRIMEIRO RASCUNHO DA FUNÇÃO#####
####################################


les<- function(x,carac, atr, K, r, destaque)
  tam <- length(atr)                          # Guardando a quantidade de atributos que o usuário irá anlisar
  atr.df <- data.frame(rep(NA,length(x[,1]))) # Criando um novo data.frame apenas com os atributos que irei usar
  for (i in 1:tam)                            # Criando um ciclo para tranferir os atributos do d.f x para o d.f q irei usar
    {
    atr.df[i]<- x[atr[i]]                     #Tranferindo de x para o data.frame atr.df
    }  
  atr.df                                    ##Essa linha é apenas para facilitar a visualização durante a correção APAGAR
##Agora vou analisar qual será o tamanho da janela gráfica que será necessária para plotar as relações entre os atributos
  if(tam <= 6)                                #Testando se a qnt de atributos é menor ou igual a 6
  {
    par(mfrow = c(2,3))                       #Janela gráfica de 2x3 para caber no máximo a relação entre os 6 atr
    X(11)                                     #Criando a janela
  }
  if( 6 < tam <= 9)                           #Testando se a qnt de atributos está entre 6 e 9
  {
    par(mfrow = c(3,3))                       #Janela gráfica de 3x3 para caber no máximo a relação entre os 9 atr
    X(11)                                     #Criando a janela
  }
  if(tam > 9)                                #Testando se a qnt de atributos é menor ou igual a 9
  {
    par(mfrow = c(4,4))                       #Janela gráfica de 4x4 para caber no máximo a relação entre os 16 atr
    X(11)                                     #Criando a janela
  }
  if(K != NULL)                               #COMO FAÇO UM TESTE LÓGICO PARA VER SE UM OBJETO EXITE OU NÃO# Vendo se o usuário usou o arg K para indicar alguma estratégia
  {
  indice= data.frame(rep(NA,length(atr.df[1]))#criando o data.frame que irá armazenar os valores dos indices
  for (i in 1:tam)                            #iniciando o ciclo de análises de correlações
    {
    mod <- lm(K~atr.df[i])                    #modelo que relaciona os atributos com o parâmetro K
    teste <- anova(mod)                       #teste do modelo
                                              #FAZER PLOT
    if(teste$`Pr(>F)`[1]<0.05)                #avaliando se a relação está dentro do intervalo de significância
      {
      if(mod$coefficients[2]>0)               #avaliando se a relação é positiva
        {
        indice$atr(i)= (atr.df[i]-min(atr.df[i]))/(max(atr.df[i])-min(atr.df[i])) #COMO USAR O Nº DA REP. DO CICLO NO NOME DE UM OBJ?#atribuindo valores de 0 a 1 para as estratégias K 
        }
      else               #Outra situação de atributos correlacioandos negativamente
        {
          indice$atr(i)= Mod((atr.df[i]-min(atr.df[i]))/(max(atr.df[i])-min(atr.df[i]))-1) #Atribuindo valores de 1 a 0 para as estrategia r
        }
      }
     }
  }
  if (r != NULL)             #IDEM LINHA 34
  {
    #REPETE TUDO MAIS OU MENOS PARECIDO QUE A PARTE DO DO K INVERTENDO SÓ ALGUMAS COISINHAS
  }
  else
  {
    return("Qual é que é seu lazarento, quer usar a função e nem falar qual é o atributo relacioando  a estratégia K ou r?")
  }
  indice$media<- apply(indice, 1, mean)    #Resumindo o valor dos índice em um único só através da media
  Criar janela gráfica com esse índice     # PLOT NO GRÁFICO, a fazer