search for: robj

...be to get the column mean values for signaled rows (the ones with 1) As a very fresh "programmer" I have build a simple function in R which should not be very efficient indeed! It works well for current-dimension matrices, but it just not goes so well in huge ones. meanprob<-function(Robj){ NLINE<-dim(Robj)[1]; NCOLUMN<-dim(Robj)[2]; mprob<-c(rep(0,(NCOLUMN-1))); for (i in 2:NCOLUMN){ sumprob<-0; pa<-0; for (j in 1:NLINE){ if(Robj[j,1]!=0){ pa<-pa+1; sumprob<-Robj[j,i]+sumprob; } } m...

...g for sent messages: # 1=ready_for_task, 2=done_task, 3=exiting # Note the use of the tag for received messages: # 1=task, 2=done_tasks junk <- 0 done <- 0 while (done != 1) { # Signal being ready to receive a new task mpi.send.Robj(junk,0,1) # Receive a task task <- mpi.recv.Robj(mpi.any.source(),mpi.any.tag()) task_info <- mpi.get.sourcetag() tag <- task_info[2] if (tag == 1) { foldNumber <- task$foldNumber rss <- double(p)...

...843668 100644 --- a/drivers/gpu/drm/radeon/radeon_gem.c +++ b/drivers/gpu/drm/radeon/radeon_gem.c @@ -107,9 +107,12 @@ static int radeon_gem_set_domain(struct drm_gem_object *gobj, } if (domain == RADEON_GEM_DOMAIN_CPU) { /* Asking for cpu access wait for object idle */ - r = radeon_bo_wait(robj, NULL, false); - if (r) { - printk(KERN_ERR "Failed to wait for object !\n"); + r = reservation_object_wait_timeout_rcu(robj->tbo.resv, true, true, 30 * HZ); + if (!r) + r = -EBUSY; + + if (r < 0 && r != -EINTR) { + printk(KERN_ERR "Failed to wait for object:...

...task to be performed by a slave is on a subset of the original matrix, and due to its large size (nrow/ncol = 10-15k), it makes sense to only send the required subset of the matrix to each slave. How do I do this? For example, rather than broadcasting the whole of matrix m to all slaves: mpi.bcast.Robj2slave(m) Can I send a subset of the matrix (depending on what the tasks is) at the same time I send the task to the slaves e.g.: mpi.send.Robj(tasks[[1]], slave_id, 1) idx <- c(tasks[[1]]$start:tasks[[1]]$end) mpi.send.Robj(m[idx,idx], slave_id, 1) If so, how do I receive the two objects in th...

...the use of the tag for sent messages: # 1=ready_for_task, 2=done_task, 3=exiting # Note the use of the tag for received messages: # 1=task, 2=done_tasks junk <- 0 done <- 0 while (done != 1) { # Signal being ready to receive a new task mpi.send.Robj(junk,0,1) # Receive a task task <- mpi.recv.Robj(mpi.any.source(),mpi.any.tag()) task_info <- mpi.get.sourcetag() tag <- task_info[2] if (tag == 1) { foldNumber <- task$foldNumber rss <- double(p) for (i i...

...onstant functions. > > ?outer clearly states that FUN needs to be vectorized > > but function(x,y) 1 is not. > > It is easy to solve by wrapping the function in Vectorize(.): > >> x <- 1:3; y <- 1:4 > >> outer(x,y, function(x,y) 1) > Error in dim(robj) <- c(dX, dY) : > dims [product 12] do not match the length of object [1] > >> outer(x,y, Vectorize(function(x,y) 1)) > [,1] [,2] [,3] [,4] > [1,] 1 1 1 1 > [2,] 1 1 1 1 > [3,] 1 1 1 1 > > ---------------- > > So, you...

Hi, the function outer can not apply a constant function as in the last line of the following example: > xg <- 1:4 > yg <- 1:4 > fxyg <- outer(xg, yg, function(x,y) x*y) > fconstg <- outer(xg, yg, function(x,y) 1.0) Error in outer(xg, yg, function(x, y) 1) : dims [product 16] do not match the length of object [1] Of course there are simpler ways to construct a constant

...size >> PAGE_SHIFT; nouveau_bo_placement_set(nvbo, flags, 0); + acc_size = ttm_bo_dma_acc_size(nvbo->bo.bdev, size, sizeof(*nvbo)); + ret = ttm_bo_init(nvbo->bo.bdev, &nvbo->bo, size, type, &nvbo->placement, align >> PAGE_SHIFT, false, acc_size, sg, robj, nouveau_bo_del_ttm); @@ -318,7 +319,8 @@ nouveau_bo_new(struct nouveau_cli *cli, u64 size, int align, struct nouveau_bo *nvbo; int ret; - nvbo = nouveau_bo_alloc(cli, size, flags, tile_mode, tile_flags); + nvbo = nouveau_bo_alloc(cli, &size, &align, flags, tile_mode, + tile_flags)...

From: Thierry Reding <treding at nvidia.com> Hi Ben, these are fixes for a couple of issues that I've been running into when testing on various Tegra boards. The first two patches fix up issues in the fix that I had sent out earlier to fix the regression introduced in drm-misc-next. The first one is critical because it avoids a BUG_ON as reported by Ilia, while the second is less

...ght "outer" should be able to handle constant functions. ?outer clearly states that FUN needs to be vectorized but function(x,y) 1 is not. It is easy to solve by wrapping the function in Vectorize(.): > x <- 1:3; y <- 1:4 > outer(x,y, function(x,y) 1) Error in dim(robj) <- c(dX, dY) : dims [product 12] do not match the length of object [1] > outer(x,y, Vectorize(function(x,y) 1)) [,1] [,2] [,3] [,4] [1,] 1 1 1 1 [2,] 1 1 1 1 [3,] 1 1 1 1 ---------------- So, your "should" above must be read in the se...

...uot;outer" <- function (X, Y, FUN = "*", ...) { no.nx <- is.null(nx <- dimnames(X <- as.array(X))) dX <- dim(X) no.ny <- is.null(ny <- dimnames(Y <- as.array(Y))) dY <- dim(Y) if (is.character(FUN) && FUN=="*") { robj <- as.vector(X) %*% t(as.vector(Y)) dim(robj) <- c(dX, dY) } else { FUN <- match.fun(FUN) Y <- rep(Y, rep(length(X), length(Y))) X <- rep(X, length.out = length(Y)) robj <- array(FUN(X, Y, ...), c(dX, dY)) } ## no dimnames if both don'...

...text html latex mpi.abort text html latex mpi.apply text html latex example mpi.barrier text html latex mpi.bcast text html latex mpi.bcast.Robj text html latex mpi.bcast.cmd text html latex mpi.cart.coords text html latex example mpi.cart.create text html latex example mpi.cart.get text html latex exam...

Hello, I am using R, through rsruby, to create a graph and best fit line for a set of data points, regarding data collected in a Chemistry class. The problem is that although the graph functions perfectly properly, the best fit line will not work. I initially used code I pretty much copied from a website with a tutorial on this, which was: graphData.png("/code/Beer's-Law

Has anyone written subscripting methods for matrices which are indexed from zero? i.e. functions such as "[.zoffset" and "[<-.zoffset" which would allow, given an appropriate function "zmatrix" "zmatrix" <- function(...) { robj <- matrix(...) class(robj) <- "zoffset" robj } fred <- zmatrix(1:20, 4, 5) fred[0, 4] # would be 17 fred[3, ] <- NA # would set the last row to NA Many thanks, Jonathan. Jonathan Rougier Science Laboratories Department of Mathematical Sciences S...

Hello, I am working on a data set (already as a plm.data object) located here: http://econsteve.com/arch/plmWithDensity.Robj With the following R session: > library(plm) ... >load("plmWithDensity.Robj") >model <- plm(RATE ~ density08, data=plmWithDensity) Error: subscript out of bounds I am not understanding the "subscript out of bounds" error, as this is a balanced panel and there are n...

Just installed cwrsync 1.2.1 and I am getting this: C:\cwrsync>rsync -n -v -r /cygdrive/c/robj/pickmeup speedball3:/cygdrive/d/robj/pickmeup Failed to exec ssh : No such file or directory rsync error: error in IPC code (code 14) at pipe.c(81) rsync: connection unexpectedly closed (0 bytes read so far) rsync error: error in rsync protocol data stream (code 12) at io.c(189) Why in heaven'...

...reports. I used xtable to create some tables in the report. But now I would like to use the same snw file to generate an HTML version. The xtable output breaks the RweaveHTML driver. library(R2HTML) Sweave('analyseLFQ.Snw', driver = RweaveHTML) Error in match.arg(options$results, c("Robj", "html", "hide")) : 'arg' should be one of “Robj”, “html”, “hide” Any suggestions would be highly recommended. I.e. I am wondering can I include dynamically generated tables in Sweave output, using syntax independent of the renderer? regards Witold -- Wit...

On Wed, Aug 21, 2019 at 04:33:58PM +1000, Ben Skeggs wrote: > On Wed, 14 Aug 2019 at 20:14, Gerd Hoffmann <kraxel at redhat.com> wrote: > > > > Hi, > > > > > > Changing the order doesn't look hard. Patch attached (untested, have no > > > > test hardware). But maybe I missed some detail ... > > > > > > I came up with

...ect *obj); +void *radeon_gem_prime_vmap(struct drm_gem_object *obj); +void radeon_gem_prime_vunmap(struct drm_gem_object *obj, void *vaddr); + +static const struct drm_gem_object_funcs radeon_gem_object_funcs; + +static void radeon_gem_object_free(struct drm_gem_object *gobj) { struct radeon_bo *robj = gem_to_radeon_bo(gobj); @@ -85,6 +95,7 @@ int radeon_gem_object_create(struct radeon_device *rdev, unsigned long size, return r; } *obj = &robj->tbo.base; + (*obj)->funcs = &radeon_gem_object_funcs; robj->pid = task_pid_nr(current); mutex_lock(&rdev->gem.mut...

...l(nx <- dimnames(X <- as.array(X))) > >>> dX <- dim(X) > >>> no.ny <- is.null(ny <- dimnames(Y <- as.array(Y))) > >>> dY <- dim(Y) > >>> if (is.character(FUN) && FUN == "*") { > >>> robj <- as.vector(X) %*% t(as.vector(Y)) > >>> dim(robj) <- c(dX, dY) > >>> } > >>> else { > >>> FUN <- match.fun(FUN) > >>> Y <- rep(Y, rep.int(length(X), length(Y))) > >>> if (length(X...