Displaying 2 results from an estimated 2 matches for "outjunky".
Did you mean:
outjunk
2009 Aug 06
2
Repeatable, But Time Varying R GUI Crash
...{
junk = mat.or.vec(8,40)
junk[] = 1
mjunk = mat.or.vec(8,40)
mjunk[] = -1
PathA = tempdir()
conX = paste(PathA,"junkx",sep="\\")
conY = paste(PathA,"junky",sep="\\")
outJunk = file(conX, open="wb")
save(junk, file=outJunk)
close(outJunk)
outJunkY = file(conY, open="wb")
save(mjunk, file=outJunkY)
close(outJunkY)
sign = 1
for(i in 1:4000){
for(ii in 1:400){
sign = -sign
if(sign<0){
load(file=conX)
}else{
load(file=conY)
}
sum = junk[1,5] + mjunk[3,30]
}
cat(" junk = ",junk[1,5],sep="")
cat(&quo...
2009 Aug 06
1
[R] Repeatable, But Time Varying R GUI Crash (PR#13880)
...k[] = -1
>
> PathA = tempdir()
>
> conX = paste(PathA,"junkx",sep="\\")
>
> conY = paste(PathA,"junky",sep="\\")
>
> outJunk = file(conX, open="wb")
>
> save(junk, file=outJunk)
>
> close(outJunk)
>
> outJunkY = file(conY, open="wb")
>
> save(mjunk, file=outJunkY)
>
> close(outJunkY)
>
> sign = 1
>
> for(i in 1:4000){
>
> for(ii in 1:400){
>
> sign = -sign
>
> if(sign<0){
>
> load(file=conX)
>
> }else{
>
> load(file=conY)...