# Delete 1st rows of forceps EXPORTS

################################################################################

# 1. LOAD DATA ----

# select folder
dirs <- "PYR18"
dirs

# list files
files <- list.files(getwd(), full.names = FALSE, recursive = T, pattern = dirs)
files

# complete_export_list <- 
  # lapply(files, read.csv, sep = "\t")


for (i in 1:length(files)) {
  print(i)
  write.table(
    read.delim(files[i], comment.char = '#', header = F, fill = T),
    file = files[i],
    row.names = FALSE,
    col.names = FALSE,
    sep = "\t"
    )

}