Displaying 2 results from an estimated 2 matches for "text2print".
Did you mean:
testprint
2011 Oct 22
0
simplified multicore by() function
...ot;, soln) ## omits naming.
if (ncol(rv)==1) rv <- as.vector(rv)
rv
}
function.sample <- function(d) cbind(d$x+d$y, d$x, d$y)
function.sample.simpler <- function(d) (d$x+d$y)
d <- data.frame( i=c( rep(1,2), rep(2,3), rep(3,4) ), x=rnorm(9), y=rnorm(9) )
report <- function( text2print, f.output ) {
cat("\n\n", text2print, ":\n"); print(f.output); cat("\n\n")
}
report( "the original R by() function", by( d, d$i, function.sample ))
report( "wrappled multicore by mc.by with user function returning
scalar", mc.by( d, d$i, function...
2011 Nov 11
0
mc.cores and computer settings on osx and linux
...omits naming.
if (ncol(rv)==1) rv <- as.vector(rv)
rv
}
if (0) {
function.sample <- function(d) cbind(d$x+d$y, d$x, d$y)
function.sample.simpler <- function(d) (d$x+d$y)
d <- data.frame( i=c( rep(1,2), rep(2,3), rep(3,4) ), x=rnorm(9), y=rnorm(9) )
report <- function( text2print, f.output ) {
cat("\n\n", text2print, ":\n"); print(f.output); cat("\n\n")
}
report( "the original R by() function", by( d, d$i, function.sample ))
report( "wrappled multicore by mc.by with user function returning
scalar", mc.by( d, d$i,...