search for: 3,3

Greetings, Folks. I'd appreciate being shown the way out of this one! I've been round the documentation in ever-drecreasing circles, and along other paths, without stumbling on the answer. The background to the question can be exemplified by the example (no graphics window open to start with): set.seed(54321)...

Bug report follows. Please CC me if you want me to read the reply, as I'm not subscribed to ext3-users. [1.] One line summary of the problem: Ext3 has just causing filesystem corruption which required fsck to fix. [2.] Full description of the problem/report: I just had my machine lock up with an ext3 oops, preceeded by a bunch of error messages in the logs. On reboo...

Hello, In R I am trying to use Kalman filtering to find a solution for an hydrological problem. With Kalman Filtering I want to estimate the discharge comming from three storage bassins. I have programmed a function in R which can run KalmanSmooth. When I'm asking for the function and putting in values, R detects the following error: "Error in as.vector(data) : Argument "S1" is missing, with no default". I have try to find a solution for this error in the R help file, and in different manuals, but I can't find it. Please hel...

Dear all! I'm trying to get multiple values from a matrix by using a single command. Given a matrix A A <- matrix(seq(1,9),nrow=3,ncol=3) How can I get e.g. the values A[1,2] = 4 and A[3,3] = 9 with a single command and without using any loop? My first idea was to generate a row- and a column vect...

I am generating an array of similar plots using the par(mfrow=c(3,3)) method. Everything works fine except the plot only puts y-axis tick marks on cells in column one and x-axis tick marks on cells in row three. I would like tick marks on both the x and y axix of all 9 plots in my array. I am generating plots using the following two functions three.by.three.p...

Hello R-helpers, I have the following code that works well, b <-list() for (i in 1:3){ a <- matrix(runif(1),3,3) b[[i]] <- a } b however, I need to do something similar with two loops and I was looking for something that would look like b <- list() for (i in 1:3){ for (j in 1:4){ a <- matrix(runif(1),3,3) b[[i,j]] <- a #but this doesn?t work } } Anyway, I wanted &...

Hi, how are you? I am trying to replicate the binary data f(2) function in the attached document by starting with the simple example found below: observed <- matrix(c(0, 1, 0, 0, 1, 1, 1, 0, 0),3,3,byrow=TRUE) data <- matrix(c(1, 1, 0, 0, 1, 0, 0, 0, 1),3,3,byrow=TRUE) f2 = sum(probability of the matrix element where the matrix element is present in both the observed and the data)/[sum(probability of the matrix element where the matrix element is present in both the observed and the dat...

hi all, It's not clear to me how (or if) I can pass multiple values for lty to a key in xyplot? I've tried: lines=list(lty=1:3), to no avail. Do I need to use something other than auto.key? (Deepayan, if you're out there, I have your book and must admit the answer isn't jumping out at me.) thank...

Hi all, I have two matrices: G<-matrix(c(2.0, 0.5, 0.5, 0.5, 2.0, 0.5, 0.5, 0.5,2.0),3,3) P<-matrix(c(1.0, 0.5, 0.5, 0.5, 1.0, 0.5, 0.5, 0.5,1.0),3,3) and I want to run this equation to get a new matrix F: F = [P+2G]^-1/2 P [P+2G]^-1/2 Could someone please tell me how to code this in R? Many thanks in advance for your time. Best wishes, Matt [[alternative HTML version delet...

Hi RedHat 7.2, ext3 on /, kernel 2.4.18p1. whilst updatedb was running, i had these messages appear... Jan 6 22:18:42 jaguar kernel: EXT3-fs error (device ide0(3,3)): ext3_readdir: bad entry in directory #147553: rec_len %% 4 != 0 - offset=0, inode=1651076143, rec_len=19527, name_len=85 Jan 6 22:18:42 jaguar ker...

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 because of strange reasons my notebook sometimes crashes short after startup (but that's not ext3's fault, maybe mem?, when i wait several minutes it works without problems) the problem is that after 3 crashes at startup, when my notebook finally worked i got the msg: Sep 23 23:29:17 blackbox kernel: EXT3-fs warning (device ide0(3,3)): ext3_clear_journal_err: detected journ...

Take a look at this output from lsof: smbd 11490 0 8u REG 3,3 55296 1136647 Maintenanc.fp5 afpd 31010 0 2u REG 3,3 3207 1136655 auction - envelope.rtf afpd 31010 0 5u REG 3,3 4156 1136656 Word Work File L 1 afpd 31010 0 8u REG 3,3 55296 1136647 Maintenanc.fp5 smbd 31386 0 9u REG 3,3...

Hi I've a problem with the following example: library(tcltk) .Tcl("array unset tclArray") myRarray <- matrix(1:1000, ncol=20) for (i in (0:49)) for (j in (0:19)) .Tcl(paste("set tclArray(",i,",",j,") ",myRarray[i+1,j+1],sep="")) tt&lt...

...many equations (more than cells in matrix A) the system has no solutions. A is transition matrix (stochastic matrix) or markov process, so the sum of each row = 1 and each entry is probability (aij in <0;1>). I tried to estimate A by using constrOptim the following way, but apparently it won't work on matrices. fr <- function(x) { x%*%matrix(c(2,5,6), 3,1)-matrix(c(5,4,2), 3,1) x%*%matrix(c(6,2,3), 3,1)-matrix(c(1,1,1), 3,1) x%*%matrix(c(6,1,2), 3,1)-matrix(c(3,4,1), 3,1) } constrOptim(matrix(c(0.5,0.4,0.1,0.2,0.3,0.5,0.5,0.2,0.3),3,3), fr, NULL, ui=matrix(c(1,0,0,0,1,0,0,0,1),3,3...

Dear Manager: Thanks in advance for your interest, We mainly produces are Indole series (indole, 3,3'-Methylenebisindole , 5-methoxy indole) Indole >99% POWDER loss on drying: 1% white slight yellow crystalline powder CRYSTAL melting point: 51-53 loss on drying: 0.5% white sheetform crystal 3,3'-Methylenebisindole...

Hi there, I have a vector and would like to create a data frame, which contains all unique combination of two elements, regardless of order. myVec <- c(1,2,3) what expand.grid does: 1,1 1,2 1,3 2,1 2,2 2,3 3,1 3,2 3,3 what I would like to have 1,1 1,2 1,3 2,2 2,3 3,3 Can anybody help?

Dear All, I have written the following programs to find a non-singular (10*10) covariance matrix. Here is the program: nitems <- 10 x <- array(rnorm(5*nitems,3,3), c(5,nitems)) sigma <- t(x)%*%x inverse <- try(solve(sigma), TRUE) while(inherits(inverse, "try-error")) { x <- array(rnorm(5*nitems,3,3), c(5,nitems)) sigma <- t(x)%*%x inverse <- try(solve(sigma), TRUE) } The loop doesn't stop ... This means that...

?text says "'adj' allows _adj_ustment of the text with respect to '(x,y)'. Values of 0, 0.5, and 1 specify left/bottom, middle and right/top, respectively." But it looks like 0, 1 specify top, bottom respectively in the y direction. plot(1:4) text(2,2, "adj=c(0,0)", adj=c...

...e ayuden mucho en la web. Estoy haciendo calculos por grupos con data,table. Tengo un archivo (zp.res) con tres columnas que clasifican los datos (sol, con, dia) y una columna de datos numericos (media), de la siguiente forma: sol con dia media 1: con 0 1 -22.6 2: con 0 1 -36.6 3: con 0 1 -35.6 y quiero calcular el promedio de "media" (la col 4) agrupando con las variables sol,con,dia. Lo hago de la siguiente forma: med <- zp.res[, mean(media), by="sol,dia,con"] cuando reviso "med" esta todo bien, se han calculado las medias...

I'm making two plots, one on top of the other. On the upper plot, I do not print the x-label or the x-tick-label. To reduce space, I'd like to keep the white space between the two figures at a minimum. However, I can't figure out how to methodically reduce the space while maintaining the...