**I am still new with RStudio, i will appreciate if someone give me an idea**

```
setwd("~/lastversion_gwas_analysis/F_95/trial/")
source("gwas.r")
source("emma.r")
source("plots_gwas.r")
source('~/lastversion_gwas_analysis/f95_gwas.r')
#load Y values
temp = list.files(pattern="*.csv")
for (i in 1:length(temp)) assign(temp[i], read.csv(temp[i]))
#i can just put one .csv file as a Y value inside f95_gwas() r file.
Y<- AT5G66980_AT4G10370.csv
Y[,1]<-as.numeric(Y[,1])
Y[,2]<-as.numeric(Y[,2])
f95_gwas(Y) #in this command gwas is running'''
#in here i tried to to put into list then call them separetly but i didnt find any solution yet. i need to use this for thousand differnt .csv file and put separelty inside f95_gwas () as a Y value
library(tidyverse)
library(fs)
source("gwas.r")
source("emma.r")
source("plots_gwas.r")
source('~/lastversion_gwas_analysis/f95_gwas.r')
setwd("~/lastversion_gwas_analysis/F_95/trial/")
file_paths<-fs::dir_ls("~/lastversion_gwas_analysis/F_95/trial/")
file_paths
##for loop
Y <- list()
for(i in seq_along(file_paths)){
Y[[i]]<-read_csv(
file=file_paths[[i]]
)
}
Y<-set_names(Y, file_paths)
for (i in 1:length(Y))
{
f95_gwas(Y[i]) #in this command gwas is running
}
```