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

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

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

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

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/";

xiaodaigh

== Enabling more styling options for actionButton == The Twitter Bootstrap allows for many class styles for buttons. http://getbootstrap.com/2.3.2/base-css.html#buttons

Added support for these styles to the actionButton.

xiaodaigh

library(shiny)



shinyServer(function(input, output, session) {
  
  # Partial example
  output$meh <- renderPrint({
    print("Press enter or focusout to update --- ")
    print(input$myTextInput )

xiaodaigh

# reading and writing files
# press ctrl+enter to send 
iris
fix(iris)

write.csv(iris,"c:/temp/iris.csv")
iris2 = read.csv("c:/temp/iris.csv")
nrow(iris2)

# get help

xiaodaigh

data <- read.csv("c:/bb2.csv")

cor.data <- cor(data[sapply(data,typeof)=="double"],method="spearman")

dist <- function(y,x) {
	if(is.null(dim(x))) {
		sqrt((x[1] - y[1])^2 + (x[2] - y[2])^2)
	} else {
		sqrt((x[,1] - y[1])^2 + (x[,2] - y[2])^2)
	}