<br class="">
> Wiadomość napisana przez Daniel Cegiełka <<a href="mailto:daniel.cegielka@gmail.com" target="_blank" class="">daniel.cegielka@gmail.com</a>> w dniu 06.09.2019, o godz. 16:10:<br class="">
> <br class="">
<br class="">
> <br class="">
> 2) preallocation<br class="">
> <br class="">
> preallocate_matrix <- function(n)<br class="">
> {<br class="">
>     x <- matrix()<br class="">
>     length(x) <- 4 * n      # bid, ask, bid_size, ask_size<br class="">
>     dim(x) <- c(n, 4)       # see: ?dim<br class="">
>     return(x)<br class="">
> }<br class="">
> <br class="">
> > x <- preallocate_matrix(5)<br class="">
> > x<br class="">
>      [,1] [,2] [,3] [,4]<br class="">
> [1,]   NA   NA   NA   NA<br class="">
> [2,]   NA   NA   NA   NA<br class="">
> [3,]   NA   NA   NA   NA<br class="">
> [4,]   NA   NA   NA   NA<br class="">
> [5,]   NA   NA   NA   NA<br class="">
<br class="">
?matrix<br class="">
<br class="">
Usage<br class="">
matrix(data = NA, nrow = 1, ncol = 1, byrow = FALSE,<br class="">
dimnames = NULL)<br class="">
<br class="">
so we don't even need preallocate_matrix() function<br class="">
<br class="">
> x <- .xts(matrix(nrow = 5, ncol = 4), index = Sys.time() + 1:5)<br class="">
> x<br class="">
[,1] [,2] [,3] [,4]<br class="">
2019-09-06 17:07:27   NA   NA   NA   NA<br class="">
2019-09-06 17:07:28   NA   NA   NA   NA<br class="">
2019-09-06 17:07:29   NA   NA   NA   NA<br class="">
2019-09-06 17:07:30   NA   NA   NA   NA<br class="">
2019-09-06 17:07:31   NA   NA   NA   NA<br class="">
<br class="">
<br class="">
<br class="">
</blockquote></div>
</div></blockquote></div><br class=""></body></html>