This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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) %>% |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# data prep --------------------------------------------------------------- | |
library(data.table) | |
data(iris) | |
iris_copy <- copy(iris) | |
setDT(iris_copy) | |
iris_copy_ctree <- copy(iris_copy) | |
# ctree model ------------------------------------------------------------- |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
`infix_fn` <- function(left, right) { | |
#...some code | |
} |