Displaying 2 results from an estimated 2 matches for "groupidentifier".
2019 Apr 05
2
Deep Replicable Bug With AMD Threadripper MultiCore
...2=log(1:NR))
fwrite(notused, file="bugsample.csv")
stop("you can quit now and restart the program")
}
if (!exists("notused")) notused <- fread("bugsample.csv", nrows= Inf) ##
needed! Inf cannot be replaced by actual NR
sample <- data.frame( groupidentifier=c( rep(11111,2000), rep(22222, 4500 )
) )
sample$yvar <- sin(1:nrow(sample))
sample$xvar <- 1:nrow(sample)
testfun <- function(dl) {
with(dl, message("Working: ", first(groupidentifier), " with ",
nrow(dl)))
lapply( 1:nrow(dl), FUN=function(onedayindex) {...
2019 Apr 05
0
Deep Replicable Bug With AMD Threadripper MultiCore
...fwrite(notused, file="bugsample.csv")
| stop("you can quit now and restart the program")
| }
|
| if (!exists("notused")) notused <- fread("bugsample.csv", nrows= Inf) ##
| needed! Inf cannot be replaced by actual NR
|
|
| sample <- data.frame( groupidentifier=c( rep(11111,2000), rep(22222, 4500 )
| ) )
| sample$yvar <- sin(1:nrow(sample))
| sample$xvar <- 1:nrow(sample)
|
|
| testfun <- function(dl) {
| with(dl, message("Working: ", first(groupidentifier), " with ",
| nrow(dl)))
|
| lapply( 1:nrow(dl), FUN=functio...