AW: [R] coding logic and syntax in R

2003-12-24 Thread Unternährer Thomas, uth
Hi, In - as.numeric(strsplit(10110111, )[[1]]) Sets - rep(letters[1:4], each = 8) ## your sets Sp.In - split(In, Sets) logical - sapply(Sp.In, function(x) any(x == 0)) c(as.matrix(data.frame(Sp.In))* rep(!logical, each = 8)) ## for equal sets This could give you a

AW: [R] unary operations

2003-12-23 Thread Unternährer Thomas, uth
Hi, This should do what you are looking for: x - matrix(1:10, byrow = TRUE, nrow = 2) mapply(function(x1, x2) x1+x2, x[1, ], x[2, ]) But have also a look at colSums and colMeans HTH Thomas -Ursprüngliche Nachricht- Von: Fredrik Lundgren [mailto:[EMAIL PROTECTED] Gesendet:

AW: [R] Table to pdf

2003-12-04 Thread Unternährer Thomas, uth
Hi, See ?Sweave in library(tools). HTH Thomas -Ursprüngliche Nachricht- Von: Ana Conesa [mailto:[EMAIL PROTECTED] Gesendet: Donnerstag, 4. Dezember 2003 09:34 An: [EMAIL PROTECTED] Betreff: [R] Table to pdf Hi all, I am new in R world and I haven't been able to find the

[R] stl and NA

2003-11-27 Thread Unternährer Thomas, uth
Hi, I try to figure out what the stl-function exactly do. I was reading the paper by Cleveland et al. (1990) and tested some features of stl (the ability to decompose time series with missing values and the robustness feature). I tried the following: data(co2) co2.na - co2

AW: [R] best editor for .R files

2003-11-21 Thread Unternährer Thomas, uth
Hi The best is definitively (X)Emacs (my opinion). For Windows have a look at (GNU Emacs): http://www.math.auc.dk/~dethlef/Tips/introduction.html And for XEmacs with Cygwin (XEmacs, Latex, ..., for Ess simple save (require 'ess-site) in your init.el):

AW: [R] Getting rows from a dataframe

2003-10-09 Thread Unternährer Thomas, uth
Df[x, ] Read 'an introduction to R' and 'FAQ' -Ursprüngliche Nachricht- Von: Mark Lee [mailto:[EMAIL PROTECTED] Gesendet: Donnerstag, 9. Oktober 2003 18:02 An: [EMAIL PROTECTED] Betreff: [R] Getting rows from a dataframe Sorry if this is a silly question. I'm trying to extract all

AW: [R] pmatch questions

2003-10-02 Thread Unternährer Thomas, uth
Hi, This is maybe not a really nice solution but it gives you what you want which(regexpr(a, c(cc,xxa))!=-1) 2 which(regexpr(xx, c(cc,xxa,xxb))!=-1) 2 3 HTH Thomas -Ursprüngliche Nachricht- Von: Vito Muggeo [mailto:[EMAIL PROTECTED] Gesendet: Donnerstag, 2. Oktober 2003 11:04 An:

AW: [R] plot.ts

2003-09-24 Thread Unternährer Thomas, uth
Maybe like this: X.ts - matrix(rnorm(4000),1000,4) par(mfrow=c(2,2)) apply(X.ts, 2, plot.ts, plot.type=c(single)) or apply(X.ts, 2, ts.plot) HTH Thomas Hi, How can I force a plot.ts to draw a 2x2 plot matrix instead of 4x1 ? Regards EJ

AW: [R] Rank and extract data from a series

2003-09-23 Thread Unternährer Thomas, uth
Hi, I would like to rank a time-series of data, extract the top ten data items from this series, determine the corresponding row numbers for each value in the sample, and take a mean of these *row numbers* (not the data). I would like to do this in R, rather than pre-process the data on

[R] Save graph as .wmf

2003-08-25 Thread Unternährer Thomas, uth
Hi, Is there no function in R similar to jpeg(...) or postscript(...) for windows meta files? The function savePlot(...) is not really what I need. I'd like to save the plot on my disk without open a new plot window. And I don't want to save it on my disk and convert it from a *.* to .wmf

[R] Save graph as .wmf

2003-08-25 Thread Unternährer Thomas, uth
Sorry for my mail, I have found the function win.metafile(). Thomas __ [EMAIL PROTECTED] mailing list https://www.stat.math.ethz.ch/mailman/listinfo/r-help

[R] A little problem

2003-08-14 Thread Unternährer Thomas, uth
Hi, Does anybody knows a easy way (without for-loops, maybe with something like match) to solve this problem: x - rep(1,3) y - c(0,1,0,1,0,1,1,1,0,0,0,0,1,0) if (x is a part of y){ find out where it is and do something } Thanks a lot Thomas __

[R] Memory-problem?

2003-08-11 Thread Unternährer Thomas, uth
Hi, I have a big problem with my R-script. It seems to be a memory problem, but I'm not sure. My script: test.window - function(stat, some arguments){ several ifs and ifs in ifs (if(){...if(){...}}) } ... for (ii in 1 : length(data)){ ## data is a vector of length 2500 stat -