search for: si2

...- vector(mode="numeric",100) Si <- runif(100, min=0, max=11) lny <- vector(mode="numeric",100) lny <- 10+2*Si-Si^2+eta id <- vector(mode="numeric",100) id <- (1:100) cons <- vector(mode="numeric",100) for(i in 1:100) { cons[i] <- 1 } Si2 <- vector(mode="numeric",100) for(j in 1:100) { Si2[j] <- Si[j]^2 } geedat <- data.frame(Si=Si,Si2=Si2,lny=lny,id=id,cons=cons) lnyhat <- gee(lny~cons+Si-Si2, id=id, data=geedat, na.action) And I received the following error message: [1] "Beginning Cgee S-function, @(...

Hi everyone, After reading the external file into R it will become a R dataset. Now my querry is i want to dispaly only character variables from that dataset. please help me in this aspect. if possible send me the code. it will be very helpful for us. Thank you in Advance. -- View this message in context:

....0alpha4 My mail setup is only for me, so Dovecot runs at an odd port and under my userID. All my mail is in my home directory, which is on NFS (NetApp). The main mail receiver is a different machine which mounts my home directory. Typical entry from .procmailrc: :0 * ^(From|To|CC):.*@.*\<si2.org Maildir/.SI2/ Highlights from dovecot.conf: #default_mail_env = maildir:%h/.mail/Maildir:INDEX=/var/tmp/mario/dovecot default_mail_env = maildir:%h/.mail/Maildir:INDEX=MEMORY mmap_disable = yes #lock_method = flock lock_method = fcntl #lock_method = dotlock protocol imap { listen = *:21...

Hi, I have problem with my R program. Actually, it just a simple program, but I do not know the error is. Here is part of my program: .... if (tau2ca==0) {MVvc <- 0.01} else {MVvc <- tau2ca} ri_vc <- si2/MVvc vi_vc <- ri_vc + 1 Y_bar_vc <- sum(y/vi_vc)/sum((1/vi_vc)) tau2MVvc <- sum((1/vi_vc)*(y - Y_bar_vc)^2)/(k-1) .... But then, there is an error displayed in workspace Error in if (tau2ca == 0) { : missing value where TRUE/FALSE needed I do not know why there is an error like that. I...

...Modify data to match "real" case myDiamonds <- diamonds myDiamonds[["clarity"]] <- as.character(myDiamonds[["clarity"]]) myDiamonds[myDiamonds[["clarity"]]=="I1","clarity"] <- 1 myDiamonds[myDiamonds[["clarity"]]=="SI2","clarity"] <- 2 myDiamonds[myDiamonds[["clarity"]]=="SI1","clarity"] <- 3 myDiamonds[myDiamonds[["clarity"]]=="VS2","clarity"] <- 4 myDiamonds[myDiamonds[["clarity"]]=="VS1","clarity"]...

...apifaxrcvd[1062]: Incoming Call from 01722950xxx Jan 20 10:06:31 server capifaxrcvd[1062]: C30d #: 30 Jan 20 10:06:31 server capifaxrcvd[1062]: Call from 01722950xxx ignored Jan 20 10:06:31 server kernel: capidrv-1: incoming call 01722950xxx,1,1,30 Jan 20 10:06:31 server kernel: capidrv-1: patching si2=1 to 0 for VBOX Jan 20 10:06:31 server kernel: isdn_net: call from 01722950xxx,1,0 -> 30 Jan 20 10:06:31 server kernel: isdn_net: call from 01722950xxx -> 0 30 ignored Jan 20 10:06:31 server kernel: isdn_tty: call from 01722950xxx -> 30 ignored Jan 20 10:06:31 server kernel: capidrv-1: inc...

Hello there, could you please help to modify gpar() properties of a cell inside tableGrob() output. In the following example I want to have different color for one out of 4 cells require(gridExtra) z<-matrix(1:4,2,2) grid.draw(tableGrob(z)) The only way I found for now how to do it is to do something like this downViewport(current.vpTree()$children[[1]]$children[[6]]$name)

hi, is it possible to convert latex code to pdf in R (like a latex-program would do it)? Is there a package that comes with this capabilities? My problem is that I want to generate tables automatically - and I can't use a latex editor at that computer ... Besides latex ... are there good ways to generate tables in R? thanks for any suggestions!

I'm working on a package to produce graphic displays of 2- and 3-way tables and need some help/advice on how to simplify the specification of a complex argument that gives the drawing details for each cell of the table. Prototypes of two functions, 'tableplot' and 'cellgram' are given below. The essential idea is that for a given table ('values'), the cells can be be