xiaodaigh

library(rayshader)
library(av)
library(future)
plan(multiprocess)


# set up an elevation matrix with a wall around the outside and a gap on each of
# the walls.
elmat1 = matrix(0, 500, 500)
elmat1[1:100, 1:200] = 3000

xiaodaigh

library(rayshader)
library(av)
elmat1 = matrix(0, 500, 500)
elmat1[200:400, 200:400] = 971.0

sunangle = 33
for(sunangle in 140:360) {
  elmat1 %>%
    sphere_shade %>%
    add_shadow(ray_shade(elmat1,zscale=3,maxsearch = 300, sunangle = sunangle),0.5) %>%

xiaodaigh

shared = rand(16)

bisort(shared) = begin
NUM = UInt(length(shared))

k = UInt(2)
while (k <= NUM)
  j = div(k,2)
  while(j >=1) 
    for tid in UInt(0):UInt(NUM-1)

xiaodaigh

https://vaex.readthedocs.io/en/latest/datasets.html

xiaodaigh

using StatsBase

const DIRS = [:left, :up, :right, :down]

function init_game()
    grid = zeros(Int8,4,4)    
    grid[rand(1:4),rand(1:4)] = rand2_1()
    grid[rand(1:4),rand(1:4)] = rand2_1()
    grid
end

xiaodaigh

# data prep ---------------------------------------------------------------
library(data.table)
data(iris)
iris_copy <- copy(iris)
setDT(iris_copy)
iris_copy_ctree <- copy(iris_copy)

# ctree model -------------------------------------------------------------

xiaodaigh

forwardflag <- function(bools, ...) {
  if(typeof(bools) != "boolean") {
    warning("input variable not of boolean type, the only other accepted type is 0 & 1")
  }
  forwardflag_(bools, ...)
}


forwardflag_ <- function(bools, period = 12) {
  stopifnot(period > 0)

xiaodaigh

`infix_fn` <- function(left, right) {
#...some code
}

xiaodaigh

# featherc
library(data.table)
library(feather)
library(future)
library(dplyr)
plan(multiprocess)
options(future.globals.maxSize = Inf)

split_feather <- function(feather_file, by = NULL, parts = parallel::detectCores()) {
  system.time(inputdata <- feather::read_feather(feather_file))

xiaodaigh

data a;
	do i = 1 to 10000;
		b = i;
		output;
	end;
run;

%include "path/to/split_into_columns.sas";

libname outlib "path/to/output/dataset/";