Displaying 2 results from an estimated 2 matches for "simsl".
Did you mean:
sims
2024 Dec 31
1
mclapply hanging occasionally on macos
...sv("debug.csv"); rm(ignore.dataset)
useless.function <- function( ) {
y <- rnorm(3); x <- rnorm(3)
summary( lm( y ~ x )) ## useless
NULL
}
run30 <- function(i) {
message("run30=", i)
useless.function()
}
run30( 0 )
message("many mc")
simsl <- mclapply( 1:30, run30 )
```
this replicably does not count to 30 on both desktops, but does on the air.
not fun...can someone else try this program on a macos recent desktop,
and let me know whether I am alone here?
/iaw
2024 Dec 31
1
mclapply hanging occasionally on macos
...lt;- function( ) {
> y <- rnorm(3); x <- rnorm(3)
> summary( lm( y ~ x )) ## useless
> NULL
> }
>
> run30 <- function(i) {
> message("run30=", i)
> useless.function()
> }
>
> run30( 0 )
> message("many mc")
> simsl <- mclapply( 1:30, run30 )
Thank you for telling us which code you're running that eventually
hangs mclapply()! I see that your example involves running lm(), which
in turn involves BLAS and LAPACK operations. It could be that when you
first run lm() in the parent process, it starts threads...