similar to: macro function

Hi all; I want to print system.time whenever I execute any command. It takes too much time to type "system.time()" function to all command. is there any solution on it? And, apply(matrix,1,cumsum) command is too slow to some large matrix. is there any function like rowCumSums ? thank u! -- View this message in context:

hi, is there any way to erase the term "[1]"? for example, > a<-3+2 > a *[1]* 5 the term [1] in front of number 5. is there any way? -- View this message in context: http://r.789695.n4.nabble.com/erasing-1-tp4467628p4467628.html Sent from the R help mailing list archive at Nabble.com.

hi all, What I want to do is show a number with thousand expression. I dont know exactly the expression name but here is example. 1,000 10,000,000 is there a way to express a number like that? -- View this message in context: http://r.789695.n4.nabble.com/How-to-define-format-of-number-tp4555778p4555778.html Sent from the R help mailing list archive at Nabble.com.

Hi all; Now I'm developing web application by using rapache in ubuntu. My problem is that as users execute the application, the server PC cumulates memory. After users close or refresh the application page, the server PC memory is still cumulated. Now I'm renewing apache machine by manually in terminal. Is there any way to kill memory when users refresh or close the application page?

hi I'm making some program and it need to be hidden. it's not commercial purpose but it is educational, so i do want to hide the code of function. for example, if i made following function: a<-function(x){ y<-x^2 print(y) } i do not want someone to type "a" and take the code of the function. is there anyone who can help me? -- View this message in context:

hi, I use R - 2.15(32bit), and want to make a code to clear a console. Actually, I used to run following code to do that but after update the version of R from 2.14 to 2.15, it doesn't work. cls <- function (t) { require(RDCOMClient) wsh <- COMCreate("Wscript.Shell") wsh$SendKeys("\f") invisible(wsh) } cls() or cls <-

hi, i'm really in trouble to simulate some experiment. that is, it takes too much time to process the following code. following is short example, ------------------------------------------------------------------------------------------------------- p<-data.frame(a=rnorm(10),b=rnorm(10),c=rnorm(10),d=rnorm(10)) test<-data.frame(a=rnorm(1),b=rnorm(1),c=rnorm(1),d=rnorm(1))

Has anyone used the H option for Queue() with Callback queues? I want customers in my queues to be able to jump out to voicemail when they get tired of waiting, but in my setup when I pretend to be a customer and press '*' [when I am waiting in the queue] I see the message 'User hit * to disconnect call.' but then just jump out to the outer loop where queued callers wait to

hi all: Following is simple example, for(i in 1:10000000){ a<-function(i){ #some function that has an error } } What I want to know is the way to find the error point in for-loop, What "i" makes the error. is there any way to solve it instead of debugging and finding an error manually? Thanks, -- View this message in context:

hi, what I want to do is assigning following code to any object. k<-paste("thank") writeLines(strwrap(k, width = 80,indent = 7,exdent = 6)) To assign the "writeLines" code, I try this a<-writeLines(strwrap(k, width = 80,indent = 7,exdent = 6)) or assign(a,writeLines(strwrap(k, width = 80,indent = 7,exdent = 6))) but it doesn't work. is there any way to solve

hi I'm simulating some experiment by "for" function. The problem is that it takes too much time. for example, a<-list() for(i in 1:100000000){ a[[i]]<-i*1000 } is there anyway to speed up the process? I heard there is solution but i don't have idea. Can anyone help me? -- View this message in context:

hi, i'm trying to make gui function by "aDialog" FUN. What i want to do is adjusting the window size. my function is , aa<- aDialog(items=list( ps=numericItem(), number=numericItem(), term=numericItem() ), OK_handler=function(.) { # . is reference to dlg object values <- .$to_R() do.call("KOD",values) } ) how can i adjust the size of the window? Thanks~ -- View

Hi, I'm trying to make output of my function easier to see and more lovely. As u know, R output is not easy to see for beginner of study or anyone not expert so I want to transform the output into other form. Output of my function is just long text with some numerical result and table. Is there a way to solve it? Thanks. -- View this message in context:

hi, i'm trying to make "Tabbed Notebook Widget",but cannot install "tclRequire(Iwidgets)". I installed Activetcl but I don't know what can be the next step to execute "tclRequire(Iwidgets)". how can i do that? Thanks -- View this message in context: http://r.789695.n4.nabble.com/How-to-install-tclRequire-Iwidgets-tp4502775p4502775.html Sent from the R help

according to the wiki, I should be able to do this: exten => _9./3003,1,Set(CALLERID(number)=2814444443) exten => _9./3004,n,Set(CALLERID(number)=2814444444) exten => _9./3005,n,Set(CALLERID(number)=2814444445) exten => _9./3006,n,Set(CALLERID(number)=2814444446) exten => _9.,n,Dial(SIP/${EXTEN:1}@mycarrier,30,wt) and have the correct calleridnum's set for each extension based

I appologize if this was already answered somwhere on http://www.voip-info.org/wiki-Asterisk, I'm sure it probably is. And if you wish to just point me to a link that would be appreciated. I am very new to asterisk and unix all around, so these questions may sound rather ignorant. First being, how do I setup asterisk to point to another asterisk server and make all the lines which should

Hi, I've been running some simulations for a while and the performance of R has been great. However, I've recently changed the code to perform a sort of chi-square goodness-of-fit test. To get the observed values for each cell I've been using table() - specifically I've been using cut2 from Hmisc to divide up the range into a specified number of cells and then using

# This is more about trying to find a more effecient way to code some simple vectorized computations using ifelse(). # Say you have some vector representing a factor with a number of levels (6 in this case), representing the location that samples were collected. Population <- gl( n=6, k=5,length=120, labels =c("CO", "CN","Ga","KO", "Mw",

Sorry, this is my first time to post. I have a big data set: first colume is date (ex: 2008-2-150, the second is time (10:30:00), and the following columes are variaty measurement data. Every 30 min, I have one data. I want to find an effecient way to calculate the hourly, daily, monthly and yearly average, and plot them, and eventually use these average data to do further analysis. Thanks!

Hi all I hope no one minds but I was asked to post my timetrial findings back to the list. Hope it helps someone else as well, if you have any suggestions please mention them as I need all the speed that I can get The scenaro is as follows I have to switch mail servers and I need to copy all my mbox files over to the new machine. As you may well know time if off the utmost importance so I