search for: groupidentifi

Displaying 2 results from an estimated 2 matches for "groupidentifi".

Did you mean: 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=funct...