similar to: is.constant 2

>>x <- c(1, 2, NA) >>is.constant(x) > > [1] TRUE > > For data such as c(1, 1, 1, NA), I should think the safest answer should be > NA, because one really doesn't know whether that last number is 1 or not. > > Andy > My version is is.constant <- function(x) { if (is.numeric(x) & !any(is.na(x))) identical(min(x), max(x)) else FALSE }

Hi all, I just cannot think of how to do it: I want to take the first variable (column) of a data frame and regress it against all other variables. bla <- function (dat) { reg <- lm(whateverthefirstofthevariablenamesis ~., data=dat) return(reg) } What kind of function do I have to take instead of the whateverthefirstofthevariablenamesis, eval(), substitute(), get(), ... to

Hi, Sorry to bother, but I checked around and did not succed creating a bundle from six existing packages (which are checkable, installable, etc. individually). I carefully followed the procedure given in ch. 1.1.5 Package bundles. However, I am getting hoffmann at fluke:~/R/Sources >R CMD check cwhmisc * checking for working latex ... OK * using log directory

Hi there, I am interested in the inner workings of wilcox.test: > wilcox.test function (x, ...) UseMethod("wilcox.test") <environment: namespace:stats> how can I get at the code, if it is R-code? For Methods one should be able to learn what extension to use, but here default or such do not help. Is there a wayplot.default to learn which different versions of

I am trying, without success, to find out how to formulate correctly the parameters of "eval". My code snippet looks like: proutside <- function(txt) { cat("\n",txt,"\n"); print(eval(parse(text = txt))) } vari <- function(Ob) { prininside <- function(txt) { cat("\n",txt,"\n"); print(eval(parse(text = txt))) }

Hi there, (sorry Martin, ich habe den falschen Empfaenger erwischt :-( ) Is there a function in the base package or elsewhere which returns TRUE and not NA, even if NA is involved: (I did not find in the help system :-( ) if ( x==something & !is.na(something)) or if ( x==something & !is.na(x==something)) If "something" is complicated, a function would be handy. Thanks

Hi, Using help under help.start() is working fine (html) Q1: using > ?solve results in the message "sh: ~/R/tmp/R4f32S1cfb: cannot open" displayed in the XEmacs buffer "help[R](solve)". BUT there exists a file R.R4f32S167e in that directory. (not quite the same name). Does the "sh: " prefix suggest that the shell "sh" is run, although my

Hi everyone, Being new to the crowd of R users I am wondering what the equivalent of attach("/home/bla/hoffmann/R/.RData",2) (S style) is in R. What I want is a split of .RData repositories. One in a central place where I keep functions and interesting stuff important for all work I am doing, an several others which contain stuff of an dividual project only. When I start in a

Hi there I hope that I am in the right forum. I am working on Win2000 PC connected via Exceed 6.0.1.0 to a SunOS fluke 5.9 Generic_118558-11 sun4u sparc SUNW,Sun-Fire-480R There I am using Mozilla Firefox 1.0.7 as a browser. I am having difficulties viewing .html files. Their first pages are displayed normally, black on white, links in blue. When I scoll down, the pages appear black

Hi, I am trying to create the assignment function: "substring<-" <- function(text, first, last=100000, sub) { if(is.character(first)) { if(!missing(last)) stop('wrong # arguments') return(sedit(text, first, sub)) } lf <- length(first) if(length(text)==1 && lf > 1) { if(missing(last)) last <- nchar(text) last <- rep(last,

Hi all, May be there is a plot which shows 3 variables in a triangle, their sum being constant. I have forgotten its name, and a search in the engine using "plot" did not help. Does anyone know of such a procedure in R or S? Thank you --christian Dr.sc.math.Christian W. Hoffmann Mathematics and Statistical Computing Landscape Dynamics and Spatial Development Swiss Federal Research

Hi all, I am fancying the idea of using my preferred shell (t)csh when invoking system(). How can I do that? (I didn't find anything about that in the FAQ). Thanks for help, -christian Dr.sc.math.Christian W. Hoffmann Mathematics and Statistical Computing Landscape Modeling and Web Applications Swiss Federal Research Institute WSL Zuercherstrasse 111 CH-8903 Birmensdorf, Switzerland phone:

Hi, This may belong more to r-develop, but general discussion may be useful (for the how many-th time ?) seq(2,5,-2) seq(5,2,2) both result in Error in seq.default(2, 5, -2) : wrong sign in 'by' argument But often, if not always, mathematicians and programmers want a behaviour e.g. in for loops, where this statement results in an empty statement, that is for (ii in seq(2,5,-2))

Hi, Soory, if I missed relevant help pages. I have developed several packages myself and want to give them to a collegue in *.tar.gz form (Unix, Solaris). What is the proper function to install them? install.packages() with a path pointing to the local temp instead of to CRAN? Thanks for help. Christian -- Dr.sc.math.Christian W. Hoffmann, http://www.wsl.ch/staff/christian.hoffmann

I am running R-1.3.0 on Solaris 8: Under Solaris I do setenv dendro_us hoffmann echo $dendro_us gives back: hoffmann which is correct. When in R I do: Sys.getenv("dendro_us") I get dendro_us "" which is NOT correct: Inverse effect (taken from help of Sys.getenv) Under R: print(Sys.putenv("R_TEST"="testit", ABC=123)) [1] TRUE TRUE

Hi all, I am using R, Version 1.9.1 alpha (2004-05-25), ISBN 3-900051-00-3 on SunOS fluke 5.9 Generic_117171-02 sun4u sparc SUNW,Sun-Fire-480R Version: sparc-sun-solaris2.9 arch = sparc os = solaris2.9 system = sparc, solaris2.9 status = alpha major = 1 minor = 9.1 year = 2004 month = 05 day = 25 language = R Search Path: .GlobalEnv, package:methods, package:stats, package:graphics,

Hi, After some reading and experimentation I found that I cannot solve this problem: 1. I am starting R and check: > system("pwd") /home/woodstock/hoffmacw/R/test > system("echo $HOME") /home/woodstock/hoffmacw > system("echo $R_PROFILE") /home/woodstock/hoffmacw/R > system("ls $R_PROFILE/.Rprofile") /home/woodstock/hoffmacw/R/.Rprofile

Hi, I want to create several packages, with package Aa depending on functions in package A. My directories with .r and .Rd are organized as follows ./A/man/*.Rd ./A/R/*.r ./Aa/man/*.Rd ./Aa/R/*.r Afre creatin package A with R CMD check A R CMD INSTALL --library=lib A I then have ./lib/A/help etc If I try to do R CMD check Aa R CMD INSTALL --library=lib Aa I am getting * checking

Hi, I would like to get a hint on how to debug in the case of #> R CMD check pllib signalling * checking for code/documentation mismatches ... WARNING Error in parse(file, n, text, prompt) : syntax error on line 22 I am able to sort out which of the files is the culprit is by swapping files in and out of the /R and /man directories. But I cannot find the syntax error, the .Rd file seems

Hi there, May I ask the following question. Our Solaris installation of Xemacs and R: SunOS fluke 5.9 Generic_117171-02 sun4u sparc SUNW,Sun-Fire-480R one cannot start R inside xemacs: M-x R "symbol's function definition is void". Also, loading a *.tex file into Xemacs will result in "loading tex mode .. done", but the additional buttons to call TeX related processes