shabbychef

suppressMessages({
	library(shiny)
	library(ggplot2)
	library(dplyr)
	library(tidyr)
	library(viridis)
	library(Rcpp)
})
init_x <<- c(-1,1)
init_y <<- c(-1,1)

shabbychef

library(dplyr)
library(ggplot2)
library(ggpattern)
library(cocktailApp)
data(cocktails)

# geometry of the tumblers
botwid <- 0.8
topwid <- 1.0
height <- 0.9

shabbychef

[Event "FIDE (25) 1961-1963"]
[Site "Curacao ct"]
[Date "1962.05.??"]
[Round "1"]
[White "Benko, P. (wh)"]
[Black "Fischer, R. (bl)"]
[Result "1/2-1/2"]
[ECO "A49"]

1. g3 g6 2. Bg2 Bg7 3. d4 c5 4. c3 Qb6 5. Nf3 Nf6 6. O-O O-O 7. d5 d6

shabbychef

#
# dockerfile to CRAN-check with r-base
#
# docker build --rm -t shabbychef/markcheck .
#
# docker run -it --rm --volume $(pwd):/srv:rw --volume /tmp:/tmp:rw shabbychef/markcheck
#
# Created: 2016.01.10
# Copyright: Steven E. Pav, 2016
# Author: Steven E. Pav

shabbychef

library(TurtleGraphics)
library(mazealls)

set.seed(1234)
turtle_init(900,2000,mode='clip')
turtle_up()
turtle_hide()
turtle_do({
  turtle_left(180)
  turtle_forward(700)

shabbychef

library(fromo)

set.seed(1234)
nel <- 20
xna <- rnorm(nel)
xna[xna < -0.5] <- NA
xall <- list(rnorm(nel),
             xna,
             as.integer(rnorm(nel,sd=100)))

shabbychef

shabbychef

library(matrixcalc)

# linear algebra utilities
# quadratic form x' A x
qform <- function(A,x) { t(x) %*% (A %*% x) }
# quadratic form x A x'
qoform <- function(A,x) { qform(A,t(x)) }
# outer gram: x x'
ogram <- function(x) { x %*% t(x) }
# A kron A

shabbychef

;;;;;;;;;;;;;;;;;;;;;;
; 
; hexagonal maze generator
; Created: 2017.09.22
; Copyright: Steven E. Pav, 2017
; Author: Steven E. Pav
;;;;;;;;;;;;;;;;;;;;;;


; move forward length * segs

shabbychef

To fwdit :length :segs
	forward :length*:segs
end
To bckit :length :segs
	back :length*:segs
end
To holey_line :length :segs
	local "whicho
  make "whicho (random 1 :segs)
	pendown