魚眼レンズ
"fisheyeR"パッケージ(こちら) 魚眼レンズのWiki記事はこちら 使ってみよう library(fisheyeR) x<-y<-seq(from=-1,to=1,length=21) for(i in 1:length(x)){ for(j in 1:length(y)){ tmpx<-rep(x[i],length(y)) tmpy<-y tmpx2<-x tmpy2<-rep(y[j],length(x)) …
"fisheyeR"パッケージ(こちら) 魚眼レンズのWiki記事はこちら 使ってみよう library(fisheyeR) x<-y<-seq(from=-1,to=1,length=21) for(i in 1:length(x)){ for(j in 1:length(y)){ tmpx<-rep(x[i],length(y)) tmpy<-y tmpx2<-x tmpy2<-rep(y[j],length(x)) …