How to do double "for loop" (first for files, second for datas in files) in R -

-

i've started r, i'm self-taught person , have problem loop. looking answers can't find anything.

i've got lot of files different names , i've got lot datas in 1 file. made loop 1 file , works - it's (but has more calculations):

12bielawica9.txt looks like

na  na  na  0.002   0.002   na  na  na  na  na  na  na  na  na  na  na  na  na  na na  na  na  0.008   0.006   na  na  na  na  na  na  na  na  na  na  na  na  na  na

but it's more bigger

it contains results of researches, that's why there's lot of nas. looks different reasearches....(there's less nas) wrote in r 

dane = dane = read.table("12bielawica9.txt", header=t)  (i in dane) {     x = sd(i, na.rm=t)     y = length (na.omit(i))     if (y == 0) {         cat(file="12bielawica9.txt", append=t, (paste("-","\t")))     } else if (x == "0") {         cat(file="12bielawica9.txt", append=t, paste(format(mean(i, na.rm=t) - mean(i, na.rm=t), digits=5), "\t"))     } else {         cat(file="12bielawica9.txt", append=t, paste(format(t.test(na.omit(i), conf.level=0.90)$conf.int - mean(i, na.rm=t), digits=5), "\t"))     } }

first of i'd create loop files, when made loop like:

myfiles <- list.files(pattern=".*txt") (j in 1:length(myfiles)) {     (i in myfiles[j]) {         #loop above     } }

and now, list.files returns every file (like 12bielawica.txt), on need make calculations. clear?

r return 1 result every file (like conjuction). i'd achieve result matrixes every file (like first loop ). don't know how write new file automaticaly...

i hope understand mean. don't strict me, please.

you're close. in question, thing right before first (inner) loop read in file.

dane = read.table("12bielawica9.txt", header=t)

and loop refers (for (i in dane)). still need read stuff when wrap in outer loop:

myfiles <- list.files(pattern=".*txt")  (j in 1:length(myfiles)) {     this_file <- read.table(myfiles[j], header = t)     (i in this_file) {         #loop above     } }

should make loop work.

you want store output in matrix or something. should initialize empty matrix store results, , have inner loop insert results. like

results_mat <- matrix(na, nrow = 2, ncol = length(myfiles)) ## 1st row x, second row y, 1 column per file

then change inner loop 

for (i in dane) {     x = sd(i, na.rm=t)     y = length (na.omit(i))     results_mat[, j] <- c(x, y) }

you can, of course, expand more rows of results... i'll leave you. can colnames(results_mat) <- myfiles can tell results correspond files.


Comments

Post a Comment

Popular posts from this blog

c# - How Configure Devart dotConnect for SQLite Code First? -

-
can configure following sample code ? when run following code, error : no entity framework provider found ado.net provider invariant name 'devart.data.sqlite' setting in machine.config <system.data> <dbproviderfactories> <add name="dotconnect sqlite" invariant="devart.data.sqlite" description="devart dotconnect sqlite" type="devart.data.sqlite.sqliteproviderfactory, devart.data.sqlite, version=4.6.287.0, culture=neutral, publickeytoken=09af7300eec23701" /> </dbproviderfactories> </system.data> after add below block code in app.config <?xml version="1.0"?> <configuration>   <configsections> <!-- more information on entity framework configuration, visit http://go.microsoft.com/fwlink/?linkid=237468 --> <section name="entityframework" type="system.data.entity.internal.configfile.entityframeworksection, entit...
Read more

c++ - Clear the memory after returning a vector in a function -

-
i have function processes , stores lot of data in , returns results vector of class. amount of data stored in function tremendous , want clear storage memory of function after finished job. necessary (does function automatically clear memory) or should clear memory function? update: vector<customers> process(char* const *filename, vector<int> id) { vector<customers> list_of_customers; (perform actions) return list_of_customers; } variables defined locally within function automatically released @ end of function scope. destructors objects called, should free memory allocated objects (if objects coded correctly). example of such object std::vector . anything you've allocated new must have corresponding delete release storage. try avoid doing own allocation , use raii instead, i.e. containers or smart pointers.
Read more

erlang - Saving a digraph to mnesia is hindered because of its side-effects -

-
updated the digraph library in erlang implements data type side-effectful. each operation on data type saves new state in ets table -- instead of returning altered version of itself, more common in functional languages. the problem usage perspective, impedes effort store or pass around state in convenient way requiring me first "collect" state before can start juggle around. the closest solution have seen far serializer/deserializer , these have drawback tied current structure of digraphs instead of operating on abstract type -- prevents future proof solution. update pascal pointed out serializer utilizes interface of digraph, , hence eliminates drawback mentioned above. better, albeit still inconvenient, see no better alternative. what recommendation on how store digraphs? should go different data type altogether? thanks. i not sure understand concern. fact digraph stored in ets transparent in user interface, might want chnge either exchange digr...
Read more