similar to: Passing a list object to lapply

The source to the noquote() function looks like this: noquote <- function(obj, right = FALSE) { ## constructor for a useful "minor" class if(!inherits(obj,"noquote")) class(obj) <- c(attr(obj, "class"), if(right) c(right = "noquote") else "noquote") obj } Notice what happens with right =

It is very wierd... Can some of you confirm the following behavior ? It is a new bug (feature ?) which was not yet in 0.49 ... noquote <- function(obj) { ## constructor for a useful "minor" class if(!inherits(obj,"noquote")) class(obj) <- c(class(obj),"noquote") obj } "[.noquote" <- function (x, subs) structure(unclass(x)[subs], class =

You can test if the problem is accumulation in memory registers, which is certainly what this sounds like. Just do a loop over a reasonably small number of iterations and store or print the time between each iteration. If memory accumulation it will run optimally for the first few iterations, after which the time will increase noticeably (essentially exponentially, hence ultimately freezes up). If

I have a problem with some functions handling dates, in packages 'date' and 'survival' (they seem to be identical). For instance, from the documentation, -------------------- mdy.date {survival} R Documentation Convert to Julian Dates Description Given a month, day, and year, returns the number of days since January 1, 1960. Usage mdy.date(month, day, year, nineteen = TRUE,

I currently have a program that automates 2-way ANOVA on a series of endpoints, but before the ANOVA is carried out I want the code to test the assumptions of normality and equal variance and report along with each anova result in the output file.  How can I do this? I have pasted below the code that I currently use.   library(car) numFiles = x #

The date library contains a function date.mdy that converts a number D to the date (month,date,year as a list) at D days after 1 Jan 1960. This a convention that fits in with SASs. The logic would be that the result was the date at D days after 1 Jan 1960 00:00:00 (which is a POINT in time as opposed to a date which is an interval), so that any D with 2<=D<3 was rounded to 3 Jan 1960 and

I haven't been able to get anywhere tracking this down. It seems that c.noquote() does something strange with its third (and subsequent) parameters: R-2.7.0 under NetBSD, R-2.6.0 under Solaris, and R-2.8.0 (unstable) (2008-06-10 r45893) under WinXP, I get: > c(noquote('z'), 'y', 'x', '*') [1] z y x * x * > or: > c(noquote('z'),

Hi R, When I use the below to write the text file try=data.frame(rep("a",5), rep("b",5)) write.table(try,"z:\\try.txt",row.names=F,col.names=F,sep="\t") the output contains two columns with quotes! Is there a way to write without quotes? I tried try[,1]=noquote(try[,1]) try[,2]=noquote(try[,2]) Thank you, Regards, Ravi Shankar

G'day all, I am trying to use a string as an argument in a selection but things are not working as I expect, seems the selection is not seeing the expanded string and I do not know how to make it. Perhaps the noquote class value that is returned is the problem. Here is an example. > selection #this is my string [1] "attackprogress$Se=='Toona ciliata [19825: JMM35]'"

Colleagues I want to download the package "date" from CRAN <http://cran.r- project.org/> to get the R-scripts (for version 1.2.0) *** date/INDEX *** as.date Coerce Data to Dates date.ddmmmyy Format a Julian date date.mdy Convert from Julian Dates to Month, Day, and Year date.mmddyy Format a Julian date date.mmddyyyy Format a Julian date date.object Date Objects mdy.date

Hi everyone, I am trying to use the function as.date() from the "dates" package in R 2.10.0 to convert a character date to a Julian date, as follows: > as.date("02-MAY-01", order="mdy") # convert May 2, 2001 to a Julian date [1] 2May1 However, when trying to convert a character date from the year 2000 to a Julian date, I get an <NA> instead of the desired

I'm having a problem with output from date.mdy in the date package. Goal: to take a long vector of dates of the form "01/22/99" and extract values month="01", day="22", year="1999". I am providing the vector of class dates in the attached file to date.mdy: > mdy_dates<-date.mdy(trimmed_dates) The first few obs of the

I have a zooreg object and I want to be able to generate a value for seasons and 11-day composites paste it onto my zoo data frame, along with year, month and days. Right now I have the following to work from: eg. dat.zoo.mdy <- with(month.day.year(time(dat.zoo)), cbind(dat.zoo, year, month, day, quarter = (month - 1) %/% 3 + 1, dow = as.numeric(format(time(dat.zoo), "%w")))) For

Hello, Might anyone know how to conduct Wald-type F-tests of the fixed effects estimated by glmmPQL? I see this implemented in SAS (GLIMMIX), and have seen it recommended in user group discussions, but haven't come across any code to accomplish it. I understand the anova function treats a glmmPQL fit as an lme fit, with the test assumptions based on maximum likelihood, which is inappropriate

Hello, I'm working with a package that uses download.file in functions to extract information from remote databases. My current environment is Windows XP Pro SP3, R 2.7. A full extraction can be a great deal of data, so the download is accomplished in generally manageable packets, such that a single download will result in many files, which are written to a directory. It is not uncommon for a

Hi, I apologize if the solution is right in front of me, but I can't find anything on how to convert a class of 'noquote' to 'matrix'. I've tried as.matrix and I've tried coercing it by 'class(x)<-matrix', but of course that didn't work. I've been using the function 'symnum' which returns an object of class 'noquote'. Here is an

Dear mailing list members, My question is maybe very basic, but I could not find the solution. I would like to do the following things 1) colnames(V1)[2] <- par$V2[1] colnames(V2)[2] <- par$V2[2] colnames(V3)[2] <- par$V2[3] ... colnames(V37)[2] <- par$V2[37] 2) V1 <- V1[,-1] V2 <- V2[,-1] V3 <- V3[,-1] ... V37 <- V37[,-1] 3) ms <- merge(V1,V2) ms <- merge(ms,V3)

Hi, I'm trying to use the date library and I think I'm getting an incorrect warning when I make a plot with plot.date(). For example: > library(date) > x <- as.date(1:100) > y <- 1:100 > plot(x, y, log = "y") Warning message: parameter "log" couldn't be set in high-level plot() function The problem appears to be in the last line of plot.date()

Hi everybody, I would like to count how many times names in list L, nombreL, apear in list C, nombreC. Can I improve the next program? cuenta <- 0 topL <- length(nombreL) topC <- length(nombreC) for (i in 1:topL) { for (j in 1:topC) { k <- grep(noquote(nombreL[i]),nombreC[j])

Dear all, I am trying to read in and assign data from 50 tables in an automated fashion. I have the following code, which I created with the help of textbooks and the internet, but it only seems to read in the final data file over and over again. For example, when I type:> table_1951 I get the same values in the table as when I type> table_2000 despite the values in the source tables