search for: ncolumn

...the desired result, still needs some more vectorizing; in particular, I can't figure out how could one modify the element of a matrix using apply on a different matrix... To produce the above outcome, I use: > all.expr(LETTERS[1:3]) "all.expr" <- function(column.names) { ncolumns <- length(column.names) return.matrix <- matrix(NA, nrow=(3^ncolumns - 1), ncol=ncolumns) colnames(return.matrix) <- column.names rownames(return.matrix) <- 1:nrow(return.matrix) start.row <- 1 all.combn <- sapply(1:ncolumns, function(idx) {...

...) but only for a reasonable number of rows. I am searching for: - ways to improve my code (if possible) - ideas: create a C code for the slow parts of the code? use MySQL? other ways? As a toy example, having an input matrix called "input", my algorithm looks like this: ## code start ncolumns <- 6 input <- bincombinations(ncolumns) # from package e1071 # subset, let's say 97% of rows input <- input[sample(2^ncolumns, round(2^ncolumns*0.97, 0), ] minimized <- 1 while (sum(minimized) > 0) { minimized <- logical(nrow(input)) to.be.compared <- combn2(1:nro...

? stato filtrato un testo allegato il cui set di caratteri non era indicato... Nome: non disponibile Url: https://stat.ethz.ch/pipermail/r-help/attachments/20060604/a8854663/attachment.pl

Full_Name: Alexander Yephremov Version: R 2.6.2 GUI 1.23 (4932) (4932) OS: Mac OS X 10.4 Submission from: (NULL) (193.174.239.91) Hi! > array <- 0*1:50 > array [1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 > write(array, "array.file", sep=",") This is how array.file looks: 0,0,0,0,0 0,0,0,0,0 0,0,0,0,0

...Kurt's write.table. The issue really was to be able to "write a data.frame or matrix" such that read.table would reproduce it. write <- function(x, file = "data", ...) UseMethod("write") write.default <- function (x, file = "data", ncolumns = if (is.character(x)) 1 else 5, append = FALSE, ...) { if(is.matrix(x)) write.matrix(x, file=file, append= FALSE, ...) else write0.basic(x, file = file, ncolumns= ncolumns, append = append) } write0.basic <- function (x, file, ncolumns, append = FALSE) cat(x, file = file,...

...for signaled rows (the ones with 1) As a very fresh "programmer" I have build a simple function in R which should not be very efficient indeed! It works well for current-dimension matrices, but it just not goes so well in huge ones. meanprob<-function(Robj){ NLINE<-dim(Robj)[1]; NCOLUMN<-dim(Robj)[2]; mprob<-c(rep(0,(NCOLUMN-1))); for (i in 2:NCOLUMN){ sumprob<-0; pa<-0; for (j in 1:NLINE){ if(Robj[j,1]!=0){ pa<-pa+1; sumprob<-Robj[j,i]+sumprob; } } mprob[i-1]<-sumprob/pa; } retur...

...is below and it works fine. my only question is >there a way to tell the write statement that i want the data >to be written in a fixed format ( same number of spaces >betweewn character strings and numbers ) rather than written as it >is above ? i tried sep = " ", instead of ncolumns butt hat >just makde things worse. thanks. > >for (rownum in 1 (1:nrow(sortedForecastData)) { > >outfile=paste(forecsastfiledir,rownames(sortedForecastData[rownum],".mls",sep="") > >for colnum in (1:ncol(sortedForecastData) { > >if ( colnum == 1 ) {...

...anging variable? For instance. I generate random numbers in a loop and at each iteration I want data to write to file (I do not want to write everything in one file using 'append'): for (i in 1:50){ x<-matrix(runif(100, min=0,max=1),nrow=5,ncol=20) Write(t(x),file="Data_i.txt",ncolumns=5,sep="\t") } Of course file name Data_i.txt will be the same for changing i, unfortunately. Any suggestion would be appreciate Robert

...tead of files because of FEAR of reserved words!!! for(i in 1:length(flies)) { s <- flies[i] print(i) # print everything for debugging print(s) model <- load(s) print(model) z <- predict( model ,rclnow) ############## what will model be????? print(z) write( z, fname , append = TRUE, ncolumns = L) write( as.character(s) , filesused , append = TRUE, ncolumns = 1 ) } } THANKS for any help! Greg Allen

Readers, Scenario: data x consists of one column; 1 2 3 data y; 4 5 6 Is it possible to write to file such that the file is: 1,4 2,5 3,6 using the write.file function? I have tried the command: write(x,file="file.csv",ncolumns=1,append=TRUE,sep=",") write(y,file="file.csv",ncolumns=1,append=TRUE,sep=",") but the result is: 1 2 3 4 5 6 yours, rhelpatconference.jabber.org r 251 mandriva 2008

...to return the list into variables trial1,trial2,...trial10 is there a generic way to get this to happen i have a similar process that does the same thing to an external file: paste("connection", trial, ".net", sep="") -> outfile write(header, file=outfile, ncolumns=2) write("*Edges", file=outfile, append=TRUE) write(connection, file=outfile, ncolumns=2, append=TRUE) where trial progresses so that these outputs are written to connection1.net, coneection2.net and so forth i am having a tough time figuring out how to do the same for a variabl...

Hi I used write() the other day to save some results. It seems that write() does not record the full precision of the objects being written: > write(pi,file="~/f",ncolumns=1) > pi.saved <- scan("~/f") Read 1 item > dput(pi) 3.14159265358979 > dput(pi.saved) 3.141593 > pi-pi.saved [1] -3.464102e-07 > This difficulty was particularly difficult to find because pi.saved *looks* the same as pi. What's going on here? &gt...

...ers. I am currently doing this by first inserting a space after each character in the dataset and then using the following commands: y <- as.matrix(read.table("data.txt"), stringsAsFactors=FALSE) bstrap <- sample(length(y), 100000, TRUE) write(y[bstrap], file="Rep1.txt", ncolumns=50, append=FALSE) bstrap <- sample(length(y), 100000, TRUE) write(y[bstrap], file="Rep2.txt", ncolumns=50, append=FALSE) bstrap <- sample(length(y), 100000, TRUE) . . . and so on for 500 reps. I think there should be a better way of doing this. My specific questions: 1. Is ther...

Hi I wrotte this function but when I get the "tmp.xls" file it shows data in a rare way. I mean not appears a matrix with 2000 rows and 100 columns. Can anyone help me, guide me? kim<-function(){ tmp<-randz<-matrix(rnorm(200000, mean=0,sd=0.01 ),2000,100); dim(tmp) write(tmp,file="tmp.xls") Thanks in advance. On the other hand, everytime I execute a function

...(argv) | length(argv)!=1) { cat("Usage: auswertung.r datafile \n") q() } filename <- as.character(argv[1]) d = data.frame(x=scan("/tmp/data")) write(sum(d$x), "/tmp/data.result", ncolumns=1) Could someone help me how I can substitude `/tmp/data` with the value stored in `filename`? I do not get it to work using `do.Call` or `paste()`. Thanks, Paul [1] http://code.google.com/p/littler/ -------------- next part -------------- 1 2 3 4 -------------- next part -------------- #!/u...

...uot;My first list", matrix(1:6, ncol=3), c(1,2,3,4,5,6) ) # Imagining I forgot something and want to add it to the list like: list1[[4]] <- list(c(4,4,4), "This is it") # Now I want to transfer the list to e.g. a text document: lapply(L1, write, "test.txt", append=TRUE, ncolumns=100) However, this does not work and I don't know why. Also I would be interested in better options to get lists out of R (with tables I never had any problems). Thank you for your help and ideas! -- View this message in context: http://r.789695.n4.nabble.com/Transfering-data-from-R-list-t...

Is there any way to run an R script without running R? As an example, suppose I have a tcl/tk interface that asks for a number (in a GUI) and displays its factorial. Is there a way to invoke this script without invoking R? I'm using R 2.4.1 in GNU/Linux Fedora Core 4. Alberto Monteiro

...811 0.009801 ** e:(Intercept) 94.493 59.579 1.5860 0.143820 --- Signif. codes: 0 ?***? 0.001 ?**? 0.01 ?*? 0.05 ?.? 0.1 ? ? 1 Residual standard error: 22.03492 (10 degrees of freedom) > write(summary(mymodel), "kinetics.txt") Error in cat(x, file = file, sep = c(rep.int(sep, ncolumns - 1), "\n"), : argument 1 (type 'list') cannot be handled by 'cat' If I try to unlist(mymodel): > write(unlist(summary(mymodel)), "kinetics.txt") I get the following contents of "kinetics.txt": 485.537711262143 4501.62443636671 3821.31920509004...

...at each set of columns is repeated (with potentially unique data) an arbitrary number of times (say _1 ? _1000), I would like to summarize by row the mean values of (m1, m2, m3, ? m199) over all replicates (_1, _2, _3, ? _1000). I need to do this with a large number of dataframes of variable nrow, ncolumn, and colnames. I've tried various loops creating new dataframes and reassigning cell values in loops or using rbind and bind, but run into trouble in each case. Any ideas? Thanks, Chris

Dear R users I get a weired problem when use sink: since the data set pretty big, I sink intermediate result for further use,following lines are consistently used when write data ########################### sink("dataname.txt") data sink() ########################## at first couples of run, all 10 variables are wrote to a file in following format: V1 V2 ....... V10 1