xiaodaigh

using CSV, Feather, JLD2, JLSO, JDF, FileIO, Blosc, StatsPlots
using DataFrames, WeakRefStrings # required for JLD2, JDF
Blosc.set_num_threads(6)

gen_benchmark(dirpath, largest_file, outpath, data_label; delim = ',', header=true) = begin
    if !isdir(outpath)
        mkpath(outpath)
    end

xiaodaigh

using JDF
using CSV, DataFrames
using Serialization:serialize,deserialize

using BufferedStreams
@time a = CSV.read("C:/Users/ZJ.DAI/Documents/git/format-wars/data/Performance_2016Q4.txt", delim = '|', header = false);

io = BufferedOutputStream(open("c:/data/bin.bin","w"))
@time serialize(io, a)
close(io)

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
}