similar to: tcltk

Hello, I have a data frame with the following variables: ID, X1,X2,X3,X4,X5,Y1,Y2,Y3,Y4,Y5 and some other that do not matter, some of the X and Y can be missing (NA). I want to compute the slope of the linear regression Y ~ X for each subject, so using apply(DF,1,FUN,ra.rm=TRUE) now How do I define FUN? The X are different for each subject. Thanks for any help R.Heberto Ghezzo Ph.D. Montreal -

Hi, I got a code from S that uses 'nlminb' to minimize a function with constraints. Is there a similar function in R? Thanks. R. Heberto Ghezzo Ph.D. Meakins-Christie Labs McGill University Montreal - Canada heberto at meakins.lan.mcgill.ca -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-help mailing list -- Read

Hello, I wrote the following function to compute multiple comparisons in a one way anova and randomized blocks anova. aov1 <- function(y,g,s=NULL,comp="mca",meth="Sidak") { # fun <- function(x) c(mean(x,na.rm=T),sd(x,na.rm=T),length(x[!is.na(x)])) # li <- length(unique(g)) cat(" Analysis of Variance with Multiple comparisons\n\n") cat("

Hello, I think this qualify as a bug > x<-c(1,2,3,4,NA,6,7) > mean(x) [1] NA > mean(x,na.rm=T) [1] 3.833333 > sd(x) Error in var(as.vector(x)) : missing observations in cov/cor > sd(x,na.rm=T) Error in sd(x, na.rm = T) : unused argument(s) (na.rm ...) > var(x) Error in var(x) : missing observations in cov/cor > var(x,na.rm=T) [1] 5.366667 > why sd() does not

Hello , I do not know anything abount Ubunto, but I found a Portable Ubunto for Windows and since so many people prefer Linux to Windows I decided to give it a try. It runs very nicely, so I tried to load R, following Instructions in CRAN I added the line deb http://probability.ca/cran/bin/linux/ubuntu hardy/ to /etc/apt/sources.list and then from a console I did sudo apt-get update sudo apt-get

Hello, I have a big data frame where consecutive time dates and corresponding observed values for each subject (ID) are on a line. I want to compute the linear slope for each subject. I would like to use apply but I do not know how to express the corresponding function. An example using a loop follows # # create dummy data set There are missing values a <- c(1,2,3,4, 1,1,1,1, 2,2,3,3,

hello, i tried to run playwith but : > library(playwith) Loading required package: lattice Loading required package: cairoDevice Loading required package: gWidgetsRGtk2 Loading required package: gWidgets Error in inDL(x, as.logical(local), as.logical(now), ...) : unable to load shared object 'H:/R/cran/RGtk2/libs/i386/RGtk2.dll': LoadLibrary failure: The specified procedure could

Hello, I never used Sweave before but now I try and got: > > rnwfile <- system.file("Sweave", "example-1.Rnw", package = "utils") > Sweave(rnwfile) Writing to file example-1.tex Processing code chunks with options ... 1 : echo term verbatim 2 : term verbatim pdf You can now run (pdf)latex on 'example-1.tex' >

Hello, I am trying to upgrade the system: niu <- new.packages() install.packages(niu) commands that have worked in previous instances, now it downloads the packages missing but complains with: malformed bundle DESCRPTION file, no Contains field and does this for diseasemapping_0.3 EMJumpDiffusion_1.3.4 InfluenceME_0.6 since it stops installing I gave up. Now I tried to Update my packages and

Hello, can somebody explain me why the following program does not work? Which pages of Unicode are implemented? the u22xx and 2Axx are math symbols and extensions Thanks Heberto Ghezzo Montreal plot(1) text(1.0,1.2,"a \u2A8A b \u222C c \u5222 d", cex=2) text(1.0,1.1," \u222C ", cex=2) text(1.0,1.0,"b \u222C c", cex=2) text(1.2,1.0,"c \u5222 d", cex=2)

Hello everybody I am trying to extract some observations from a data frame, ie the subjects that belong to a given group, and although t-test etc work if I try to obtain the number of subjects in the subgroup i get some funny numbers. All the subjects with NA for group are included in the subgroups 'group==1' etc. Is this a bug? for example in Windoze R : Copyright 2001, The R

Hello, I have a data base with variables pasthma,kasthma,sex,etc. I wrote a program to compute the Kappa statistic between pasthma and kasthma. Actually "did the child had asthma" answered by the parents and by the child. kappa <- function(x) { r <- paste("p",evaluate(x),sep="") c <- paste("k",evaluate(x),sep="") a <- table(r,c) ...

Hello, I am on a laptop with Win7, running R-2.12.1 if I click on Packages/InstallPackages I get : > utils:::menuInstallPkgs() Warning: unable to access index for repository http://cran.skazkaforyou.com/bin/windows/contrib/2.12 Warning: unable to access index for repository http://www.stats.ox.ac.uk/pub/RWin/bin/windows/contrib/2.12 Error in install.packages(NULL, .libPaths()[1L], dependencies

Hi, Does somebody knows of the existence of a library of functions for solving differential equations, I need a solver for a system of non linear first order differential equations. I think there was something in IMSL but that was a long time ago and probably there are some new algorithms in the new now. Thanks for any pointers. . R. Heberto Ghezzo Ph.D. Meakins-Christie Labs McGill

I received several answer to my querry re reading zipped files, R.Gentleman, Liaw Andy, BD Ripley,J Holtman, A.Matt, and others, sorry if I missed your names. a- use pipe to run external unzip to a file and read from there b- use gzfile() to open directly a gzipped file c- use zip.file.extract() solution b works like a charm, unfortunately it open gzipped files and not zipped files, would it be

Hello, I am trying to start using Sweave. I copy the example from help Sweave testfile <- system.file("Sweave", "Sweave-test-1.Rnw", package = "utils") ## enforce par(ask=FALSE) options(device.ask.default=FALSE) ## create a LaTeX file Sweave(testfile) ## This can be compiled to PDF by tools::texi2dvi("Sweave-test-1.tex", pdf=TRUE) and I

Hello, Using R 1051 in win98 When I try to build a library Addreg with DESCRIPTION, Index and Title in R and subdirectories Man and R. From a Command window I do: c:\> c:\rw1051\bin\Rcmd INSTALL c:\r_src\src\library\addreg --library=c:\r\src\library make: Entering directory '/cygdrive/c/rw1051/src/gnuwin32' make DLLNM= \ -C c:/r_src/src/library/addreg PKG=addreg RHOME=c:/rw1051

Hi I am using R65.1 in Windows 95 I have a CSV file from Excell > a<-read.table("c:/heberto/mgc/tst.csv",header=T,sep=",") > attach(a) > a manolo fvcpp fevpp fvvcpp tlcpp rvpp rvtlpp plmaxpp 1 1 99.28 97.67 98.38 91.14 102.9 111.25 117.64 2 1 86.97 68.56 78.89 94.60 112.34 118.53 159.20 3 1 81.12 71.76 88.37 89.16

Hello, The other day Justin Peter presented a mini program to plot a topographic map with an overlay of the worldHires. I seemed interesting so I checked the ETOPO5 site and find that there is a new file ETOPO1 with a 1 minute grid. I downloaded it and tried a similar procedure. Now the ETOPO1.gz is 1 Gb and the uncompressed file is 5 Gb. They do not fit into my laptop. I tried the following

Hello, I have a problem. I have to read a HUGE file which has to be line processed, so I would like to use scan like p <- scan(pfile,what=c(0,0,0,"",0,""),nlines=1) but it continues to read the first line, so I have to add a skip and increment the skip after each read. It takes forever to read a test file of 1 Mb, the real one is in 60's Mb Is there a way to read line