R/getscale.R

Defines functions getscale

Documented in getscale

getscale <-
function(df,file, sheet=1, column){
    require("readxl")  
    reference <<- read_excel(file, sheet) #EXCEL
    Data<-df   #DADES
    
    f<-function(ref=reference, df=Data){ 
      Data1<-Data
      nam<-names(Data1)
      allitems1<- ref$VariablesInput #quan fem by selecciona nomes items per aquella escala
      c<- nam %in% allitems1  #busca aquests items al df
      return(c)}
    
    output<<-by(reference, reference[,column], f)
    return(output)
  }
AnguloB/SubscaleExplorer documentation built on Jan. 3, 2021, 2:57 p.m.