読者です 読者をやめる 読者になる 読者になる

RでDeep Learning(8)

正解できなかった問題の一部。 y <- predict(x_test) y_1 <- apply(y,1,which.max) t <- apply(t_test,1,which.max) error <- t!=y_1 num_image <- x_test[error,] num_t <- t_test[error,] num_predict <- y[error,] hyozi <- function(x){ a <- num[x,] b …

RでDeep Learning(7)

前回の続き(テストデータで評価) library(dplyr) library(R6) #パラメータの初期化 W1 <- matrix(rnorm(784*50),nrow=784)*0.01 W2 <- matrix(rnorm(50*10),nrow=50)*0.01 b1 <- matrix(numeric(50),nrow=1) b2 <- matrix(numeric(10),nrow=1) #データの読…

RでDeep Learning(6)

環境はWindows10 & R-3.3.3ゼロから作るDeep Learning ―Pythonで学ぶディープラーニングの理論と実装作者: 斎藤康毅出版社/メーカー: オライリージャパン発売日: 2016/09/24メディア: 単行本(ソフトカバー)この商品を含むブログ (13件) を見る誤差逆伝播法…

RでDeep Learning(5)

環境はWindows10 & R-3.3.3ゼロから作るDeep Learning ―Pythonで学ぶディープラーニングの理論と実装作者: 斎藤康毅出版社/メーカー: オライリージャパン発売日: 2016/09/24メディア: 単行本(ソフトカバー)この商品を含むブログ (13件) を見る2層ニューラ…

RでDeep Learning(4)

環境はWindows10 & R-3.3.3ゼロから作るDeep Learning ―Pythonで学ぶディープラーニングの理論と実装作者: 斎藤康毅出版社/メーカー: オライリージャパン発売日: 2016/09/24メディア: 単行本(ソフトカバー)この商品を含むブログ (13件) を見る非常に良い本…

RでDeep Learning(3)

環境はWindows10 & R-3.3.3ゼロから作るDeep Learning ―Pythonで学ぶディープラーニングの理論と実装作者: 斎藤康毅出版社/メーカー: オライリージャパン発売日: 2016/09/24メディア: 単行本(ソフトカバー)この商品を含むブログ (13件) を見る非常に良い本…

RでDeep Learning(2)

環境はWindows10 & R-3.3.3ゼロから作るDeep Learning ―Pythonで学ぶディープラーニングの理論と実装作者: 斎藤康毅出版社/メーカー: オライリージャパン発売日: 2016/09/24メディア: 単行本(ソフトカバー)この商品を含むブログ (13件) を見る非常に良い本…

RでDeep Learning(1)

環境はWindows10 & R-3.3.3ゼロから作るDeep Learning ―Pythonで学ぶディープラーニングの理論と実装作者: 斎藤康毅出版社/メーカー: オライリージャパン発売日: 2016/09/24メディア: 単行本(ソフトカバー)この商品を含むブログ (13件) を見る非常に良い本…

RでEutilsを使ってみる

library(dplyr) library(rvest) pubmedID <- "25517282" address <- "http://eutils.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi?db=pubmed&mode=XML&id=" myXML <- read_xml(paste(address,pubmedID,sep="")) #雑誌名 myXML %>% xml_nodes(xpath="//Journa…

Rのパイプ処理が使えない?

R

環境はWindows10 & R-3.3.3 原因は Help on topic 'filter' was found in the following packages: Return rows with matching conditions. (in package dplyr in library C:/R-3.3.3/library) Linear Filtering on a Time Series (in package stats in libr…

RでTensorFlow

data(iris) mydata <- subset(iris,Species=="setosa") x_data <- mydata[["Sepal.Length"]] y_data <- mydata[["Sepal.Width"]] glm(y_data~x_data) Call: glm(formula = y_data ~ x_data) Coefficients: (Intercept) x_data -0.5694 0.7985 Degrees of Fre…

Rの結果をPDFに出力する(文字化け対応)

R

Rの結果をテキストファイルとpngファイルに出力する。 それらをWordで受け取ってPDFファイルに出力する。 Rのコード data(iris) mydata <- iris 比較 <- c("Sepal.Length","Sepal.Width","Petal.Length","Petal.Width") counter=1 for (hikaku in 1:length(…

ExcelファイルをRに読み込む

R

クリップボード経由でファイルを読み込む方法 read.table(file="clipboard",header=T,sep="\t")

プロットのマーカーをきれいに表示する方法

R

plot(0, 0, xlim=c(0,3), ylim = c(0, 8), type = "n", axes = F, xlab = "", ylab = "") a<-rep(0:2,c(9,9,8)) b<-c(8:0,8:0,8:1) points(a,b,pch=0:25,cex=3) text(a+0.45,b,0:25)

biocGraph パッケージを使用して Rgraphviz で描いた図にリンクをはる方法

R

library(RCurl) library(XML) library(geneplotter) library(Rgraphviz) library(biocGraph) library(org.Hs.eg.db) gene_article <- function(geneID){ ID2symbol <- as.list(org.Hs.egSYMBOL) gene_name <- unlist(ID2symbol[geneID]) url <- paste("http:…

ImageMagickを使わずにWindowsでpng画像からgif画像を作成する

R

必要なパッケージは「png」と「caTools」 図形描画関数群を「draw.R」の名前であらかじめ保存 source("draw.R") library(png) library(caTools) for(i in 1:30){ file.name <- sprintf("%02d.png",i) png(file.name, width=960,height=720,bg="black") par(m…