similar to: prevent reassignment of function names

Is there a conventional way to test for nested factors? I.e., if 'a' and 'b' are lists of same-length factors, does each level specified by 'a' correspond to exactly one level specified by 'b'? The function below seems to suffice, but I'd be happy to know of a more succinct solution, if it already exists. Thanks, Tim. --- "%nested.in%" <-

Suppose I have a list of logicals, such as returned by lapply: Theoph$Dose[1] <- NA Theoph$Time[2] <- NA Theoph$conc[3] <- NA lapply(Theoph,is.na) Is there a direct way to execute logical "or" across all vectors? The following gives the desired result, but seems unnecessarily complex. as.logical(apply(do.call("rbind",lapply(Theoph,is.na)),2,"sum"))

Suppose I want to delete everything in my working directory that is not a function. It seems that sapply(ls(),is.function) always returns FALSE, because ls() returns objects of mode character. How do I evaluate is.function(), not on a character string, but on the object that character string represents? Thanks, Tim

Hi. I frequently convert date and time data to and from character representations. I'm frustrated with chron, because 'seconds' are required to create a time object (my input data never has seconds). More importantly, I cannot make chron print the format 12/30/2006 (which my output data requires). I really like the format flexibility of strftime() and strptime(), but of course

Hi. I'm maintaining a package that creates an object that is essentially a classed version of numeric. I updated recently from 2.7.1 to 2.9.0, and merges involving my class suddenly took a huge performance hit. I've traced the problem to something near rank(). From NEWS, it seems rank() etc. changed in 2.8.0. Methods for xtfrm() are supposed to help, but I've had no success. There

I see in the archives significant discussion about SAS, CDISC formats etc. for FDA, but no direct suggestion of adding a write.xport method to the foreign package. Are there significant barriers to doing so? [[alternative HTML version deleted]]

Hi. I have a vector of quantiles and a vector of probabilites that, when plotted, look very like the gamma cumulative distribution function. I can guess some shape and scale parameters that give a similar result, but I'd rather let the parameters be estimated. Is there a direct way to do this in R? Thanks, Tim. week <- c(0,5,6,7,9,11,14,19,39) fraction <-

r-devel, In a development version of the CRAN package metrumrg, I write ... require(reshape) setGeneric('cast') setOldClass(c('keyed','data.frame')) setMethod('cast','keyed', function ...) The result is satisfactory when sourcing the code directly, but when checking the package (which has 'reshape' as a dependency in the DESCRIPTION file) I get

Hi Fresh 4.2 install on a box that has the following RAID card GDT-HA: Storage RAID Controller Driver. Version: 3.04 ACPI: PCI interrupt 0000:03:09.0[A] -> GSI 27 (level, low) -> IRQ 225 GDT-HA: Found 1 PCI Storage RAID Controllers Configuring GDT-PCI HA at 3/9 IRQ 225 GDT-HA 0: Name: SRCU31L scsi2 : SRCU31L Vendor: Intel Model: Host Drive #00 Rev: Type: Direct-Access

Hi list, I am running TDM11b + Asterisk-1.4.9 + Zaptel-1.4.4 + Libpri-1.4.1 on CentOS 5. I am having trouble to make my simple IVR extension work, here is relevant config: zapata.conf ---- context=incoming signalling=fxs_ks channel => 4 context=internal signalling=fxo_ks channel => 1 ----- extensions.conf: ---- [office] exten => s,1,Dial(Zap/1,30) [home] exten =>

I originally posted on this topic on a different thread: https://stat.ethz.ch/pipermail/r-devel/2016-August/072938.html These sources suggested that a safe practice might be to put double quotes around symbol names in EXPORTS in case the symbol name is the same as a linker keyword: - https://sourceware.org/binutils/docs/ld/Symbols.html#Symbols -

I have the following script (also attached): #!/usr/bin/Rscript spec=matrix(c( 'verbose', 'v', 1, "integer", 'help' , 'h', 0, "logical" ),ncol=4, byrow=TRUE) spec.dim=dim(spec) spec.opt.long=spec[,1] spec.opt.short=spec[,2] spec.opt.l <- spec.dim[1] infile <- "test.dat" args=commandArgs(TRUE); l=length(args) self =

Hi- I have an FXO module in my TDM400P configured to receive caller*id (see zapata.conf below). I get a curious behavior: When I call this line with my cell phone, I see caller ID received just fine, with no warnings or errors.. When I call from another landline, I get different results: calling from external line, caller ID off: WARNING[1233021872]: chan_zap.c:4980 ss_thread: CallerID

I currently use lattice functions to produce multiple pages of plots using the "layout" argument to specify the number of rows and columns of panels, e.g., xyplot(price ~ carat | clarity, diamonds, layout = c(2, 2)) This results in 2 pages of 4 panels each. "diamonds" is a data.frame distributed with ggplot2. I would like to do the same with ggplot2 but have been

Certain transitions where the input and output filename are the same are impossible, eg copying a file to itself. Don't add these. Reported-by: David Kaylor. --- builder/builder.ml | 28 ++++++++++++++++------------ 1 file changed, 16 insertions(+), 12 deletions(-) diff --git a/builder/builder.ml b/builder/builder.ml index a4c830e89..843106a86 100644 --- a/builder/builder.ml +++

objcopy needs "output-target" and "binary-architecture" parameters which makes it necessary to keep a list of known architectures. The bin2s.pl script generates input for the GNU assembler which should produce an object file that is equivalent to that produced by objcopy. I have successfully tested the change on an amd64 Debian/unstable system. --- helper/Makefile.am |

I thought I would post this in case it might be of any use to anyone. Not anything special but it does work. Keep in mind you need sox and wmix. Here is some relevant exerpts of my extensions.conf using John Todds macro. [globals] CALLFILENAME=foo FOO=foo CALLERIDNUM=foo [default] exten => 287,1,Macro(dial,SIP/agent20002|20) exten => 287,2,Voicemail(u287) exten =>

Here it is: read.inputs<-function(infile) { for (counter in 1:length(input.list)) { seek(infile,where=0,origin='start') newline<-readLines(infile,n=1) while(length(newline)>0) { if(!is.na(grep(as.character(input.list[[counter]][1]),newline)[1])) { break } newline<-readLines(infile,n=1) } if (length(newline)>0)

> Hi, > > i think i found a suspect in lzo/prepcore.c and it would indeed be a > wrong range of checksumming (speculative congratulations to Ady). Thank you Thomas for your replies and for looking into this issue. My part on the initial investigation that triggered this email thread is relatively small. Others deserve much more credit. I was/am providing not just my own report,

Hi, i think i found a suspect in lzo/prepcore.c and it would indeed be a wrong range of checksumming (speculative congratulations to Ady). Looking at http://repo.or.cz/syslinux.git/blob/0d82b71304d596d80f3c4520f9dcf90048ca50b7:/lzo/prepcore.c it seems that this change in line 374 could yield correct checksums: unsigned int ptr; - for (ptr = 64; ptr < offset; ptr += 4) +