diff --git a/DESCRIPTION b/DESCRIPTION
new file mode 100644
index 0000000..f839d03
--- /dev/null
+++ b/DESCRIPTION
@@ -0,0 +1,18 @@
+Package: easyPSID
+Title: Reading, Formatting, and Organizing the Panel Study of Income
+        Dynamics (PSID)
+Version: 0.1.0
+Authors@R: person("Brian", "Aronson", email = "bdaronson@gmail.com", role = c("aut", "cre"))
+Description: Provides various functions for reading and preparing the Panel Study of Income Dynamics (PSID) for longitudinal analysis, including functions that read the PSID's fixed width format files directly into R, rename all of the PSID's longitudinal variables so that recurring variables have consistent names across years, simplify assembling longitudinal datasets from cross sections of the PSID Family Files, and export the resulting PSID files into file formats common among other statistical programming languages ('SAS', 'STATA', and 'SPSS').
+Depends: R (>= 3.0.1)
+Imports: stringr (>= 1.0.0), LaF (>= 0.6.0), foreign (>= 0.8-67)
+License: MIT + file LICENSE
+Encoding: UTF-8
+LazyData: true
+RoxygenNote: 6.1.0
+NeedsCompilation: no
+Packaged: 2019-06-27 17:14:05 UTC; bda13
+Author: Brian Aronson [aut, cre]
+Maintainer: Brian Aronson <bdaronson@gmail.com>
+Repository: CRAN
+Date/Publication: 2019-07-01 10:40:03 UTC
diff --git a/LICENSE b/LICENSE
new file mode 100644
index 0000000..01330a3
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,2 @@
+YEAR: 2019
+COPYRIGHT HOLDER: Brian Aronson
diff --git a/MD5 b/MD5
new file mode 100644
index 0000000..6f71e52
--- /dev/null
+++ b/MD5
@@ -0,0 +1,33 @@
+48e637c1ec93b52fa6075a99e45a8455 *DESCRIPTION
+02d1618577bd2d0466aa03f413aca193 *LICENSE
+9506bff0123601879225c2af3647593c *NAMESPACE
+504c78d1143d2eabbd7353bebcc55ee2 *R/10find_desc.R
+cfc68a5cdddb81746aafa197f464b6ba *R/1unzip_all_files.R
+062d276c9308d1224c420382ee0aaf2a *R/2convert_to_rds.R
+1860d15929b916dee6838fc6f6248716 *R/3rename_fam_vars.R
+f7c51e1c966398975dc7abbab7a58161 *R/4rename_ind_vars.R
+cff7ac15d77e2fd53628e881d932b3d3 *R/5create_custom_panel.R
+5eddd106681ec152066276a80931d8fa *R/6create_extract.R
+d1b5d0e6a1acb4cc5341eef4f0745346 *R/7convert_from_rdata.R
+6c1013c14d817547ce674d85fbd2f7ed *R/8find_name.R
+220925bea5f68f355e628352b4e141db *R/9find_years.R
+00ee728a84bf1ccda82983f101a23f94 *R/PSID_Package.Documentation_function.R
+908cf2deb6da90fdac560e91e9265953 *R/sysdata.rda
+90bc0e395f4bcf6dc42cd1070c944d62 *README.md
+a3ec50e70b44fb699009d06d6d1c402e *inst/extdata/rds_dir/FAM1968.rds
+a24bf4365b653a291af90f9d9fb457d7 *inst/extdata/rds_dir/FAM1969.rds
+b775868c5cd850722782a8ce5297228d *inst/extdata/rds_dir/IND2015.rds
+d9542fbbf2513e8559a8be7317c492be *inst/extdata/unzip_dir/FAM1984.do
+6b31772af4073883c76d77aae74499cb *inst/extdata/unzip_dir/FAM1984.txt
+903436bd03d13eee3bdaf84bcaa2456a *inst/extdata/zip_dir/fam1968.zip
+afe3f0e80913ceebd730903077fb25b4 *man/convert_from_rds.Rd
+dc0873bd81886c48b5df83555ea6e522 *man/convert_to_rds.Rd
+8b87c53e7689dd30607c94331317fe78 *man/create_custom_panel.Rd
+005e57ff5f826054a68df190e089465b *man/create_extract.Rd
+8cca39d80dea448b4043ea520ede9e66 *man/easyPSID-package.Rd
+a5fe95482fbcd9ed1354d3a884a7aef3 *man/find_description.Rd
+a55e08b7c1a1c1a6e2f714c55e567c71 *man/find_name.Rd
+81bae55cab97ac5a020621077ad19eba *man/find_years.Rd
+3b7b2ddefacf1506ffd638a87f43f5b7 *man/rename_fam_vars.Rd
+e4fb51302e862a2a7c6135eecfd9a30b *man/rename_ind_vars.Rd
+342a6ed56d8ddd08f725e28d55e72e8d *man/unzip_all_files.Rd
diff --git a/NAMESPACE b/NAMESPACE
new file mode 100644
index 0000000..31fcc1e
--- /dev/null
+++ b/NAMESPACE
@@ -0,0 +1,19 @@
+# Generated by roxygen2: do not edit by hand
+
+export(convert_from_rds)
+export(convert_to_rds)
+export(create_custom_panel)
+export(create_extract)
+export(find_description)
+export(find_name)
+export(find_years)
+export(rename_fam_vars)
+export(rename_ind_vars)
+export(unzip_all_files)
+importFrom(LaF,laf_open_fwf)
+importFrom(foreign,write.dta)
+importFrom(foreign,write.foreign)
+importFrom(stringr,str_extract)
+importFrom(stringr,str_extract_all)
+importFrom(utils,object.size)
+importFrom(utils,unzip)
diff --git a/R/10find_desc.R b/R/10find_desc.R
new file mode 100644
index 0000000..c669c4a
--- /dev/null
+++ b/R/10find_desc.R
@@ -0,0 +1,23 @@
+#' Find description of PSID variable
+#' @description Finds the descriptions of selected PSID variables.
+#' @param variables Variable names to look up (as individual string or vector of strings)
+#' @keywords PSID
+#' @export
+#' @examples find_description(variables=c("V2","V30"))
+
+find_description<-function(variables){
+    #1) Make sure variable is in character format
+        variables<-as.character(variables)
+    #2) Find variables in reference dataset
+        varrow<-data$psid_desc[match(variables,data$psid_desc[,1]),]
+    #3) If variables is not in reference dataset, just show the variables name
+        if(all(is.na(varrow))){
+          return(variables)
+        }
+    #4) Otherwise, print variables name and description
+        return(varrow)
+}
+  
+
+
+                 
\ No newline at end of file
diff --git a/R/1unzip_all_files.R b/R/1unzip_all_files.R
new file mode 100644
index 0000000..48f3365
--- /dev/null
+++ b/R/1unzip_all_files.R
@@ -0,0 +1,27 @@
+#' Unzip all PSID files
+#' @description Unzips all .zip_files files in the specified directory.
+#' @param in_direc Directory of .zip files to be unzipped
+#' @param out_direc Directory for unzipped PSID files to be placed
+#' @keywords PSID
+#' @export
+#' @importFrom utils object.size unzip
+#' @examples
+#' unzip_all_files(
+#'     in_direc=system.file("extdata","zip_dir", package = "easyPSID"),
+#'     out_direc=tempdir()
+#' }
+
+unzip_all_files<-function(in_direc,out_direc){
+    #1) Deprecated - Set directories to current directory if none supplied
+        # in_direc<-ifelse(is.null(in_direc),getwd(),in_direc)
+        # out_direc<-ifelse(is.null(out_direc),in_direc,out_direc)
+    #2) Find all zip_files files in folder
+        zip_files<-list.files(path=in_direc,pattern= c("*\\.zip$" ),full.names=T)
+    #3) Unzip_files files to specified directories
+        dir.create(out_direc,showWarnings = F)
+        for(i in 1:length(zip_files)){
+          unzip(zip_files[i],exdir=out_direc)
+        }
+    #4) Indicate that files are unzip_filesped
+        message("Files Unzipped")
+}
diff --git a/R/2convert_to_rds.R b/R/2convert_to_rds.R
new file mode 100644
index 0000000..298193b
--- /dev/null
+++ b/R/2convert_to_rds.R
@@ -0,0 +1,74 @@
+#' Convert all PSID files from .txt format to .rds format
+#' @description Converts all PSID fixed width format .txt files in a selected directory into .rds format. Importantly, this function assumes that all files contained in the original PSID .zip files (especially those ending in .do) are present in the same directory as the PSID .txt files, and that all files within that directory have the same names as when first unzipped.
+#' @param in_direc Directory containing unzipped PSID .txt and .do files
+#' @param out_direc Directory to place PSID .rds files into
+#' @keywords PSID
+#' @export
+#' @importFrom stringr str_extract str_extract_all
+#' @importFrom LaF laf_open_fwf
+#' @examples
+#' convert_to_rds(
+#'     in_direc=system.file("extdata","unzip_dir", package = "easyPSID"),
+#'     out_direc=tempdir()
+#' )
+
+convert_to_rds<-function(in_direc,out_direc){
+    #1 - Deprecated - Specify directory
+        # in_direc<-ifelse(is.null(in_direc),getwd(),in_direc)
+        # out_direc<-ifelse(is.null(out_direc),getwd(),out_direc)
+    #2 - Read do and txt files
+        do_files<-c(list.files(path=in_direc,pattern= c("*\\.do$" ),full.names=T))
+        txt_files<-c(list.files(path=in_direc,pattern= c("*\\.txt$" ),full.names=T))
+        txt_files2<-c(list.files(path=in_direc,pattern= c("*\\.txt$" )))
+    #3 - Convert Stata .do files to R syntax
+      for(i in 1:length(do_files)){
+          #a) Read stata code
+              stata_code <- readLines(do_files[i])
+          #b) Keep relevant lines
+              code_start <- min(grep('infix', stata_code))
+              code_end <- min(grep('using', stata_code))-1
+              stata_keep <- stata_code[code_start:code_end]
+              stata_keep<-stata_keep[-1] #(just contains "infix")
+          #c) Extract all variable names
+              variable_names <- unlist(str_extract_all(stata_keep, '[A-Z][a-zA-Z0-9_]+'))
+          #d) Extract all variable labels
+              #i) Find where relevant code starts
+                  labs_start <- min(grep('label', stata_code))
+                  labs_end <- max(grep('label', stata_code))
+                  stata_labs <- stata_code[labs_start:labs_end]
+              #ii) Grab strings between quotes
+                  var_descriptions<-vector(length=length(stata_labs))
+                  for(j in 1:length(var_descriptions)){
+                      temp<-str_extract_all(stata_labs[j],"\"(.+)\"")[[1]]
+                      #Remove quotes
+                          var_descriptions[j]<-gsub("\"","",temp)
+                      #Remove extra spaces
+                          var_descriptions[j]<-gsub("  ","",var_descriptions[j])
+                  }
+          #iii) Extract all column indices
+              temp_columns<-unlist(str_extract_all(stata_keep,'[0-9]+ [/-] [0-9]+'))
+          #iv) Change column ranges to column counts
+              columns<-vector()
+              for(j in 1:length(temp_columns)){
+                  a<-temp_columns[j]
+                  b<-as.numeric(unlist(str_extract_all(a,'[0-9]+')))
+                  columns[j]<-b[2]-b[1]+1
+              }
+    #4) Use converted stata code to read in txt files and use stata variable labels
+          temp_data <- laf_open_fwf(txt_files[i], column_widths = columns,column_types = rep("double",length(columns)))
+          temp_data <- temp_data[,]
+          names(temp_data) <- variable_names
+          attr(temp_data,"var.labels")<-var_descriptions
+    #5) Save files as "[Type] [Year].rds"
+        #a) Determine file name
+            temp_year<-str_extract(txt_files2[i],'[0-9]+')
+            temp_heading<-substr(txt_files2[i],1,3)
+            temp_name<-paste(temp_heading,temp_year,".rds",sep="")
+        #b) Save file
+            dir.create(out_direc,showWarnings = F)
+            saveRDS(object=temp_data,file=paste(out_direc,"/",temp_name,sep = ""))
+        #c) Notify user of progress
+            message(paste(temp_name,"Converted"))
+      }
+}
+
diff --git a/R/3rename_fam_vars.R b/R/3rename_fam_vars.R
new file mode 100644
index 0000000..b82d965
--- /dev/null
+++ b/R/3rename_fam_vars.R
@@ -0,0 +1,47 @@
+#' Rename longitudinal Family File variables
+#' @description Renames all longitudinal variables in every PSID Family File of a given directory, such that variables are labeled with the variable name used when the variable was first made available in the PSID. For example, the "Release Number" variable was first recorded in the PSID dataset in 1968 as variable "V1" but its name in the 1969 family file is "V441". This program changes the "Release Number" variable name to "V1" in 1968 and all subsequent waves.
+#' @param in_direc Directory of PSID .rds files to rename
+#' @param out_direc Directory for renamed PSID .rds files to be saves to. Warning: If no directory specified, this function will overwrite the Family Files in the current directory.
+#' @keywords PSID
+#' @export
+#' @examples
+#' rename_fam_vars(
+#'     in_direc=system.file("extdata","rds_dir", package = "easyPSID"),
+#'     out_direc=tempdir()
+#' )
+
+rename_fam_vars<-function(in_direc,out_direc){
+    #1) Deprecate - Set Directory
+        # in_direc<-ifelse(is.null(in_direc),getwd(),in_direc)
+        # out_direc<-ifelse(is.null(out_direc),getwd(),out_direc)
+    #2) Create list of files to alter
+        file_names<-list.files(path=in_direc,pattern= c("^FAM.*\\.rds$" ),full.names=T) #only files beginning with title "FAM" and ending with ".rds"
+        file_names2<-list.files(path=in_direc,pattern= c("^FAM.*\\.rds$" ))
+    #3) For each file:
+        for(j in 1:length(file_names)){
+        #a) Load first file and rename to "temp_data"
+            temp_data<-readRDS(file_names[j])
+        #b) Create vector of variable names
+            temp_names<-names(temp_data)
+        #c) Determine which column to search
+            temp_column<-match(gsub('\\D+','', file_names2[j]),substring(names(data$psid_all),2))
+        #d) For each year:
+          for (i in 1:length(temp_names)){
+            #i) Find and list equivalent variables from other years
+                temp<-as.matrix(data$psid_all[data$psid_all[,temp_column]==temp_names[i],])
+            #ii) Remove years where that variable didn't exist
+                temp<-temp[temp!=""]
+            #iii) If variable not in list, skip
+                if (is.na(temp[1])){
+                  next()}
+                temp_names[i]<-temp[1] # otherwise replace variable name to name of variable in earliest occurring dataset
+          }
+    #4) Change names of dataframes
+        names(temp_data)<-temp_names
+    #5) Save output into same directory and with same name as previously
+        dir.create(out_direc,showWarnings = F)
+        saveRDS(temp_data,file=paste(out_direc,"/",file_names2[j],sep = ""))
+        message(paste(file_names2[j],"renamed"))
+        rm(list=c("temp_data"))
+      }
+}
diff --git a/R/4rename_ind_vars.R b/R/4rename_ind_vars.R
new file mode 100644
index 0000000..0d1b9e3
--- /dev/null
+++ b/R/4rename_ind_vars.R
@@ -0,0 +1,123 @@
+#' Renames longitudinal Cross-year Individual variables and saves in long format
+#' @description Renames all repeated variables in the Cross-year Individual file so that matching variables across waves have the same name, and transforms the resulting dataset into long format. The longitudinal file does not include rows for respondents who were missing in a given wave, and cross-sectional variables are marked as NA during waves when they were not asked. In addition, the resulting file adds two variables for ease of use: "Year" and "fam_id_68". 
+#' 
+#' This function may require up to 8gb of RAM, and will likely throw "cannot allocate memory" errors to users with less RAM on their computer. Users with memory issues should implement the "only_long_vars" or "cust_vars" options.
+#'
+#' @param in_direc Directory of PSID Cross-year Individual file .rds file
+#' @param out_direc Directory for renamed and transformed PSID Cross-year Individual file to be saved to
+#' @param only_long_vars Keep only longitudinal variables in dataset
+#' @param cust_vars Custom variables to keep in dataset (as character vector). Output will always include "ER30001", "fam_id_68", and "Year"
+#' @keywords PSID
+#' @export
+#' @examples 
+#' rename_ind_vars(
+#'    only_long_vars=TRUE, 
+#'    in_direc=system.file("extdata","rds_dir", package = "easyPSID"),
+#'    out_direc=tempdir()
+#' )
+
+rename_ind_vars<-function(in_direc,out_direc,only_long_vars=F,cust_vars=NULL){
+    #1) Deprecated - Set directory
+        # in_direc<-ifelse(is.null(in_direc),getwd(),in_direc)
+        # out_direc<-ifelse(is.null(out_direc),getwd(),out_direc)
+    #2) Load rds file
+        temp_file<-list.files(path=in_direc,pattern= c("IND.*\\.rds$" ),full.names=T)[1]
+        temp_file2<-list.files(path=in_direc,pattern= c("IND.*\\.rds$" ))[1]
+        df<-readRDS(temp_file)
+    #3) Identify dimensions of eventual dataframe
+        ncols<-dim(data$psid_ind)[1]
+        nyears<-dim(data$psid_ind)[2]
+        ninds<-nrow(df)
+        nrows<-nyears*ninds
+    #4) Create transposed version of data$psid_ind, sorted by time first in dataset
+        early_name<-apply(data$psid_ind,1,function(x) x[x!=""][1])
+        index<-data$psid_ind[order(early_name),]
+        index<-t(index)
+    #5) For convenience, create a column in data that is all NAs
+        df$colna<-NA
+    #6) Identify whether variable is cross-sectional
+        cross<-apply(index,2, function(x) length(x[x!=""]))
+        cross<-ifelse(cross==1,1,0)
+    #7) Identify whether observation was not present during a given wave
+        #ER30003 indicates whether non-response in given wave
+            ER30003<-which(index=="ER30003",arr.ind = T)[2]
+            #i) Find corresponding variable names
+                varnames<-as.vector(index[,ER30003])
+            #ii) Replace missing variable names with colna
+                varnames[varnames==""]<-"colna"
+            #iii) Pull out those column names and convert to vector
+                resp<-vector()
+                for(j in 1:length(varnames)){
+                  resp<-c(resp,df[,varnames[j]])
+                }
+            #iv) Remove missing individuals
+                resp[resp>0]<-1
+    #8) Subset to custom variables or longitudinal variables
+        if(!is.null(cust_vars)){
+          if(!"ER30001" %in% cust_vars){
+            cust_vars<-c(cust_vars,"ER30001")
+          }
+          indcols<-sapply(cust_vars,function(x) which(index == x,arr.ind = T)[2])
+          index<-index[,indcols]  
+        }else if(only_long_vars==T){
+          index<-index[,cross==0]
+        }
+    #9) For each unique variable in individual file, convert to long format
+        #i) Find corresponding variable names across waves
+            ind_longdf<-lapply(as.data.frame(index),as.vector)
+        #ii) Replace missing variable names with colna
+            ind_longdf<-lapply(ind_longdf,function(x) ifelse(x=="","colna",x))
+        #iii) Pull out those columns
+            ind_longdf<-lapply(ind_longdf,function(x) df[,x])
+        #iv) Convert columns to single vector
+            fastunlist<-function(x){
+              x<-c(as.matrix(x))
+              x<-x[resp==1] #(not usually part of function)
+            }
+            percent <- function(x, digits = 0, format = "f", ...) {
+              paste0(formatC(100 * x, format = format, digits = digits, ...), "%")
+            }
+            for(i in 1:length(ind_longdf)){
+              ind_longdf[[i]]<-fastunlist(ind_longdf[[i]])
+              if(i/10==floor(i/10)){
+                gc()
+                message(percent(i/length(ind_longdf)))
+              }
+            }
+            gc()
+        #v) Convert list to dataframe
+            ind_longdf<-do.call(cbind,ind_longdf)
+            gc()
+            ind_longdf<-as.data.frame(ind_longdf)
+            gc()
+    #10) Add metadata to dataframe
+        #a) Create proper names for columns
+            if(!is.null(cust_vars)){
+              early_name2<-cust_vars
+            }else if(only_long_vars==T){
+              early_name2<-apply(index,2,function(x) x[x!=""][1])
+            }else{
+              early_name2<-early_name[order(early_name)]  
+            }
+            names(ind_longdf)<-early_name2
+        #b) Bring back variable descriptions
+            temp<-find_description(names(ind_longdf))
+            attr(ind_longdf,"var.labels")<-temp$Description
+        #c) Add a year variable
+            uyears<-gsub('\\D+','', row.names(index))
+            Year<-rep(uyears,each=ninds)
+            Year<-Year[resp==1]
+            ind_longdf$Year<-Year
+        #d) Add a family id variable
+            fam_id_68<-ind_longdf$ER30001
+      #11) Save file
+          dir.create(out_direc,showWarnings = F)
+          temp_file2<-gsub(".rds","",temp_file2)
+          saveRDS(ind_longdf,file=paste(out_direc,"/",temp_file2," - Long Format.rds",sep=""))
+          message(percent(1))
+}
+
+
+
+
+
diff --git a/R/5create_custom_panel.R b/R/5create_custom_panel.R
new file mode 100644
index 0000000..e982b35
--- /dev/null
+++ b/R/5create_custom_panel.R
@@ -0,0 +1,90 @@
+#' Create custom longitudinal (panel) dataset with PSID Family Files
+#' @description Uses the longitudinal PSID Family Files to create a custom longitudinal dataset in long format based on all PSID .rds Family files in a selected directory.
+#' 
+#' This function can work with data that has been renamed via the rename_fam_vars function or data just converted to .rds format via the convert_to_rds function. It will creates NAs for years when a given variable was not available, and creates a new variable ("Year") to specify the panel of data included in the custom dataset. If a provided variable exists in other waves of the family files under a different name, all waves of that variable will be included in the resulting dataset.
+#' 
+#' To create a longitudinal family file of the PSID with all variables in the PSID Family Files, it is recommended that one uses the create_extract function instead. However, such a file can be very large when using many waves of the PSID. Users with more than five waves of the PSID Family Files are highly recommended to avoid creating a longitudinal dataset with all unique Family File variables.
+#' 
+#' @param var_names Variable names to include in custom longitudinal dataset (as vector of strings)
+#' @param in_direc Directory of PSID .rds to use for custom longitudinal dataset
+#' @param out_direc Directory to place resulting longitudinal dataset into
+#' @keywords PSID
+#' @export
+#' @examples 
+#' create_custom_panel(
+#'    var_names = c("V534", "V442", "V398"),
+#'    in_direc=system.file("extdata","rds_dir", package = "easyPSID"),
+#'    out_direc=tempdir()
+#' )
+
+create_custom_panel<-function(var_names, in_direc, out_direc){
+    #1) Assign directories
+        # in_direc<-ifelse(is.null(in_direc),getwd(),in_direc)
+        # out_direc<-ifelse(is.null(out_direc),getwd(),out_direc)
+        filenames<-list.files(path=in_direc,pattern= c("^FAM.*\\.rds$" ),full.names = T)
+        filenames2<-list.files(path=in_direc,pattern= c("^FAM.*\\.rds$" ))
+    #2) Error checks
+        #a) Subset variables dataframe to lines that contain variable names.
+            variables_temp<-as.matrix(data$psid_all)
+        #b) Check if each variable is in the dataset. Break if any variable missing.
+            missings<-var_names[is.na(match(var_names,variables_temp))]
+            if(length(missings)>0){
+                message<-paste("The following variable(s) were not found in the PSID family files:",paste(missings,collapse = ", "),sep="\n\n")
+                stop(message)
+            }
+        #c) Exclude redundant variables from following functions. Post warning.
+            redundant<-duplicated(var_names)
+            if(any(redundant)){
+                redundant_name<-var_names[redundant]
+                message<-paste("The following variable(s) were requested more than once. Only one copy of each of these variable(s) will be included in the resulting dataset:",paste(redundant_name,collapse = ", "), sep="\n\n")
+                var_names<-var_names[!redundant]
+                warning(message)
+            }
+    #3) Temporarily rename each variable to match names of their earliest occurrence.
+        temp_names<-var_names
+        #a) Identify row and column of each variable
+            index<-lapply(temp_names,function(x) which(data$psid_all==x,arr.ind=T))
+        #b) Extract rows from index
+            row<-sapply(index,function(x) x[1])
+        #c) Keep index of current variables
+            new_ind<-data$psid_all[row,]
+        #d) Rename columms
+            names(new_ind)<-gsub('\\D+','', names(new_ind))
+        #e) Identify earliest name of each variable
+            early_name<-as.vector(apply(new_ind,1,function(x) x[x!=""][1]))
+
+    #4) Create a list of longitudinal datasets with variables selected above
+        temp_datal<-list()
+        for(j in 1:length(filenames)){
+        #a) Load first file and rename to "temp_data"
+            temp_data<-readRDS(filenames[j])
+        #b) Create vector of variable names
+            temp_names<-names(temp_data)
+        #c) Only keep columns that match possible variable names
+            #i) Identify dataframe year
+                temp_year<-gsub('\\D+','', filenames2[j])
+            #ii) Identify matchin column in dataset
+                column<-match(temp_year,names(new_ind))
+            #iii) Find variable names of requested variables as of a given year
+                keep_vars<-match(new_ind[,column],temp_names)
+                # In case variables already renamed, try above with earliest variable names
+                    keep_varsalt<-match(early_name,temp_names)
+                    if(sum(is.na(keep_varsalt))<sum(is.na(keep_vars))){
+                      keep_vars<-keep_varsalt
+                    }
+            #iv) Pull those variables and replace no matches with NAs
+                keep_vars2<-keep_vars
+                keep_vars2[is.na(keep_vars)]<-1
+                temp_data2<-temp_data[,keep_vars2]
+                temp_data2[,is.na(keep_vars)]<-NA
+            #v) rename variables, add year, and append to list
+                names(temp_data2)<-var_names
+                temp_data2$Year<-as.numeric(temp_year)
+                temp_datal[[j]]<-temp_data2
+                message(paste(filenames2[j],"Added to Panel"))
+        }
+    #5) Put above datasets to dataframe format and save
+        PSIDPanel<-do.call(rbind,temp_datal)
+        dir.create(out_direc,showWarnings = F)
+        saveRDS(PSIDPanel,file=paste(out_direc,"/","PSID Panel.rds",sep = ""))
+}
diff --git a/R/6create_extract.R b/R/6create_extract.R
new file mode 100644
index 0000000..c59c63b
--- /dev/null
+++ b/R/6create_extract.R
@@ -0,0 +1,97 @@
+#' Create subset of common family file variables in long format
+#' @description Creates an extract dataset in long format consisting of the 500 most frequently reoccurring PSID Family Variables across all supplied waves of the PSID.
+#' @param in_direc Directory containing waves of the Family Files in .rds format
+#' @param out_direc Directory to place export file into
+#' @param num_vars Number of variables to include in export dataset (default = 500). High variable counts with many waves of data require a significant amount of RAM, and may cause this function to throw errors if a computer's RAM is insufficient
+#' @param all_years Select most common variables based on all years of the PSID rather than based in the data actually supplied
+#' @keywords PSID
+#' @export
+#' @examples 
+#' create_extract(
+#'     in_direc=system.file("extdata","rds_dir", package = "easyPSID"),
+#'     out_direc=tempdir(),
+#'     num_vars=25,
+#' )
+
+create_extract<-function(in_direc, out_direc, num_vars=500, all_years=F){
+    #1) Assign directories
+        # in_direc<-ifelse(is.null(in_direc),getwd(),in_direc)
+        # out_direc<-ifelse(is.null(out_direc),getwd(),out_direc)
+        filenames<-list.files(path=in_direc,pattern= c("^FAM.*\\.rds$" ),full.names = T)
+        filenames2<-list.files(path=in_direc,pattern= c("^FAM.*\\.rds$" ))
+    #1.5) Error check
+        #Don't run if only one year provided
+            if(length(filenames)<2){
+                filenames<-paste("Less than two waves of data found in in_direc. Two or more waves of data required")
+                stop(message)
+            }
+    #2) Determine variable names
+        #a) determine years of supplied data
+            data_years<-gsub('\\D+','',filenames2)
+        #b) pull psid info
+            tdf<-data$psid_fam
+        #c) only include matching years
+            if(all_years==F){
+                names(tdf)<-gsub('\\D+','',names(tdf))
+                tdf<-tdf[,names(tdf) %in% data_years]
+            }
+        #d) find most common variables
+            if(ncol(as.data.frame(tdf))>1){
+                var_freq<-apply(tdf,1,function(x) sum(x!=""))
+            }else{
+                var_freq<-sum(tdf[,1]!="")
+            }
+            var_rank<-rank(var_freq,ties.method="first")
+            var_rank<-max(var_rank)-var_rank
+            var_common<-tdf[var_rank<=num_vars,]
+            var_names<-as.vector(apply(var_common,1,function(x) x[x!=""][1]))
+            
+    #3) Redundant steps to make remainder of formula work.
+        temp_names<-var_names
+        #a) Identify row and column of each variable
+            index<-lapply(temp_names,function(x) which(data$psid_all==x,arr.ind=T))
+        #b) Extract rows from index
+            row<-sapply(index,function(x) x[1])
+        #c) Keep index of current variables
+            new_ind<-data$psid_all[row,]
+        #d) Rename columms
+            names(new_ind)<-gsub('\\D+','', names(new_ind))
+        #e) Identify earliest name of each variable
+            early_name<-as.vector(apply(new_ind,1,function(x) x[x!=""][1]))
+
+    #4) Create a list of longitudinal datasets with variables selected above
+        temp_datal<-list()
+        for(j in 1:length(filenames)){
+        #a) Load first file and rename to "temp_data"
+            temp_data<-readRDS(filenames[j])
+        #b) Create vector of variable names
+            temp_names<-names(temp_data)
+        #c) Only keep columns that match possible variable names
+            #i) Identify dataframe year
+                temp_year<-gsub('\\D+','', filenames2[j])
+            #ii) Identify matchin column in dataset
+                column<-match(temp_year,names(new_ind))
+            #iii) Find variable names of requested variables as of a given year
+                keep_vars<-match(new_ind[,column],temp_names)
+                # In case variables already renamed, try above with earliest variable names
+                    keep_varsalt<-match(early_name,temp_names)
+                    if(sum(is.na(keep_varsalt))<sum(is.na(keep_vars))){
+                      keep_vars<-keep_varsalt
+                    }
+            #iv) Pull those variables and replace no matches with NAs
+                keep_vars2<-keep_vars
+                keep_vars2[is.na(keep_vars)]<-1
+                temp_data2<-temp_data[,keep_vars2]
+                temp_data2[,is.na(keep_vars)]<-NA
+            #v) rename variables, add year, and append to list
+                names(temp_data2)<-var_names
+                temp_data2$Year<-as.numeric(temp_year)
+                temp_datal[[j]]<-temp_data2
+                message(paste(filenames2[j],"Added to Panel"))
+        }
+
+    #5) Put above datasets to dataframe format and save
+        PSIDPanel<-do.call(rbind,temp_datal)
+        dir.create(out_direc,showWarnings = F)
+        saveRDS(PSIDPanel,file=paste(out_direc,"/","PSID Extract.rds",sep = ""))
+}
diff --git a/R/7convert_from_rdata.R b/R/7convert_from_rdata.R
new file mode 100644
index 0000000..c8c55f5
--- /dev/null
+++ b/R/7convert_from_rdata.R
@@ -0,0 +1,37 @@
+#' Export PSID files to another statistical language
+#' @description Exports all .rds files in the chosen directory into a common file format used by one of three other statistical programming languages (SPSS, SAS, and STATA). Unlike most alternatives, this function retains all variable labels provided by the PSID.
+#' @param language Language to export PSID .rds files into (options include SPSS, SAS, and STATA)
+#' @param in_direc Directory of PSID .rds files to export. Note that large files can take a long time to export.
+#' @param out_direc Directory for exported files to be placed
+#' @keywords PSID
+#' @export 
+#' @importFrom foreign write.dta write.foreign
+#' @examples 
+#' convert_from_rds(
+#'     language="STATA", 
+#'     in_direc=system.file("extdata","rds_dir", package = "easyPSID"),
+#'     out_direc=tempdir()
+#' )
+
+convert_from_rds<-function(language, in_direc, out_direc){
+    #1) Prepare directories and file names
+        # in_direc<-ifelse(is.null(in_direc),getwd(),in_direc)
+        # out_direc<-ifelse(is.null(out_direc),in_direc,out_direc)
+        dir.create(out_direc,showWarnings = F)
+        filenames<-list.files(path=in_direc,pattern= c(".*\\.rds$" )) #only files ending with ".rds"
+    #2) Export data
+      for(i in 1:length(filenames)){  
+        tempdataframename<-readRDS(paste(in_direc,"/",filenames[i],sep=""))
+        if(language=="SPSS"){
+          write.foreign(tempdataframename, paste(out_direc,"/",filenames[i],".txt",sep=""), paste(out_direc,"/",tempdataframename,".sps",sep=""),   package="SPSS")
+          }
+        if(language=="SAS"){
+          write.foreign(tempdataframename, paste(out_direc,"/",filenames[i],".csv",sep=""), paste(out_direc,"/",tempdataframename,".sas",sep=""), dataname=gsub(" ","",tempdataframename),  package="SAS")
+          }
+        if(language=="STATA"){
+          write.dta(tempdataframename,  paste(out_direc,"/",filenames[i],".dta",sep=""))
+          }
+        message(paste(filenames[i],"Exported"))
+      }
+}
+
diff --git a/R/8find_name.R b/R/8find_name.R
new file mode 100644
index 0000000..c421d47
--- /dev/null
+++ b/R/8find_name.R
@@ -0,0 +1,32 @@
+#' Lookup new longitudinal variables names
+#' @description Finds the new name of any longitudinal variable in the PSID Family Files or Individual files following implementation of the rename_fam_vars and rename_ind_vars functions.
+#' @param variable Variable to look up
+#' @param var_year Report year when renamed variable first entered the PSID dataset (default=TRUE)
+#' @keywords PSID
+#' @export
+#' @examples find_name(variable="V1244",var_year=FALSE)
+
+
+find_name<-function(variable,var_year=TRUE){
+    #1) Make sure variable is in character format
+        variable<-as.character(variable)
+    #2) Find variable in reference dataset
+        varrow<-data$psid_all[which(variable==data$psid_all,arr.ind=T)[1],]
+    #3) If variable is not in reference dataset, just show the variable name
+        if(all(is.na(varrow))){
+          return(variable)
+        }
+    #4) Otherwise, print variable name and var_year if requested
+        #a) Remove var_years where that variable didn't exist
+            varrow<-varrow[,varrow!=""]
+        #b) Create data table of all var_years and names
+            df<-data.frame(Year=substring(names(varrow),2),
+                           Name=as.character(unlist(varrow)))
+            df$Name<-as.character(df$Name)
+            df$Year<-as.numeric(as.character(df$Year))
+        #c) Return first row/cell depending on input
+            if(var_year==TRUE){
+              return(df[1,])
+            }
+            return(df[1,2])
+}
diff --git a/R/9find_years.R b/R/9find_years.R
new file mode 100644
index 0000000..98928ea
--- /dev/null
+++ b/R/9find_years.R
@@ -0,0 +1,33 @@
+#' Find years of PSID variable
+#' @description Finds the years and corresponding variable names for any longitudinal PSID variable in the PSID Family Files and Individual file.
+#' @param variable Variable name to look up
+#' @param var_names Report names for longitudinal PSID variable across years (default=TRUE)
+#' @keywords PSID
+#' @export
+#' @examples find_years(variable="V3",var_names=FALSE)
+
+
+find_years<-function(variable,var_names=TRUE){
+    #1) Make sure variable is in character format
+        variable<-as.character(variable)
+    #2) Find variable in reference dataset
+        varrow<-data$psid_all[which(variable==data$psid_all,arr.ind=T)[1],]
+    #3) If variable is not in reference dataset, just show the variable name
+        if(all(is.na(varrow))){
+          return(variable)
+        }
+    #4) Otherwise, print variable name and year if requested
+        #a) Remove years where that variable didn't exist
+            varrow<-varrow[,varrow!=""]
+        #b) Create data table of all years and var_names
+            df<-data.frame(Year=substring(names(varrow),2),
+                           Name=as.character(unlist(varrow)))
+            df$Name<-as.character(df$Name)
+            df$Year<-as.numeric(as.character(df$Year))
+        #c) Return first row/cell depending on input
+            if(var_names==TRUE){
+              return(df)
+            }
+            return(df[,1])
+}
+  
\ No newline at end of file
diff --git a/R/PSID_Package.Documentation_function.R b/R/PSID_Package.Documentation_function.R
new file mode 100644
index 0000000..c534c93
--- /dev/null
+++ b/R/PSID_Package.Documentation_function.R
@@ -0,0 +1,5 @@
+#' @details
+
+#' This package is designed for use with the PSID's packaged data Family Files, available at https://simba.isr.umich.edu/. See easyPSID's readme at https://github.com/BrianAronson/easyPSID/blob/master/README.md for a more detailed overview and guide for using this package.
+#'
+"_PACKAGE"
diff --git a/R/sysdata.rda b/R/sysdata.rda
new file mode 100644
index 0000000..215a2e5
Binary files /dev/null and b/R/sysdata.rda differ
diff --git a/README.md b/README.md
new file mode 100644
index 0000000..02466f4
--- /dev/null
+++ b/README.md
@@ -0,0 +1,57 @@
+#easyPSID README.md
+
+##Overview
+
+The easyPSID package is designed to simplify the task of reading the Panel Study of Income Dynamics (PSID) into R and preparing the data for analysis. 
+
+Although the PSID is one of the most comprehensive longitudinal datasets for examining health and life course patterns among American families, preparing the PSID for analysis can be a difficult task. The PSID comes with no scripts for being read into R, and every wave of each PSID longitudinal variable has a unique name. For example, variables in the 1968 PSID Family File are named “V1” through “V440” whereas variables within the 1969 PSID Family File are named “V441” through “V1017,” even though of the 1969 Family File variables match those in the 1968 Family File. These aspects of the PSID can pose difficulties for R users who want to conduct longitudinal analyses in the PSID. Fortunately, the easyPSID package is designed to make working with the PSID as easy as possible.
+
+##Example
+
+After users have downloaded several waves of the PSID Packaged Data Family Files from https://simba.isr.umich.edu/, a common first use of the easyPSID package is to unzip each wave of the family files, convert them to .rds format, rename all longitudinal variables to consistent names across years, and save these resulting renamed datasets to .rds format with the following code (after amending for directory names). For example:
+
+    library(easyPSID)
+    unzip_all_files(
+        in_direc="C:/PSID/Zip Files",
+        out_direc="C:/PSID/Unzipped Files",
+    )
+    convert_to_rds(
+        in_direc="C:/PSID/Unzipped Files",
+        out_direc="C:/PSID/rds Files",
+    )
+    rename_fam_vars(
+        in_direc="C:/PSID/rds Files",
+        out_direc="C:/PSID/renamed Files",
+    )
+
+If users desire all of the PSID .zip files, unzipped files, and .rds files to be in the same directory, this code can be simplified to just:
+
+    library(easyPSID)
+    setwd("C:/PSID/Zip Files")
+    unzip_all_files()
+    convert_to_rds()
+    rename_fam_vars()
+
+##Installation
+
+Installing this package can be done with the following two lines:
+
+    library(devtools)
+    install_github("BrianAronson/easyPSID")
+
+However, prior to working with the easyPSID package, users will need to have already downloaded Packaged PSID data for the years that they wish to work with from https://simba.isr.umich.edu/. PSID's packaged data can only be accessed by loading this URL and navigating through the following tabs: Data-    Packaged Data-    Main and Supplemental Studies. 
+
+##Function Overview
+
+More detailed vignettes for this package are in development, but below is a brief outline of each functions in this package:
+
+- **unzip\_all\_files**: Unzips all files in the supplie directory.
+- **convert\_to\_rds**: Read PSID fixed width files into R and saves output in .rds format.
+- **rename\_fam\_vars**: Renames all variables in longitudinal family files to their names when they were first available in the dataset.
+- **rename\_ind\_vars**: Renames all variables in longitudinal family files to their names when they were first available in the dataset.
+- **create\_custom\_panel**: Creates a longitudinal dataset with provided family files consisting of a custom set of  variables selected by the user.
+- **create\_extract**: Creates a longitudinal dataset with provided family files consisting of the dataset's N most commonly reoccurring variables.
+- **convert\_from\_rdata**: Converts PSID .rds files to files compatible with STAT, SAS, or SPSS.
+- **find\_name**: Returns the new name (via the rename\_fam\_vars and rename\_ind\_vars functions) of a specified variable.
+- **find\_years**: Returns each year that a given variable is available in the PSID, and its names during those years.
+- **find\_description**: Returns the description of a given variable in the PSID with the variable labels provided by the PSID.
\ No newline at end of file
diff --git a/inst/extdata/rds_dir/FAM1968.rds b/inst/extdata/rds_dir/FAM1968.rds
new file mode 100644
index 0000000..61c2afa
Binary files /dev/null and b/inst/extdata/rds_dir/FAM1968.rds differ
diff --git a/inst/extdata/rds_dir/FAM1969.rds b/inst/extdata/rds_dir/FAM1969.rds
new file mode 100644
index 0000000..11dd3a7
Binary files /dev/null and b/inst/extdata/rds_dir/FAM1969.rds differ
diff --git a/inst/extdata/rds_dir/IND2015.rds b/inst/extdata/rds_dir/IND2015.rds
new file mode 100644
index 0000000..ff298fa
Binary files /dev/null and b/inst/extdata/rds_dir/IND2015.rds differ
diff --git a/inst/extdata/unzip_dir/FAM1984.do b/inst/extdata/unzip_dir/FAM1984.do
new file mode 100644
index 0000000..eaaa304
--- /dev/null
+++ b/inst/extdata/unzip_dir/FAM1984.do
@@ -0,0 +1,60 @@
+
+#delimit ;
+
+**************************************************************************
+   Label           : 1984 Family Wealth Data
+   Rows            : 200
+   Columns         : 34
+   ASCII File Date : March 2, 2011
+*************************************************************************;
+
+
+infix 
+      S100            1 - 1         S101            2 - 6         S102            7 - 7    
+      S102A           8 - 8         S103            9 - 17        S103A          18 - 18   
+      S104           19 - 19        S104A          20 - 20        S105           21 - 29   
+      S105A          30 - 30        S106           31 - 31        S106A          32 - 32   
+      S107           33 - 41        S107A          42 - 42        S108           43 - 43   
+      S108A          44 - 44        S109           45 - 53        S109A          54 - 54   
+      S110           55 - 55        S110A          56 - 56        S111           57 - 65   
+      S111A          66 - 66        S113           67 - 75        S113A          76 - 76   
+      S114           77 - 77        S114A          78 - 78        S115           79 - 87   
+      S115A          88 - 88        S120           89 - 97        S120A          98 - 98   
+      S116           99 - 107       S116A         108 - 108       S117          109 - 117  
+      S117A         118 - 118  
+using [path]\WLTH1984.txt, clear 
+;
+label variable  S100       "1984 WEALTH FILE RELEASE NUMBER" ;                 
+label variable  S101       "1984 FAMILY ID" ;                                  
+label variable  S102       "IMP WTR FARM/BUS (K122) 84" ;                      
+label variable  S102A      "ACC WTR FARM/BUS (K122) 84" ;                      
+label variable  S103       "IMP VALUE FARM/BUS (K123) 84" ;                    
+label variable  S103A      "ACC VALUE FARM/BUS (K123) 84" ;                    
+label variable  S104       "IMP WTR CHECKING/SAVING (K132) 84" ;               
+label variable  S104A      "ACC WTR CHECKING/SAVING (K132) 84" ;               
+label variable  S105       "IMP VAL CHECKING/SAVING (K133) 84" ;               
+label variable  S105A      "ACC VAL CHECKING/SAVING (K133) 84" ;               
+label variable  S106       "IMP WTR OTH DEBT (K145) 84" ;                      
+label variable  S106A      "ACC WTR OTH DEBT (K145) 84" ;                      
+label variable  S107       "IMP VALUE OTH DEBT (K146) 84" ;                    
+label variable  S107A      "ACC VALUE OTH DEBT (K146) 84" ;                    
+label variable  S108       "IMP WTR OTH REAL ESTATE (K113) 84" ;               
+label variable  S108A      "ACC WTR OTH REAL ESTATE (K113) 84" ;               
+label variable  S109       "IMP VAL OTH REAL ESTATE (K114) 84" ;               
+label variable  S109A      "ACC VAL OTH REAL ESTATE (K114) 84" ;               
+label variable  S110       "IMP WTR STOCKS (K127) 84" ;                        
+label variable  S110A      "ACC WTR STOCKS (K127) 84" ;                        
+label variable  S111       "IMP VALUE STOCKS (K128) 84" ;                      
+label variable  S111A      "ACC VALUE STOCKS (K128) 84" ;                      
+label variable  S113       "IMP VALUE VEHICLES (K118) 84" ;                    
+label variable  S113A      "ACC VALUE VEHICLES (K118) 84" ;                    
+label variable  S114       "IMP WTR OTH ASSETS (K137) 84" ;                    
+label variable  S114A      "ACC WTR OTH ASSETS (K137) 84" ;                    
+label variable  S115       "IMP VALUE OTH ASSETS (K138) 84" ;                  
+label variable  S115A      "ACC VALUE OTH ASSETS (K138) 84" ;                  
+label variable  S120       "IMP VALUE HOME EQUITY 84" ;                        
+label variable  S120A      "ACC VALUE HOME EQUITY 84" ;                        
+label variable  S116       "IMP WEALTH W/O EQUITY (WEALTH1) 84" ;              
+label variable  S116A      "ACC WEALTH W/O EQUITY (WEALTH1) 84" ;              
+label variable  S117       "IMP WEALTH W/ EQUITY (WEALTH2) 84" ;               
+label variable  S117A      "ACC WEALTH W/ EQUITY (WEALTH2) 84" ;               
diff --git a/inst/extdata/unzip_dir/FAM1984.txt b/inst/extdata/unzip_dir/FAM1984.txt
new file mode 100644
index 0000000..4d5cffe
--- /dev/null
+++ b/inst/extdata/unzip_dir/FAM1984.txt
@@ -0,0 +1,200 @@
+3    100        0000        0010      100000        0000        00        0000        00        00     -1000     -1000
+3    200        0010     1300010     4000000        0000        00     7000010     15000    280000     58000    338000
+3    300        0010      500010      500010    20000000        00        0000        00     80000    200000    280000
+3    400        0010      400010     3385000        0000        00     3000000        00     80000       150     80150
+3    500        0010      320000        0000        0000        00     3000000        00     63000     33200     96200
+3    600        0000        0010     3000000        0000        00     4000100        00    130000     10001    140001
+3    700        0010    10682000        0010   150000010     38000      500010     36000   2500000   1685820   4185820
+3    800        0000        0000        0000        0000        00     3000000        00        00     30000     30000
+3    900        0010    20000000        0000        0000        00      300010      2000        00    205000    205000
+3   1000        0010    25000000        0000        0000        00    10000000        00        00    350000    350000
+3   1100        0000        0000        0000        0000        00        0000        00        00        00        00
+3   1210    30000010     5000000        0000        0000        00        0000        00     18000    350000    368000
+3   1300        0010      450010       50000        0000        00     2400000        00        00     28000     28000
+3   1400        0010    20000000        0000        0010    100000     8000000        00    480000    380000    860000
+3   1500        0010    50000000        0000        0000        00     1500010     60000   1050000    575000   1625000
+3   1610    30000010     3000010      529000        0000        00     4000000        00    470000    364710    834710
+3   1700        0010    11000010     5000000        0000        00     7000000        00    252000    130000    382000
+3   1800        0010    85000010       50000        0010     32000    10000000        00    850000    981500   1831500
+3   1900        0010     2000010     2300010    30000010     10800     4500010     50001    520000    402801    922801
+3   2000        0010     5000000        0010    50000000        00     2000000        00   1220000    570000   1790000
+3   2100        0010     2000000        0000        0000        00     1000000        00        00     30000     30000
+3   2210      100010     4200010      300010    18000010     30000     6500000        00    230000    315000    545000
+3   2300        0010        5100        0000        0000        00      500110     40001        00     45051     45051
+3   2400        0010     1000110     1200100        0000        00     8000010    600001    500000    678001   1178001
+3   2500        0010     3250000        0000        0000        00    13000000        00    245000    162500    407500
+3   2600        0010      300010     1000000        0000        00    10000000        00    110000     93000    203000
+3   2700        0010     3200000        0000        0000        00     2800000        00    450000     60000    510000
+3   2800        0000        0010     2500000        0000        00      800000        00        00    -17000    -17000
+3   2900        0010     2000010     7000000        0010      3000     2000000        00    850000    -27000    823000
+3   3000        0010     1000010      700000        0010     20000    11200010    500001   1210000    635001   1845001
+3   3100        0010    30000000        0000        0010    100000     2000000        00   1250000    420000   1670000
+3   3200        0010      200010     1500000        0000        00     2000000        00        00      7000      7000
+3   3300        0010      168010     2000000        0000        00     5000000        00   2750000     31680   2781680
+3   3400        0010       10010     5000000        0000        00      400000        00        00    -45900    -45900
+3   3500        0010     2400010     3800000        0000        00        0000        00        00    -14000    -14000
+3   3600        0010      150010     1200000        0000        00     4000000        00    260000     29500    289500
+3   3700        0010     5000010     4000000        0010     22001     9400010      2001    200000    128001    328001
+3   3800        0010    12000010     2000010   130000100        00    11000000        00    540000   1510001   2050001
+3   3900        0010    17000000        0000        0010    200001    17900000        00    315000    549001    864001
+3   4000        0010     4000010     5600000        0000        00    15000010     25000    330000    159000    489000
+3   4100        0010     2000010      160010    20000000        00      200010     60000    250000    280400    530400
+3   4200        0000        0000        0000        0000        00        0000        00        00        00        00
+3   4300        0010     1800010     1500000        0000        00        0000        00        00      3000      3000
+3   4410    20400000        0000        0000        0000        00     1500000        00        00    219000    219000
+3   4500        0010     1500010     4148000        0000        00     3000000        00        00      3520      3520
+3   4600        0010    30000010    15500010    60000010    250000    12000010    100000    920000   1215000   2135000
+3   4700        0010     1500010      600010    35000000        00     4000100        00    360000    399001    759001
+3   4800        0010     3000010     2500000        0010    180001     1800010    240000    900000    443001   1343001
+3   4900        0010    15000000        0000        0000        00     9000010    100001    621000    340001    961001
+3   5000        0010     1500010     1000000        0000        00     2500000        00        00     30000     30000
+3   5100        0010     2250000        0000        0010    100000    30000000        00    300000    422500    722500
+3   5200        0010     2000010     2500000        0010    150000     5000000        00    150000    195000    345000
+3   5300        0010      200000        0000        0000        00     2000000        00        00     22000     22000
+3   5400        0000        0000        0000        0000        00     1200000        00        00     12000     12000
+3   5500        0010   130000000        0010    51000010     40000    44000000        00    100000   2290000   2390000
+3   5600        0000        0000        0010    23000000        00        0000        00    300000    230000    530000
+3   5700        0000        0000        0000        0000        00        0000        00        00        00        00
+3   5800        0010   100000100        0010    79000010      2000     6500010     10000    520000   1867001   2387001
+3   5900        0010   100000000        0010    30000010    100000     3000000        00    150000   1430000   1580000
+3   6000        0010      300100        0000        0010    100001     8000000        00    650000    183001    833001
+3   6100        0000        0010     5000000        0000        00     6000000        00        00     10000     10000
+3   6200        0010      500010     1800000        0000        00      700000        00    180000     -6000    174000
+3   6300        0010    10000000        0000        0010    220000     1000000        00    700000    330000   1030000
+3   6400        0010       10000        0000        0000        00     5000000        00        00     50100     50100
+3   6500        0010      700010     1500000        0000        00     5500000        00   1020000     47000   1067000
+3   6610    20000010    12000010    15000010   180000000        00    35000010    530000    230000   2850000   3080000
+3   6710    30000010     1000010    10000000        0000        00     9000000        00    600000    300000    900000
+3   6800        0010     5000000        0000        0010    250000    30000000        00    260000    600000    860000
+3   6900        0010    20000000        0010   150000100        00    12000010    100000    700000   1920001   2620001
+3   7000        0010     4000100        0000        0000        00     6400100        00    180000    104001    284001
+3   7100        0000        0010    35000000        0000        00      800010      2000        00   -340000   -340000
+3   7200        0010        5010      700000        0000        00      200000        00        00     -4950     -4950
+3   7300        0010     5000010     7500000        0000        00     8000000        00    200000     55000    255000
+3   7400        0010     1500010     1100000        0000        00     6000010    250000        00    314000    314000
+3   7500        0000        0010      100000        0000        00      500000        00        00      4000      4000
+3   7610    20000010     8000000        0010     3000000        00     4000000        00    230000    350000    580000
+3   7700        0000        0010      900000        0000        00        0000        00        00     -9000     -9000
+3   7800        0000        0010       37000        0000        00      100000        00        00       630       630
+3   7900        0010     2000000        0000        0000        00     8000010     10000    190000    110000    300000
+3   8000        0000        0000        0000        0000        00     3000000        00    150000     30000    180000
+3   8100        0010     4000010     1000000        0000        00     3500010     10000    200000     75000    275000
+3   8210     2000010    10000000        0010    15000000        00     9000010      8501    355000    368501    723501
+3   8300        0000        0000        0000        0000        00        0000        00        00        00        00
+3   8400        0010      800010     1000000        0000        00        0010     20000     60000     18000     78000
+3   8500        0010     2000010     2000000        0000        00     8000000        00     50000     80000    130000
+3   8600        0010      100010     1500000        0000        00     3500000        00    170000     21000    191000
+3   8700        0010        1010      600000        0000        00        0000        00        00     -5990     -5990
+3   8800        0010      108100        0000        0000        00     6000000        00        00     61081     61081
+3   8900        0010    20000100        0000        0000        00        0000        00        00    200001    200001
+3   9000        0010    10000100        0010    20000000        00     3000000        00    400000    330001    730001
+3   9100        0010       80100        0000        0010    200001        0000        00    750000    200801    950801
+3   9200        0000        0000        0000        0000        00      200000        00        00      2000      2000
+3   9300        0010    93000010     1000010    52000000        00     4000010     30000    430000   1510000   1940000
+3   9400        0010      180010     1500000        0010     40000     3700000        00        00     63800     63800
+3   9500        0010     9000000        0000        0000        00     2000010     30000        00    140000    140000
+3   9600        0010    25000000        0010    90000000        00     4000000        00    250000   1190000   1440000
+3   9700        0010    50000000        0000        0010      6000    12000010    200000    450000    826000   1276000
+3   9800        0010     6000000        0000        0000        00   105000000        00    450000   1110000   1560000
+3   9900        0010    11000000        0000        0000        00      500000        00    300000    115000    415000
+3  10010    10000010     6800010     4000000        0010      7500     9000100        00    330000    225501    555501
+3  10100        0010     3300010      800000        0000        00        0010     45001        00     70001     70001
+3  10200        0010      900010    10900000        0000        00        0000        00    376000   -100000    276000
+3  10300        0010       42010      600000        0000        00        0000        00        00     -5580     -5580
+3  10400        0010     5000010      500010    18000000        00     5000000        00    150000    275000    425000
+3  10500        0010    20000000        0000        0010     40000     7000110     13000    750000    323001   1073001
+3  10600        0010    30000010    11000000        0000        00     2000000        00   1050000    210000   1260000
+3  10700        0010      300000        0000        0000        00     2600000        00        00     29000     29000
+3  10800        0010     9000000        0010    12000010    250001     8000010     40000    650000    580001   1230001
+3  10900        0010      800010     1500000        0010      1400     5000000        00    190000     44400    234400
+3  11000        0010    14200000        0000        0010     20001        0000        00    170000    162001    332001
+3  11100        0010    30000000        0000        0000        00     8000000        00    400000    380000    780000
+3  11200        0010     1400100        0000        0000        00     2000000        00    350000     34001    384001
+3  11300        0000        0000        0000        0000        00        0000        00        00        00        00
+3  11400        0000        0000        0000        0000        00        0000        00        00        00        00
+3  11500        0010    15000100        0000        0000        00     3000010     50001    850000    230001   1080001
+3  11600        0010   382000100        0010    40000000        00     5000000        00    450000   4270001   4720001
+3  11700        0010      500100        0000        0000        00      900010   1000001    800000   1014001   1814001
+3  11800        0010    40000100        0000        0010   3000001     2000010   1250001    550000   4670001   5220001
+3  11900        0010       15010      200000        0000        00      600000        00        00      4150      4150
+3  12000        0000        0000        0000        0000        00        0000        00    140000        00    140000
+3  12100        0010      800010       37010    30000000        00     2000000        00    700000    327630   1027630
+3  12200        0010      350010     5500000        0000        00     3500000        00        00    -16500    -16500
+3  12300        0010     4200000        0010     9000000        00     3000000        00        00    162000    162000
+3  12400        0000        0000        0000        0000        00     5000100        00    100000     50001    150001
+3  12500        0000        0000        0000        0000        00        0000        00    324080        00    324080
+3  12600        0000        0010      500000        0000        00        0000        00     20000     -5000     15000
+3  12700        0010       20010     3000010     2000010     54000     6000010     60001        00    164201    164201
+3  12800        0010     3975010     3180010    19875010     27830    19875010    159000    333900    592280    926180
+3  12900        0000        0010      400000        0000        00     3400000        00        00     30000     30000
+3  13010    50000010    50000000        0000        0010   1000000    14000010    100000   1000000   2240000   3240000
+3  13100        0010    12000110     3000000        0000        00    32000000        00    900000    410001   1310001
+3  13200        0010     1500000        0000        0010    400000    10000000        00        00    515000    515000
+3  13300        0000        0010     4000000        0010      5000     8000000        00        00     45000     45000
+3  13400        0010       25010     1074000        0000        00      243000        00        00     -8060     -8060
+3  13500        0010     8116010      633000        0000        00    26783000        00    446380    342660    789040
+3  13600        0000        0010     1430000        0000        00        0000        00    200000    -14300    185700
+3  13700        0000        0000        0000        0000        00        0000        00        00        00        00
+3  13810    50000110    78000000        0000        0000        00     7000010     30000    650000   1380001   2030001
+3  13900        0010     8341000        0000        0000        00        0010      5001        00     88411     88411
+3  14000        0010    28000000        0010    10000000        00     7000010    130000    489000    580000   1069000
+3  14100        0000        0000        0000        0000        00     1000000        00     20000     10000     30000
+3  14210   500000110    45000000        0000        0010    250001     2000010     13000        00   5733001   5733001
+3  14300        0000        0000        0000        0000        00        0000        00        00        00        00
+3  14400        0010     9000010     6000000        0000        00    10000000        00    450000    130000    580000
+3  14500        0000        0000        0000        0000        00      700000        00        00      7000      7000
+3  14600        0010     2200010      120000        0010    250000    20000010    450001    470000    920801   1390801
+3  14700        0000        0010     2900000        0000        00      900000        00        00    -20000    -20000
+3  14800        0010     3500000        0000        0000        00     5000000        00    875000     85000    960000
+3  14900        0010      300010     1000000        0000        00     2700010      8000        00     28000     28000
+3  15000        0010    10000010    12000010    40000010     60000     8000010     30000   1408650    550000   1958650
+3  15100        0010    10000100        0000        0000        00     1000000        00        00    110001    110001
+3  15200        0000        0010     4000000        0000        00        0000        00    575000    -40000    535000
+3  15300        0000        0000        0000        0000        00        0000        00        00        00        00
+3  15400        0000        0010     1000000        0000        00        0000        00        00    -10000    -10000
+3  15500        0010      500000        0000        0000        00        0000        00    150000      5000    155000
+3  15600        0000        0000        0000        0000        00      350000        00        00      3500      3500
+3  15700        0010       10100        0000        0000        00     5000000        00    220000     50101    270101
+3  15800        0010     7000110     3000100        0000        00     7500100        00    380000    115001    495001
+3  15900        0010    30000010     2000000        0010     15000     8000010     25000    293000    400000    693000
+3  16010    75000010     9000010      600010    40000010    100001    18000000        00    830000   1514001   2344001
+3  16100        0010    10000000        0000        0000        00     9500000        00    600000    195000    795000
+3  16200        0000        0000        0000        0000        00     3000000        00        00     30000     30000
+3  16300        0010     2000000        0000        0000        00     8500100        00    400000    105001    505001
+3  16410   150000110    20000100        0000        0000        00      150110    350001    667860   2051501   2719361
+3  16500        0010     2000010    10000000        0010   1500000     3000000        00    450000   1450000   1900000
+3  16600        0000        0000        0000        0000        00        0000        00        00        00        00
+3  16700        0000        0000        0000        0000        00        0000        00        00        00        00
+3  16800        0010      250000        0000        0000        00        0000        00        00      2500      2500
+3  16900        0000        0000        0000        0000        00        0000        00        00        00        00
+3  17000        0010      800010     2000000        0010      5000     4000000        00    450000     33000    483000
+3  17100        0010    27000010      150000        0000        00    20000010     70000    890000    538500   1428500
+3  17200        0010     2000010     1000000        0000        00     1000000        00    100000     20000    120000
+3  17300        0010     4000010     2000000        0000        00     9000000        00    240000    110000    350000
+3  17400        0010     2300000        0000        0010     10000     4000000        00     80000     73000    153000
+3  17500        0010    48000100        0010    35000100        00        0000        00    750000    830001   1580001
+3  17600        0010     3000010     1000000        0010   1700000     9000010    800000   3010000   2610000   5620000
+3  17700        0000        0010     3500000        0000        00     7500000        00        00     40000     40000
+3  17800        0010     7100000        0000        0010     39900     2000000        00        00    130900    130900
+3  17900        0000        0010     1000010    65000000        00    23000000        00   1740000    870000   2610000
+3  18000        0010   120000000        0010     7000000        00    20000000        00   1800000   1470000   3270000
+3  18100        0010     4000010      200000        0000        00     7500000        00    550000    113000    663000
+3  18200        0010     6000000        0000        0000        00     4000000        00    500000    100000    600000
+3  18300        0010    38000000        0000        0010     15000     3000010     13001    275000    438001    713001
+3  18400        0010     5000000        0010   200000010     30000     4000000        00    770000   2120000   2890000
+3  18510    12500010     1000010     7000000        0010     60000    12000010     10000    850000    255000   1105000
+3  18610     3000010     3000010     4000000        0010    100000     3000000        00     90000    150000    240000
+3  18700        0010      175010     8000000        0000        00      200000        00        00    -76250    -76250
+3  18800        0010     2500010      500010     5475000        00     5000010     50000    660000    174750    834750
+3  18900        0000        0010     3000000        0000        00        0000        00        00    -30000    -30000
+3  19000        0010    15000010      300000        0010    150000    27000010    300000   1690500    867000   2557500
+3  19100        0000        0010     5000000        0000        00        0000        00        00    -50000    -50000
+3  19200        0010     3000010     2000000        0000        00     3000000        00     60000     40000    100000
+3  19300        0010     2000000        0000        0000        00    24240010       500    330000    262900    592900
+3  19400        0010      500010     6900000        0010     35000     3000000        00    450000      1000    451000
+3  19500        0010    14600010    15000000        0010    600000     4300000        00    222000    639000    861000
+3  19600        0010    35000110      500000        0010     20001      200010      7500    310000    374501    684501
+3  19700        0010    10000010     2000000        0000        00     7000010     50000    500000    200000    700000
+3  19800        0010      500010     1200000        0000        00     4000000        00    120000     33000    153000
+3  19900        0010     6000000        0010     6000010    300000     2000010    200000    120000    640000    760000
+3  20000        0000        0000        0000        0000        00        0000        00        00        00        00
diff --git a/inst/extdata/zip_dir/fam1968.zip b/inst/extdata/zip_dir/fam1968.zip
new file mode 100644
index 0000000..5dfd1e2
Binary files /dev/null and b/inst/extdata/zip_dir/fam1968.zip differ
diff --git a/man/convert_from_rds.Rd b/man/convert_from_rds.Rd
new file mode 100644
index 0000000..ffd9657
--- /dev/null
+++ b/man/convert_from_rds.Rd
@@ -0,0 +1,26 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/7convert_from_rdata.R
+\name{convert_from_rds}
+\alias{convert_from_rds}
+\title{Export PSID files to another statistical language}
+\usage{
+convert_from_rds(language, in_direc, out_direc)
+}
+\arguments{
+\item{language}{Language to export PSID .rds files into (options include SPSS, SAS, and STATA)}
+
+\item{in_direc}{Directory of PSID .rds files to export. Note that large files can take a long time to export.}
+
+\item{out_direc}{Directory for exported files to be placed}
+}
+\description{
+Exports all .rds files in the chosen directory into a common file format used by one of three other statistical programming languages (SPSS, SAS, and STATA). Unlike most alternatives, this function retains all variable labels provided by the PSID.
+}
+\examples{
+convert_from_rds(
+    language="STATA", 
+    in_direc=system.file("extdata","rds_dir", package = "easyPSID"),
+    out_direc=tempdir()
+)
+}
+\keyword{PSID}
diff --git a/man/convert_to_rds.Rd b/man/convert_to_rds.Rd
new file mode 100644
index 0000000..5ca9c42
--- /dev/null
+++ b/man/convert_to_rds.Rd
@@ -0,0 +1,23 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/2convert_to_rds.R
+\name{convert_to_rds}
+\alias{convert_to_rds}
+\title{Convert all PSID files from .txt format to .rds format}
+\usage{
+convert_to_rds(in_direc, out_direc)
+}
+\arguments{
+\item{in_direc}{Directory containing unzipped PSID .txt and .do files}
+
+\item{out_direc}{Directory to place PSID .rds files into}
+}
+\description{
+Converts all PSID fixed width format .txt files in a selected directory into .rds format. Importantly, this function assumes that all files contained in the original PSID .zip files (especially those ending in .do) are present in the same directory as the PSID .txt files, and that all files within that directory have the same names as when first unzipped.
+}
+\examples{
+convert_to_rds(
+    in_direc=system.file("extdata","unzip_dir", package = "easyPSID"),
+    out_direc=tempdir()
+)
+}
+\keyword{PSID}
diff --git a/man/create_custom_panel.Rd b/man/create_custom_panel.Rd
new file mode 100644
index 0000000..7dc7f59
--- /dev/null
+++ b/man/create_custom_panel.Rd
@@ -0,0 +1,30 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/5create_custom_panel.R
+\name{create_custom_panel}
+\alias{create_custom_panel}
+\title{Create custom longitudinal (panel) dataset with PSID Family Files}
+\usage{
+create_custom_panel(var_names, in_direc, out_direc)
+}
+\arguments{
+\item{var_names}{Variable names to include in custom longitudinal dataset (as vector of strings)}
+
+\item{in_direc}{Directory of PSID .rds to use for custom longitudinal dataset}
+
+\item{out_direc}{Directory to place resulting longitudinal dataset into}
+}
+\description{
+Uses the longitudinal PSID Family Files to create a custom longitudinal dataset in long format based on all PSID .rds Family files in a selected directory.
+
+This function can work with data that has been renamed via the rename_fam_vars function or data just converted to .rds format via the convert_to_rds function. It will creates NAs for years when a given variable was not available, and creates a new variable ("Year") to specify the panel of data included in the custom dataset. If a provided variable exists in other waves of the family files under a different name, all waves of that variable will be included in the resulting dataset.
+
+To create a longitudinal family file of the PSID with all variables in the PSID Family Files, it is recommended that one uses the create_extract function instead. However, such a file can be very large when using many waves of the PSID. Users with more than five waves of the PSID Family Files are highly recommended to avoid creating a longitudinal dataset with all unique Family File variables.
+}
+\examples{
+create_custom_panel(
+   var_names = c("V534", "V442", "V398"),
+   in_direc=system.file("extdata","rds_dir", package = "easyPSID"),
+   out_direc=tempdir()
+)
+}
+\keyword{PSID}
diff --git a/man/create_extract.Rd b/man/create_extract.Rd
new file mode 100644
index 0000000..cf7dd0d
--- /dev/null
+++ b/man/create_extract.Rd
@@ -0,0 +1,28 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/6create_extract.R
+\name{create_extract}
+\alias{create_extract}
+\title{Create subset of common family file variables in long format}
+\usage{
+create_extract(in_direc, out_direc, num_vars = 500, all_years = F)
+}
+\arguments{
+\item{in_direc}{Directory containing waves of the Family Files in .rds format}
+
+\item{out_direc}{Directory to place export file into}
+
+\item{num_vars}{Number of variables to include in export dataset (default = 500). High variable counts with many waves of data require a significant amount of RAM, and may cause this function to throw errors if a computer's RAM is insufficient}
+
+\item{all_years}{Select most common variables based on all years of the PSID rather than based in the data actually supplied}
+}
+\description{
+Creates an extract dataset in long format consisting of the 500 most frequently reoccurring PSID Family Variables across all supplied waves of the PSID.
+}
+\examples{
+create_extract(
+    in_direc=system.file("extdata","rds_dir", package = "easyPSID"),
+    out_direc=tempdir(),
+    num_vars=25,
+)
+}
+\keyword{PSID}
diff --git a/man/easyPSID-package.Rd b/man/easyPSID-package.Rd
new file mode 100644
index 0000000..23ac76d
--- /dev/null
+++ b/man/easyPSID-package.Rd
@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PSID_Package.Documentation_function.R
+\docType{package}
+\name{easyPSID-package}
+\alias{easyPSID}
+\alias{easyPSID-package}
+\title{easyPSID: Reading, Formatting, and Organizing the Panel Study of Income Dynamics (PSID)}
+\description{
+Provides various functions for reading and preparing the Panel Study of Income Dynamics (PSID) for longitudinal analysis, including functions that read the PSID's fixed width format files directly into R, rename all of the PSID's longitudinal variables so that recurring variables have consistent names across years, simplify assembling longitudinal datasets from cross sections of the PSID Family Files, and export the resulting PSID files into file formats common among other statistical programming languages ('SAS', 'STATA', and 'SPSS').
+}
+\details{
+This package is designed for use with the PSID's packaged data Family Files, available at https://simba.isr.umich.edu/. See easyPSID's readme at https://github.com/BrianAronson/easyPSID/blob/master/README.md for a more detailed overview and guide for using this package.
+}
+\author{
+\strong{Maintainer}: Brian Aronson \email{bdaronson@gmail.com}
+
+}
diff --git a/man/find_description.Rd b/man/find_description.Rd
new file mode 100644
index 0000000..a2a6e93
--- /dev/null
+++ b/man/find_description.Rd
@@ -0,0 +1,18 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/10find_desc.R
+\name{find_description}
+\alias{find_description}
+\title{Find description of PSID variable}
+\usage{
+find_description(variables)
+}
+\arguments{
+\item{variables}{Variable names to look up (as individual string or vector of strings)}
+}
+\description{
+Finds the descriptions of selected PSID variables.
+}
+\examples{
+find_description(variables=c("V2","V30"))
+}
+\keyword{PSID}
diff --git a/man/find_name.Rd b/man/find_name.Rd
new file mode 100644
index 0000000..2e1013f
--- /dev/null
+++ b/man/find_name.Rd
@@ -0,0 +1,20 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/8find_name.R
+\name{find_name}
+\alias{find_name}
+\title{Lookup new longitudinal variables names}
+\usage{
+find_name(variable, var_year = TRUE)
+}
+\arguments{
+\item{variable}{Variable to look up}
+
+\item{var_year}{Report year when renamed variable first entered the PSID dataset (default=TRUE)}
+}
+\description{
+Finds the new name of any longitudinal variable in the PSID Family Files or Individual files following implementation of the rename_fam_vars and rename_ind_vars functions.
+}
+\examples{
+find_name(variable="V1244",var_year=FALSE)
+}
+\keyword{PSID}
diff --git a/man/find_years.Rd b/man/find_years.Rd
new file mode 100644
index 0000000..03acf3f
--- /dev/null
+++ b/man/find_years.Rd
@@ -0,0 +1,20 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/9find_years.R
+\name{find_years}
+\alias{find_years}
+\title{Find years of PSID variable}
+\usage{
+find_years(variable, var_names = TRUE)
+}
+\arguments{
+\item{variable}{Variable name to look up}
+
+\item{var_names}{Report names for longitudinal PSID variable across years (default=TRUE)}
+}
+\description{
+Finds the years and corresponding variable names for any longitudinal PSID variable in the PSID Family Files and Individual file.
+}
+\examples{
+find_years(variable="V3",var_names=FALSE)
+}
+\keyword{PSID}
diff --git a/man/rename_fam_vars.Rd b/man/rename_fam_vars.Rd
new file mode 100644
index 0000000..8d5cfa8
--- /dev/null
+++ b/man/rename_fam_vars.Rd
@@ -0,0 +1,23 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/3rename_fam_vars.R
+\name{rename_fam_vars}
+\alias{rename_fam_vars}
+\title{Rename longitudinal Family File variables}
+\usage{
+rename_fam_vars(in_direc, out_direc)
+}
+\arguments{
+\item{in_direc}{Directory of PSID .rds files to rename}
+
+\item{out_direc}{Directory for renamed PSID .rds files to be saves to. Warning: If no directory specified, this function will overwrite the Family Files in the current directory.}
+}
+\description{
+Renames all longitudinal variables in every PSID Family File of a given directory, such that variables are labeled with the variable name used when the variable was first made available in the PSID. For example, the "Release Number" variable was first recorded in the PSID dataset in 1968 as variable "V1" but its name in the 1969 family file is "V441". This program changes the "Release Number" variable name to "V1" in 1968 and all subsequent waves.
+}
+\examples{
+rename_fam_vars(
+    in_direc=system.file("extdata","rds_dir", package = "easyPSID"),
+    out_direc=tempdir()
+)
+}
+\keyword{PSID}
diff --git a/man/rename_ind_vars.Rd b/man/rename_ind_vars.Rd
new file mode 100644
index 0000000..63f5dd2
--- /dev/null
+++ b/man/rename_ind_vars.Rd
@@ -0,0 +1,31 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/4rename_ind_vars.R
+\name{rename_ind_vars}
+\alias{rename_ind_vars}
+\title{Renames longitudinal Cross-year Individual variables and saves in long format}
+\usage{
+rename_ind_vars(in_direc, out_direc, only_long_vars = F,
+  cust_vars = NULL)
+}
+\arguments{
+\item{in_direc}{Directory of PSID Cross-year Individual file .rds file}
+
+\item{out_direc}{Directory for renamed and transformed PSID Cross-year Individual file to be saved to}
+
+\item{only_long_vars}{Keep only longitudinal variables in dataset}
+
+\item{cust_vars}{Custom variables to keep in dataset (as character vector). Output will always include "ER30001", "fam_id_68", and "Year"}
+}
+\description{
+Renames all repeated variables in the Cross-year Individual file so that matching variables across waves have the same name, and transforms the resulting dataset into long format. The longitudinal file does not include rows for respondents who were missing in a given wave, and cross-sectional variables are marked as NA during waves when they were not asked. In addition, the resulting file adds two variables for ease of use: "Year" and "fam_id_68". 
+
+This function may require up to 8gb of RAM, and will likely throw "cannot allocate memory" errors to users with less RAM on their computer. Users with memory issues should implement the "only_long_vars" or "cust_vars" options.
+}
+\examples{
+rename_ind_vars(
+   only_long_vars=TRUE, 
+   in_direc=system.file("extdata","rds_dir", package = "easyPSID"),
+   out_direc=tempdir()
+)
+}
+\keyword{PSID}
diff --git a/man/unzip_all_files.Rd b/man/unzip_all_files.Rd
new file mode 100644
index 0000000..48aa7c3
--- /dev/null
+++ b/man/unzip_all_files.Rd
@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/1unzip_all_files.R
+\name{unzip_all_files}
+\alias{unzip_all_files}
+\title{Unzip all PSID files}
+\usage{
+unzip_all_files(in_direc, out_direc)
+}
+\arguments{
+\item{in_direc}{Directory of .zip files to be unzipped}
+
+\item{out_direc}{Directory for unzipped PSID files to be placed}
+}
+\description{
+Unzips all .zip_files files in the specified directory.
+}
+\keyword{PSID}