kohske

# Reproducible Example of
# Curvature Blindness Illusion
# Kohske Takahashi, Chukyo University, Japan
# ref: http://journals.sagepub.com/doi/abs/10.1177/2041669517742178

library(grid)
grid.newpage()

# some params
NY = 48

kohske

---
title: "Untitled"
author: '@kohske'
date: "2017/10/11"
output: beamer_presentation
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```

kohske

library(ggplot2)
d = data.frame(expand.grid(x=1:10, g=factor(1:2)), y=rnorm(2*10))
ggplot(d, aes(x=x, y=y, colour=g, group=interaction(x<5, g))) + geom_line() + geom_point()

kohske

library(ggplot2)
d = data.frame(expand.grid(x=letters[1:4], g=factor(1:2)), y=rnorm(8))
p = ggplot(d, aes(x=x, y=y, colour=as.numeric(g))) + geom_line() + geom_point()
g = ggplot_build(p)
g$data

kohske

head(housetasks)
rownames(housetasks) = paste("日本語", 1:nrow(housetasks))
res.ca <- CA(housetasks, graph=FALSE)
r = fviz_ca_biplot(res.ca)
for (i in seq_along(r$layers)) {
  if (inherits(r$layers[[i]]$geom, "GeomText")) {
    r$layers[[i]]$aes_params = c(r$layers[[i]]$aes_params, list(family = "Meiryo"))
  }
}
r

kohske

---
output: html_document
---

```{awk engine.opts="sample.txt > sample.tsv"}
{
	print $2, $3;
}
```

kohske

背景がグレイの領域には折れ線（三角波・ギザギザ・ジグザグ）と曲線（正弦波・ナミナミ・ウネウネ）が二本ずつ交互にあるように見えるが、実際は横線の形状は全て同じ曲線である。線は濃淡のグレイで描かれていて、折れ線に見えるものは「曲がり」のあたりで濃淡が切り替わっている。これにより「曲がり」が見落とされ、折れ線に見えてしまうらしい。

錯視量は極めて大きく、「本当に同じ形の線なんですけど・・・」と言っても、なかなか信じてもらえない。

背景が白や黒だと錯視量は激減する。「曲がり」のあたりで背景に対する明暗の反転が起こってることが、曲がり盲を引き起こしているようである。

線の「曲がり」知覚という視知覚の基本とも思われる処理の中で、このように単純な原因の「盲」現象を示すことは、視知覚の機序の解明という点でも科学的な意義が極めて大きい。

ヒト以外の動物でも同じ錯視が起こるという噂がある。

kohske

library(animation)
library(grid)
graphics.off()

N = 500
x = seq(0, 1, length.out = N)
xd = 30
NY = 36
ys = (0:NY/NY)[rep(c(F,T,T,F), length.out=NY)]
di = rep(c(1,1,-1,-1), length.out = NY)

kohske

---
title: "Seamless Use of Python with RMarkdown and PythonInR"
author: '@kohske'
date: "Oct. 10, 2015"
output: html_document
---

PythonInR http://pythoninr.bitbucket.org/
https://cran.r-project.org/web/packages/PythonInR/README.html

kohske

---
title: "RMarkdownでPythonInR"
author: '@kohske'
date: "2015年10月10日"
output: html_document
---

参考 https://speakerdeck.com/yamano357/tokyor51-lt