search for: carnivorescience

Hello all, I create the following matrix: m <- matrix(1:20, nrow = 10, ncol = 2) which looks like: [,1] [,2] [1,] 1 11 [2,] 2 12 [3,] 3 13 [4,] 4 14 [5,] 5 15 [6,] 6 16 [7,] 7 17 [8,] 8 18 [9,] 9 19 [10,] 10 20 Then, I want to remove randomly 2 rows among the ones where m[,1]<8 and m[,2]>12 I suppose the

...-B246-4B613726BC7F at gmail.com> <8b356f880812311042la28aef3t81ad09a3b14ce65 at mail.gmail.com> <495E2D95.9040502 at idi.ntnu.no> On 02/01/2009 10:07 AM, Wacek Kusnierczyk wrote: > Stavros Macrakis wrote: >> On Wed, Dec 31, 2008 at 12:44 PM, Guillaume Chapron >> <carnivorescience at gmail.com> wrote: >> >>>> m[-sample(which(m[,1]<8 & m[,2]>12),2),] >>>> >>> Supposing I sample only one row among the ones matching my criteria. Then >>> consider the case where there is just one row matching this criteria. S...

Hello, I create this array: x <- cbind(c(1:4, rep(0,10)), c(rep(0,4), 1:2, rep(3,6), 4,5)) [,1] [,2] [1,] 1 0 [2,] 2 0 [3,] 3 0 [4,] 4 0 [5,] 0 1 [6,] 0 2 [7,] 0 3 [8,] 0 3 [9,] 0 3 [10,] 0 3 [11,] 0 3 [12,] 0 3 [13,] 0 4 [14,] 0 5 I would like to do the following in vector syntax:

Hi, I'm unable to find a way to smooth data for a persp() graph. Example, suppose that I have data x,y,z like this: x <- 1:10 y <- 1:10 k <- 20 z <- outer(x, y, "*") + matrix( k*runif(100, -1, 1), 10, 10) persp(x, y, z, theta = 35, phi = 25) The graph is not very nice. Is there a way to smooth the z data so that at the end the graph would look more like something

Hi list, I'm running R CMD check for a package and I would like to save the .tex file that generates later the pdf documentation. I have only seen it appearing and disappearing quickly in a tmp folder but I have not been able to save it. I could not find any option to the check command to save it. Any idea how I can save this tex file? Thanks Guillaume

Hello, This code builds a simple example of 2 wireframes : require(lattice) x <- c(1:10) y <- c(1:10) g <- expand.grid(x = 1:10, y = 1:10, gr = 1:2) g$z <- c(as.vector(outer(x,y,"*")), rep(50,100)) wireframe(z ~ x * y, data = g, groups = gr, scales = list(arrows = FALSE)) However, the intersection between the wireframes is not properly drawn. Is there a way to fix this