R/loadall.R

In svyPVpack: A package for complex surveys including plausible values

loadall <-
function(patH=NA)
    {
    
    if(is.na(patH))
          {
          patH <- getwd()
          }
    
    nams <- dir(patH)  
      
    for(i in nams)   
          {
          source(paste0(patH,"/",i)) 
          }  
      
      
    }