if (FALSE) {
set.seed(4669)
A = big.matrix(3, 2, type="double", init=1, dimnames=list(NULL,
c("alpha", "beta")), shared=FALSE)
dscal(ALPHA=2,Y=A)
A[,]
# The big.matrix file backings will be deleted when garbage collected.
rm(A)
gc()
}
Run the code above in your browser using DataLab