Rで行列計算(行列の足し算)

R

sweepは速いと思っていたが違った。 (環境:Windows 10 64bit、R3.3.3) > system.time(test1 <- out + matrix(rep(b1,576000),nrow=576000,byrow=T)) ユーザ システム 経過 0.13 0.03 0.16 > system.time(test2 <- sweep(out,2,b1,FUN="+",check.margin=F)…

RでDeep Learning(10)

Convolutin層、Pooling層の実装 Convolution <- R6Class("Convolution", #stride=1 #pad=0 #filterサイズ=5×5 #filter数=30 public = list( W = NULL, b = NULL, x = NULL, col = NULL, dW = NULL, db = NULL, initialize = function(W,b){ self$W <- W self…

Rで行列計算(行列の積)

R

RjpWikiによると「crossprod」と「%*%」では前者のほうが計算が速いとのこと。 実際にやってみた。 (環境:Windows 7 64bit、R3.4.0) > x <- matrix(rnorm(25000000),c(5000,5000)) > y <- matrix(rnorm(25000000),c(5000,5000)) > system.time(a <- t(x) …

RでDeep Learning(9)

Rでim2colの実装(プーリング層はim2col_poolingとして別に実装) Rのdrop機能にはまった。 im2col <- function(input_data,filter_h,filter_w,stride=1,pad=0){ #imput_data:4次元配列からなるデータ #filter_h:フィルターの高さ #filter_w:フィルターの…

RでDeep Learning(8)

前回の続き。正解率はこの通り。 > test_acc [1] 0.9713 > train_acc [1] 0.9892667正解できなかった問題の一部。 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 <-…

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…

ExcelからWord内の単語を置換する

環境はWindows10 & Office 2013 Dim wdObj As Object Dim wdDoc As Object Set wdObj = CreateObject("Word.Application") wdObj.Visible = True wdObj.Activate Set wdDoc = wdObj.Documents.Open(ThisWorkbook.Path & "\test.docx") With wdDoc.Content.Fi…

Windows7にTensorFlowを入れてみた

Python 3.5.3をインストールその後Windowsのコマンドプロンプトに下記のコマンドを入力 pip3 install --upgrade tensorflow これだけでPythonでTensorFlowが使えるようになった。うまくいかない人はこちら windowsにネイティブサポートしたTensorflowを動か…

Pythonでフォルダ内のファイル一覧をパス無しで取得する

import glob import os files = glob.glob('D:/CEN_list/CEN_list/bin/Debug/file/*.txt') for f in files: (dirname,filename)=os.path.split(f) print(filename) ちなみにRでは path <- "D:/CEN_list/CEN_list/bin/Debug/file/" list.files(path)

Journalのタイトルをリストアップする

c#

using System.Text; using System.IO; namespace html { class Program { static void Main(string[] args) { StreamWriter writer = new StreamWriter("article.html", true, Encoding.UTF8); writer.WriteLine("<ol>"); for (int volume = 1; volume < 6; volu</ol>…

Journalのタイトルを一括ダウンロード

c#

namespace download { class Program { static void Main(string[] args) { for (int volume = 1; volume < 6; volume++) { for (int issue = 1; issue < 3; issue++) { for (int page = 1; page < 3; page++) { string url = "http://link.springer.com/jou…

英語学習のためのアプリを作る

c#

MainWindow.xaml <Window x:Class="WpfApplication1.MainWindow" xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" Title="英語問題" Height="350" Width="816" Initialized="Window_Initialized"> <Grid> </grid></window>

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のコマンドボタンの右クリックを有効にする方法

以下の二つは共存可能。 Private Sub CommandButton1_Click() MsgBox ("左クリック") End Sub Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 2 Then MsgBox ("…

ExcelVBAでカレンダーコントロールを自作する

簡単にコピペで再現できるようにボタンなどのコントロールの配置やそのプロパティはすべてコードに記述。フォームやモジュールを追加して下記をコピペするだけで完成。①カレンダーフォーム「Calender」を追加する Option Explicit Private Sub UserForm_Init…

Excelユーザーフォームに動的にコマンドボタンを追加する

クラスモジュール「Button_Setting」をあらかじめ追加しておく Option Explicit Public WithEvents original_button As CommandButton Private Sub original_button_Click() 'クリックイベントをここに記載 End Sub Option Explicit Sub ユーザーフォームを…

数独を解く(別解:バックトラック法)

c#

Form1.cs using System; using System.Linq; using System.Windows.Forms; namespace 数独バックトラック法 { public partial class Form1 : Form { Button[] IDbutton = new Button[81]; Button kensyo = new Button(); Button zikko = new Button(); Butto…

数独を解く(6日目)

c#

実行ボタンのClickイベントハンドラを記述する。 private void zikko_Click(object sender, EventArgs e) { Stopwatch sw = new Stopwatch(); sw.Start(); //////////////////////////////////////////////////////////////////////////////////////////////…

数独を解く(5日目)

c#

新規ボタンのClickイベントハンドラを記述する。 private void newGame_Click(object sender, EventArgs e) { foreach (Button a in IDbutton) { a.Text = ""; a.Enabled = true; } kensyo.Enabled = true; zikko.Enabled = false; }

数独を解く(4日目)

c#

検証ボタンのClickイベントハンドラを記述。 private void kensyo_Click(object sender, EventArgs e) { //数字の拾い出し int d; for (int i = 0; i < 81; i++) { int.TryParse(IDbutton[i].Text, out d); kazu[i] = d; } //検証を実行 if (kensyo_do()) { …

数独を解く(3日目)

c#

以下のプログラムをコンソールアプリケーションとして実行する。 「resource.txt」というファイルが作られる。 出来たファイルをおおもとのプログラムにリソースとして取り込む。 using System.Collections.Generic; namespace 下準備 { class Program { sta…

数独を解く(2日目)

c#

ユーザーフォームを追加する (input.cs) Loadのイベントハンドラを作成する必要あり。 using System; using System.Drawing; using System.Windows.Forms; namespace 数独をとく { public partial class input : Form { Button[] button = new Button[9]; pu…