similar to: catching the warnings

I've been happily building a file with odfWeave, and just as the hour draws nigh for it to be sent off, odfWeave or XML throws the following catastrophic error: ...this is the tail of entirely uneventful processing of input file..... 31 : term xml(label=LR_Fall_Model_Results) 32 : term verbatim(label=LR_Model_Fall_graph) 33 : term xml(label=LR_OMC_tab) 'content_1.xml' has

Hello, In order to increase the performance of a script I'd like to sort very large vectors containing repeated integer values. I'm not interesting in having the values sorted, but only grouped. I also need the equivalent of index.return from the standard "sort" function: f(c(10,1,10,100,1,10)) => grouped: c(10,10,10,1,1,100) ix: c(1,3,6,2,5,4) is there a way

Full_Name: Christoph Schmutz, MeteoSchweiz, Switzerland Version: R1.7.1, R1.8.1 OS: windows2000, solaris sunOS 5.8 Submission from: (NULL) (141.249.133.6) I'm not sure if I don't get the clue, but please consider this: > strptime("19930870150","%Y%j%H%M") [1] "1993-03-28 01:50:00" > strptime("19930870250","%Y%j%H%M") [1]

Hello, I'm looking for a function that counts the occurences of a given character within a string. f('|','ab|c|d') => 2 More precisely, I need to complete a vector of strings to ensure that all elements have the same count of a "separator": a|b|c a |a|b|c|d => a|b|c|| a|||| |a|b|c|d I guess that scan makes use of an internal function that would do

Hello all! I?ve been using Rcmdr for some time, as a quick way of producing graphics and basic statistics. I run R1.8.1, OS W2000. Two days ago the dataset loader stopped working. Normally, the button <No active dataset> is clickable to give you the opportunity to choose dataset to load in the Rcmdr context. Clicking on the button now produces this: Rcmdr Version 0.9-3 Error in parse(file,

Hello, I'm looking for a fast way to retrieve the position of elements from a vector which match element in another vector. Example va<-c('a','e') vb<-c('a','b','c','d','e','f','e') f(va,vb) should return c(1,5,7) I have 2 different cases: I) my vector vb contains only distinct values II) my vector vb may

Full_Name: Marc Mamin Version: 1.8, 2.0.0 OS: Windows & Linux Submission from: (NULL) (217.17.202.254) Using only the beginning of a column name will match it: >aaa<-1 >df<-as.data.frame(aaa) >names(df) [1] "aaa" >df$a [1] 1 !!!!!!!!! (I expect df$a to be undefind) >df$x >NULL Compare with: > df["aaa"] aaa 1 1 > df["a"]

Hello, I'd like to insert a "wait" function in my code. The reason is that I output timestamped files and I want to ensure that at least 1 second separes 2 files to avoid overwriting the previous file. Thanks, Marc Mamin

Dear List, I'm looking for some informations about the function "tkinsert()". I d'like to write lot of command in my text window and after to evaluate it with a button "Submit" for example, but i have some problems: here a exemple of my code: 1) My first problem tt=tktoplevel() txt=tktext(tt,height=40) tkpack(txt) var1=paste("x=2")

Hello, I would like to have a function that retrieve matching strings in the same way as with java.util.regex (java 1.4.2). Example: f('^.*(xx?)\\.([0-9]*)$','abcxx.785') => c('xx','785') First of all: Is it possible to achiev this with grep(... perl=TRUE,value=TRUE )? As I would call this function very often with large data, I'm reluctant to use Sjava

Dear r-helpers! I have trouble reading data from an Oracle data base using RODBC Version 1.0-3, R Version 1.7.1, Windows XP, Oracle8 ODBC Driver Version 8.1.6.4.0: > library(RODBC) > channel <- odbcConnect(dsn="PAV32", case="oracle", believeNRows=FALSE) > # ok, this was succesful > x <- sqlTables(channel) > x[37, ] TABLE_CAT TABLE_SCHEM TABLE_NAME

Hello all, I've had trouble converting a data.frame to a matrix (numeric) using either data.matrix() and as.matrix(). After executing one of those I end up with another data.frame with only the first column of the original data.frame. I use a window (tcltk) to let the user choose the columns he wants and then I retrieve them using the following: varstemp <-

Thanks everybody for looking at this. I am trying to assign a script to a button please help: ############ library(tcltk) tt<- tktoplevel() tktitle(tt)<-"the title" heading<-tklabel(tt,text="Enter date as YYYY-MM-DD") l1<-tklabel(tt,text="Reporting date") b1=tkbutton(tt,text="Run") d.val<-tkentry(tt,width=12) tkgrid(heading,columnspan=2)

Hello, I'm very new in working with tcl/tk in R and have a problem which will probably sound silly to most of you. Here is the code I have problems with: readcelfiles <- function() { require(tcltk) tt <- tktoplevel() tkgrid(tklabel(tt,text="Choose a directory!")) OnOK <- function() { fileDir<-tclvalue(tkchooseDirectory()) data.raw <-

Hi, All I'm trying to save the workspace as a Check Point for possible future come back. The "save.image" function works if the whole coding is in a main function: rm(list=ls()) t = 1 t = t+1 print(paste("before",t)) # [1] "before 2" save.image("tt.RData") t = t+1 print(paste("after",t)) # [1] "after 3"

Dear list, I am trying to evaluate how many elements in a vector equal a certain value. The vectors are the columns of a data.frame, read in using read.table(): > dim(data) [1] 2600 742 > data[1:5,1:5] SNP001 SNP002 SNP003 SNP004 SNP005 1 GG AA TT TT GG 2 GG AA TC TT GG 3 GG AC CC TT GG 4 AG AA TT TT GG 5

Hello, I'm using R1.8.1 on windows 2000 and version 1.8.1 of the tools package. I am attempting to have Sweave write files to a different directory via: testfile <- system.file("Sweave", "Sweave-test-1.Rnw", package = "tools") ## create a LaTeX file Sweave( testfile, output = "C:/temp/Sweave-test-1.tex",

Hi All, I'm using R1.8.1 on Windows XP. I'm having trouble producing an R library from source code. A colleague has written the source code, in Unix. I've copied the source code across to Windows (with the help files, data files, description and index) and am trying to compile it into a library. I've "sourced" each of the *.r files and they appear to work.

Hi, It turns out that the 'test' vector in ifelse(test, yes, no) is not recycled if it is shorter than the other arguments, e.g. > ifelse(TRUE, seq(10), -seq(10)) [1] 1 Is there any particular reason it is not recycled? If there is one indeed a warning message might be in order when someone calls ifelse with a shorter 'test'. This is R1.8.1 on RH-7.3 Thanks, Vadim

Greetings, Running CVS HEAD about 3 weeks old, I have been beating my head trying to get this to work properly.. Or at least figure out what's going on. Maybe I have done things wrong... I have created a 'catch all' extension at the end of our last context where all phones & voicemail extension exist. This catch all is included in all and works quite nicely except when voicemail