Nothing
#!/usr/bin/env Rscript
library(Rclusterpp)
suppressMessages(require(inline))
allocate_matrix <- function(size) {
fx <- cxxfunction( signature(n = "integer"), '
typedef Eigen::Matrix<double, Eigen::Dynamic, Eigen::Dynamic, Eigen::RowMajor> matrix;
int size = as<int>(n);
matrix m(size, size);
m.setZero();
return wrap( m.rows() );
',
plugin = "Rclusterpp")
return(fx(size))
}
sizes = c(10, 100, 1000, 10000, 50000)
for (s in sizes) {
message("Creating ",s," x ",s," matrix...",appendLF=FALSE)
allocate_matrix(as.integer(s))
message(" successfully")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.