similar to: Display execution in a function

I was wondering if someone could help me! Here is what I don't understand! Why the text in the function isn't showing up before the locator action? ########### plot(1:10) toto<-function(){ cat("Why this text isn't showing up before the point selection !!!!!!!!") point<-locator(2) return(point) } toto() P.S.: I am using the most recent version of R for mac Thanks

Hello, I not have attached in this e-mail the zipped list of matrices I am using because it has 1 meg once zipped and anyway we cannot send attached files on r-help mailling list. First, after running the code that is written bellow, I realized that the printout of dudi.pca gives me for both of my matrices $cw length that are unequal to either respective $rank or $eig lengths. Is that

My macro doesn't work for bwplot. But is working elsewhere. What changes should i make to fix my macro. Thanks. The complete code sample is: library(gtools) library(lattice) pic <- defmacro(fn, plotfunc, expr={png(filename=fn); plotfunc; dev.off()}) # this one fails. pic("bw.png", {bwplot(Species ~ Sepal.Length, data=iris)}) # this one works pic("p.png",

Dear all, I am running R : Copyright 2005, The R Foundation for Statistical Computing Version 2.1.1 (2005-06-20), ISBN 3-900051-07-0 Under Mac os X, a french version! I am preparing a package and I got the following issue I am trying to read dates that are written in english and have them recognized by R using as.Date function. I realized strangely that when I type > month.abb [1]

Hello, here is my problem, After looking at the mail archives, I found a description of the error I get when I use this package. At first I even tought that they were showing how to solve it. But the thing is that by saying "the programmer forgot drop=FALSE" doesn't show me how I should get rid of the problem I have looked inside the package very quickly and I found three

Hi, GlobalISel is fantastic, but obviously lacks a lot of the transforms that makes SelectionDAG so good. Whilst it's plenty usable, you'll find yourself wanting/needing to add a lot of manual little transforms to clean things up. I know of the RFC for a new Combiner with its own syntax (https://reviews.llvm.org/D54286 is the latest I can find of it), but after manually adding my Nth

Hi, I would like to get all X iterations in optim output in matrix form. I know about the follow approach: sink("reportOptim") optim( ......., control=list( trace=6,..........) ) sink() all_iterOptim <- readLines("reportOptim") unlink("reportOptim") all_iterOptim <- all_iterOptim[ grep( '^X', all_iterOptim ) ] ### TODO: the rest !!! :-) But it is very

Hello list, I have two vectors x and x2: x=runif(10) x2=runif(10) and one vectors with their names : my.names=c("x","x2") I would like to cbind these two vectors using their names contained in the vector my.names. I can create a string with comma ncomma=paste(my.names,collapse=",") and now, I just need a function to transform this string into a adequate

Hi, I am trying to forward calls to another * server with IAX Here is What I want to Do 1- Call SERVER1, let say at 51412345678 2- SERVER1 should transfer the call to SERVER2 in a remote location 3- SERVER2 Receive the call and transfer it to the PSTN number. I have one X100P card on each machine. What is happening is that when the remote party picks up the phone, all he can hear is a weird

Hi everyone, Can anyone give me more details about the 'lp', 'risk', 'terms', and 'expected' options from the predict.coxph function? I actually found that risk is obtained from exp(lp). I can't find information on 'expected' type however. Is anybody can expand the information on this function? Thank you in advance, I will appreciate it.

Hello Everyone, First, I'd like to appologize for the e-mail confirmation that was attached to my last message. It was entirely unintentional. I've attached a set of R files that make writing HTML reports very easy. I basically combined the HTML functions I wrote previously, David Dahl's xtable from CRAN, and then wrote a series of wrapper functions to automagically write the

Hi, Has anyone experiences using SwitchTower (Windows) in a shared hosting environment (Textdrive)? I already patched the SwitchTower rake tasks (I don''t know if someone is interested on it), but i still experience some problems (not in the sudoers list, ...). Thank you for answer (and thank you to the textdrive guys, i never had a such fast support!) -- Jean-Etienne Durand

Hi, I'm migrating a samba3-server that is used both as a NT4-DC and a filesver into a pair of samba4 servers, one should become the new AD-DC and the other one should be the new fileserver. The new AD-DC seems to work fine. I created all local unix users and unix groups on the new AD-DC before I started the classic upgrade and deleted all of them after the update was finished. That way the

Dear all I have a function in which I would like to change some values to NA according to some condition. dropout<-function(y, nahr=FALSE,...) { <some stuff for computing an index> if (nahr) y[index]<<-NA invisible(index) } in case y is a vector all works OK but if it is a part of data frame by calling dropout(df$y) or dropout(df[,number]) no change is done. Please can you

Hi, Could anyone point to some TextMate resources ? I found a few bundles, but they were all corrupted... JEtienne -- Posted via http://www.ruby-forum.com/.

I put my nav system in application layout. that way any controller loading will have the nav system. I have one problem though - the <%= yield %> is in the body, so how would my controllers specify other css files? my application layout would look like this: <html> <head> title css include javascript include </head> <body> nav system <%=yield%>

Hello, suppose I have a list with matrices: a=list(x1=matrix(rnorm(10),5,2),x2=matrix(rnorm(10),5,2),x3=matrix(rnorm(10),5,2)) I want to compute for all combination of xi and xj (x1,x2 x1,x3 and x2,x3) a value. This value is given for the pair x1,x2 by trace(x1%*%t(x1)%*%x2%*%t(x2)) / trace(x1%*%t(x1))*trace(x2%*%t(x2)) I know that product matrices t(xi)%*%xi can be obtained by:

Hello. I spent an hour or three chasing down a desired effect that mootools implements, namely the simulation of onmouseleave and onmouseenter events. Why? Lets say you have a Menu. A ul element that contains many li elements. If you want to have a function (maybe an effect) fire when the mouse moves outside of the ul, you are out of luck. Observe the mouseout function like so:

Hi, I'm trying to record something for about 24 hours but oggenc tells me that I have 203m remaining. Quote: durand at Deuterium ~> arecord -f cd -t wav | oggenc -b 192 -o file.ogg - Recording WAVE 'stdin' : Signed 16 bit Little Endian, Rate 44100 Hz, Stereo Opening with wav module: WAV file reader Encoding standard input to "file.ogg" at approximate bitrate

Hello, I have a question that is not directly related to R ... but I try to do it in R ;-) : I would like to generate a matrix Q satisfying (for a given Z, X and W) the two following conditions: t(Q)%*%Q=Z (1) XQ=W (2) where: Q is m rows and r columns X is p rows and m columns D is p rows and r columns C is r rows and r columns with m>p,r e.g: m=6, p=2 r=3