Ggtcf

Can I rely on these GitHub repository files?

Female=gender counterpart?

Who must act to prevent Brexit on March 29th?

Are Warlocks Arcane or Divine?

Could solar power be utilized and substitute coal in the 19th century?

Visiting the UK as unmarried couple

Blender - show edges angles “direction”

What is the term when two people sing in harmony, but they aren't singing the same notes?

Is it possible to build a CPA Secure encryption scheme which remains secure even when the encryption of secret key is given?

Should my PhD thesis be submitted under my legal name?

Why isn't KTEX's runway designation 10/28 instead of 9/27?

Superhero words!

Giant Toughroad SLR 2 for 200 miles in two days, will it make it?

The most efficient algorithm to find all possible integer pairs which sum to a given integer

What was required to accept "troll"?

Can somebody explain Brexit in a few child-proof sentences?

What is Sitecore Managed Cloud?

Simulating a probability of 1 of 2^N with less than N random bits

Freedom of speech and where it applies

Greatest common substring

Is infinity mathematically observable?

How to deal with or prevent idle in the test team?

What should I use for Mishna study?

Lifted its hind leg on or lifted its hind leg towards?

Looping through several datasets

How to import multiple .csv files at once?C# loop - break vs. continueAccessing the index in 'for' loops?How do I loop through or enumerate a JavaScript object?JavaScript closure inside loops – simple practical exampleHow do I break out of nested loops in Java?Iterate through a HashMapLooping through the content of a file in BashLoop through an array in JavaScriptIterate through object propertiesLooping through array and removing items, without breaking for loop

0

My issue is as follows - I have 100 datasets saved in the folder, the datasets are called dat1.csv - dat100.csv. I would like to perform regression on each of them. So far I have used following loop to do that:

cesta_data = gsub(pattern = "\\","/",readline())
\srv332nt332dataR_ProjectREGRESEVSTUP

listova<-list.files(cesta_data)

for (i in 1:length(listova))
 data<-read.csv2(paste(cesta_data,"/",listova[i],sep=""),header=TRUE) 
 formula1<-as.formula(anuita~KH) 
 regrese<-lm(formula = formula1, data = data) 
 a<-regrese$coefficients 

Each loop I upload the csv file, perform the regression and save the results (which is not included in the example of the code).

Is there a way how to create an "object" with R datasets that I can loop through ?
Something like this:

cesta_data = gsub(pattern = "\\","/",readline())
\srv332nt332dataR_ProjectREGRESEVSTUP

listova<-list.files(cesta_data)

for (i in 1:length(listova))
 DATA[i]<-read.csv2(paste(cesta_data,"/",listova[i],sep=""),header=TRUE) 
 formula1<-as.formula(anuita~KH) 
 regrese<-lm(formula = formula1, data = DATA[i]) 
 a<-regrese$coefficients 

Thank you a lot for any suggestions.

EDIT: I have created the following solution, which works fine:

listDat<-list.files(cesta_data) #all the files in the folder

 my_data_list<-list() 
 for (i in seq_along(listDat))
 my_data_list[[i]] = read.csv2(paste(cesta_data,"/",listDat[i],sep=""), header = TRUE) 
 

 for (i in seq_along(listDat))
 regrese<-lm(formula = anuita~KH, data = my_data_list[[i]])
 a<-regrese$coefficients
 

r loops dataset

share|improve this question

edited Mar 8 at 12:20

jiri jansa

asked Mar 8 at 8:09

jiri jansajiri jansa

991211

• 
  
  
  

  
  4
  

  
  
  
  
  
  

  
  
  Take a look at How to import multiple .csv files at once?
  
  – markus
  Mar 8 at 8:13
  

  
  
  
  


• 
  
  
  

  
  3
  

  
  
  
  
  
  

  
  
  Use lapply instead of your loops. You can use it to first create a list of data frames, and then a list of regression etc.
  
  – George
  Mar 8 at 8:25
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Looks like a case for purrr with map, particularly map_df
  
  – p0bs
  Mar 8 at 8:55
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  thank you for all the suggestions, I have solved it through a list
  
  – jiri jansa
  Mar 8 at 12:22
  

  
  
  
  

add a comment | 

0

My issue is as follows - I have 100 datasets saved in the folder, the datasets are called dat1.csv - dat100.csv. I would like to perform regression on each of them. So far I have used following loop to do that:

cesta_data = gsub(pattern = "\\","/",readline())
\srv332nt332dataR_ProjectREGRESEVSTUP

listova<-list.files(cesta_data)

for (i in 1:length(listova))
 data<-read.csv2(paste(cesta_data,"/",listova[i],sep=""),header=TRUE) 
 formula1<-as.formula(anuita~KH) 
 regrese<-lm(formula = formula1, data = data) 
 a<-regrese$coefficients 

Each loop I upload the csv file, perform the regression and save the results (which is not included in the example of the code).

Is there a way how to create an "object" with R datasets that I can loop through ?
Something like this:

cesta_data = gsub(pattern = "\\","/",readline())
\srv332nt332dataR_ProjectREGRESEVSTUP

listova<-list.files(cesta_data)

for (i in 1:length(listova))
 DATA[i]<-read.csv2(paste(cesta_data,"/",listova[i],sep=""),header=TRUE) 
 formula1<-as.formula(anuita~KH) 
 regrese<-lm(formula = formula1, data = DATA[i]) 
 a<-regrese$coefficients 

Thank you a lot for any suggestions.

EDIT: I have created the following solution, which works fine:

listDat<-list.files(cesta_data) #all the files in the folder

 my_data_list<-list() 
 for (i in seq_along(listDat))
 my_data_list[[i]] = read.csv2(paste(cesta_data,"/",listDat[i],sep=""), header = TRUE) 
 

 for (i in seq_along(listDat))
 regrese<-lm(formula = anuita~KH, data = my_data_list[[i]])
 a<-regrese$coefficients
 

r loops dataset

share|improve this question

edited Mar 8 at 12:20

jiri jansa

asked Mar 8 at 8:09

jiri jansajiri jansa

991211

• 
  
  
  

  
  4
  

  
  
  
  
  
  

  
  
  Take a look at How to import multiple .csv files at once?
  
  – markus
  Mar 8 at 8:13
  

  
  
  
  


• 
  
  
  

  
  3
  

  
  
  
  
  
  

  
  
  Use lapply instead of your loops. You can use it to first create a list of data frames, and then a list of regression etc.
  
  – George
  Mar 8 at 8:25
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Looks like a case for purrr with map, particularly map_df
  
  – p0bs
  Mar 8 at 8:55
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  thank you for all the suggestions, I have solved it through a list
  
  – jiri jansa
  Mar 8 at 12:22
  

  
  
  
  

add a comment | 

My issue is as follows - I have 100 datasets saved in the folder, the datasets are called dat1.csv - dat100.csv. I would like to perform regression on each of them. So far I have used following loop to do that:

cesta_data = gsub(pattern = "\\","/",readline())
\srv332nt332dataR_ProjectREGRESEVSTUP

listova<-list.files(cesta_data)

for (i in 1:length(listova))
 data<-read.csv2(paste(cesta_data,"/",listova[i],sep=""),header=TRUE) 
 formula1<-as.formula(anuita~KH) 
 regrese<-lm(formula = formula1, data = data) 
 a<-regrese$coefficients 

Each loop I upload the csv file, perform the regression and save the results (which is not included in the example of the code).

Is there a way how to create an "object" with R datasets that I can loop through ?
Something like this:

cesta_data = gsub(pattern = "\\","/",readline())
\srv332nt332dataR_ProjectREGRESEVSTUP

listova<-list.files(cesta_data)

for (i in 1:length(listova))
 DATA[i]<-read.csv2(paste(cesta_data,"/",listova[i],sep=""),header=TRUE) 
 formula1<-as.formula(anuita~KH) 
 regrese<-lm(formula = formula1, data = DATA[i]) 
 a<-regrese$coefficients 

Thank you a lot for any suggestions.

EDIT: I have created the following solution, which works fine:

listDat<-list.files(cesta_data) #all the files in the folder

 my_data_list<-list() 
 for (i in seq_along(listDat))
 my_data_list[[i]] = read.csv2(paste(cesta_data,"/",listDat[i],sep=""), header = TRUE) 
 

 for (i in seq_along(listDat))
 regrese<-lm(formula = anuita~KH, data = my_data_list[[i]])
 a<-regrese$coefficients
 

r loops dataset

share|improve this question

edited Mar 8 at 12:20

jiri jansa

asked Mar 8 at 8:09

jiri jansajiri jansa

991211

cesta_data = gsub(pattern = "\\","/",readline())
\srv332nt332dataR_ProjectREGRESEVSTUP

listova<-list.files(cesta_data)

for (i in 1:length(listova))
 data<-read.csv2(paste(cesta_data,"/",listova[i],sep=""),header=TRUE) 
 formula1<-as.formula(anuita~KH) 
 regrese<-lm(formula = formula1, data = data) 
 a<-regrese$coefficients 

cesta_data = gsub(pattern = "\\","/",readline())
\srv332nt332dataR_ProjectREGRESEVSTUP

listova<-list.files(cesta_data)

for (i in 1:length(listova))
 DATA[i]<-read.csv2(paste(cesta_data,"/",listova[i],sep=""),header=TRUE) 
 formula1<-as.formula(anuita~KH) 
 regrese<-lm(formula = formula1, data = DATA[i]) 
 a<-regrese$coefficients 

listDat<-list.files(cesta_data) #all the files in the folder

 my_data_list<-list() 
 for (i in seq_along(listDat))
 my_data_list[[i]] = read.csv2(paste(cesta_data,"/",listDat[i],sep=""), header = TRUE) 
 

 for (i in seq_along(listDat))
 regrese<-lm(formula = anuita~KH, data = my_data_list[[i]])
 a<-regrese$coefficients
 

share|improve this question

edited Mar 8 at 12:20

jiri jansa

asked Mar 8 at 8:09

jiri jansajiri jansa

991211

share|improve this question

edited Mar 8 at 12:20

jiri jansa

asked Mar 8 at 8:09

jiri jansajiri jansa

991211

asked Mar 8 at 8:09

jiri jansajiri jansa

991211

asked Mar 8 at 8:09

jiri jansajiri jansa

991211