2019-12-11 R-3.3.1:Usage:演算子:関数 Linux Scilab R-3.3.1:Usage:演算子:関数 - CQF - Yahoo!ブログ 2016/10/13(木) 午後 9:38 [CQF122] R-3.3.1:Usage:演算子:関数 コメント(22) (1 + 2 - 3 * 4) / 5^6 # 足して引いて掛けて割って・・・http://cse.naro.affrc.go.jp/takezawa/r-tips/r/03.html 2016/10/13(木) 午後 9:39[ ogw*og*3 ] > tan(30*pi/180)[1] 0.5773503> ta<- tan(30*pi/180)> ta[1] 0.5773503> atan(ta)*180/pi[1] 30> ta1 <- 1/sqrt(3)> ta[1] 0.5773503> (1 + 2 - 3 * 4) / 5^6 # 足して引いて掛けて割って・・・[1] -0.000576> 2016/10/13(木) 午後 9:41[ ogw*og*3 ] Input$ユーザーへ文字列を入力させるダイアログボックスを表示します。Input$( def$, text$ [, caption$] )●引数def$ … メッセージボックスの中の入力欄にあらかじめ表示しておく文字列を指定します。text$ … メッセージボックスの中に表示される文字列を指定します。caption$ … メッセージボックスのタイトルを指定します。省略すると「入力」となります。●戻り値入力された文字列を返します。http://www.inasoft.org/webhelp/rnsf7/HLP000424.html 2016/10/14(金) 午後 2:59[ ogw*og*3 ] Rで標準入力を取り込むhttp://schngtm.hatenablog.com/entry/2014/12/05/002224readline()標準入力から受け取った値(データ)を返す。()の中には、入力待ちのときに表示する文字列を入れられる。例:> you <- readline("Who are you?")Who are you? schngtm(↑入力待ち状態になるため名前を入力)> you (変数youの内容を表示)[1] "schngtm " (←名前が表示された)menu() 2016/10/14(金) 午後 3:07[ ogw*og*3 ] > inData <- scan()1: 10 20 30 -50 -20 0 # プロンプトは現在何番目の要素を入力しているかを示す番号7: # 改行、コントロールD,コントロールZなどで、入力終了Read 6 items # 6個入力> inData[1] 10 20 30 -50 -20 0> dame <- scan()1: 1 2 a b以下にエラー scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings, :scan() 関数は 'a real' を期待したのに、得られたのは 'a' でしたhttp://lang.sist.chukyo-u.ac.jp/classes/R/Rintro-03.html 2016/10/14(金) 午後 3:14[ ogw*og*3 ] 『 <- 』は代入(この場合『 = 』とも書けるが推奨はされていない)https://ja.wikipedia.org/wiki/R言語 2016/10/15(土) 午前 2:08[ ogw*og*3 ] LaTeX入門/最初の例https://texwiki.texjp.org/?LaTeX入門%2F最初の例Overview of Ghostscriptfile:///C:/Program%20Files%20(x86)/gs/gs9.19/doc/Readme.htm 2016/10/15(土) 午後 5:41[ ogw*og*3 ] TeXインストーラ3 plugin集http://www.math.sci.hokudai.ac.jp/~abenori/soft/readme/abtexinst_plugin.txt簡単LaTeXインストールWindows編(2016年4月版)51,309http://did2memo.net/2016/04/24/easy-latex-install-windows-10-2016-04/ 2016/10/15(土) 午後 5:43[ ogw*og*3 ] オープンソースRの活用www.r-analytics.jp/#!product1-0/c9fvオープンソースR(r-project.org)を拡張させ、より高速に動作するRevolution R Openは、レボリューション・アナリティクス社が開発およびテストを行っており、オープンソースとして提供されているものです。 既存のRのコードを変更する必要がなく、さらにCRANで ... 2016/10/15(土) 午後 5:46[ ogw*og*3 ] plot(ff[plot_ff], freq[plot_ff],main = "合成波", type = "l", col = "purple");http://d.hatena.ne.jp/samurai_0517/20110118/1295349084警告メッセージ:xy.coords(x, y, xlabel, ylabel, log) で:複素数の虚部は、コネクションで捨てられました> 2016/10/18(火) 午後 9:16[ ogw*og*3 ] 統計ソフトRでFFTして遊ぼう -コンプレッサーの周波数特性-http://d.hatena.ne.jp/negikey/20110217/1297891987 2016/10/18(火) 午後 9:26[ ogw*og*3 ] power = abs(fft(wave))http://blogs.yahoo.co.jp/igproj_fusion/11310631.html 2016/10/19(水) 午後 1:21[ ogw*og*3 ] WAVE Sample Fileshttp://www-mmsp.ece.mcgill.ca/documents/audioformats/wave/samples.html 2016/10/19(水) 午後 1:22[ ogw*og*3 ] Index of /gnu/octave/windowshttps://ftp.gnu.org/gnu/octave/windows/ 2016/10/19(水) 午後 3:08[ ogw*og*3 ] > library(tuneR)> mywave <- readWave("H:\\eng-noise\\eng-sound-cut-02.wav")警告メッセージ:1: readChar(con, 4) で:UTF-8 以外のマルチバイトロケールではバイト型でのみ読み込み可能です2: readChar(con, 4) で:UTF-8 以外のマルチバイトロケールではバイト型でのみ読み込み可能です3: readChar(con, 4) で:UTF-8 以外のマルチバイトロケールではバイト型でのみ読み込み可能です4: readChar(con, 4) で:UTF-8 以外のマルチバイトロケールではバイト型でのみ読み込み可能です 2016/10/21(金) 午前 11:25[ ogw*og*3 ] > mywaveWave ObjectNumber of Samples: 1330945Duration (seconds): 30.18Samplingrate (Hertz): 44100Channels (Mono/Stereo): StereoPCM (integer format): TRUEBit (8/16/24/32/64): 16 2016/10/21(金) 午前 11:25[ ogw*og*3 ] > spec_mywave <- fft(mywave @left)> plot(abs(spec_mywave)+ spec_mywave <- fft(mywave @left)エラー: 想定外のシンボルです in:"plot(abs(spec_mywave)spec_mywave"> plot(abs(spec_mywave))> plot(abs(spec_mywave),xlim=c(0, 200000))> 2016/10/21(金) 午前 11:54[ ogw*og*3 ] > str(mywave)Formal class 'Wave' [package "tuneR"] with 6 slots..@ left : int [1:1330945] 1770 1660 1412 1102 1178 1588 1810 1628 1072 172 .....@ right : int [1:1330945] 1386 1230 1000 792 950 1416 1720 1648 1200 380 .....@ stereo : logi TRUE..@ samp.rate: int 44100..@ bit : int 16..@ pcm : logi TRUEhttps://oku.edu.mie-u.ac.jp/~okumura/stat/sound.htmlhttps://cran.r-project.org/web/packages/tuneR/tuneR.pdf 2016/10/21(金) 午後 0:22[ ogw*og*3 ] 心理実験のデータ解析http://ja.nishimotz.com/r-project 2016/10/21(金) 午後 1:36[ ogw*og*3 ] str(mywave) するとモノラルファイルは left にデータを読み込んでいるmywave は Formal クラスであるhttp://ja.nishimotz.com/r-project 2016/10/21(金) 午後 4:36[ ogw*og*3 ] Windows で pdftksince 2013-03-22pdftk_server-1.45-windows-setup.msi をインストールして、 "C:\Program Files (x86)\PDF Labs\PDFtk Server\bin" に PATH を通す。http://ja.nishimotz.com/pdf 2016/10/21(金) 午後 4:39[ ogw*og*3 ] RjpWikiとはhttp://www.okadajp.org/RWiki/Installers Size Date MD5RStudio 0.99.903 - Windows Vista/7/8/10https://www.rstudio.com/products/rstudio/download3/ 2016/10/25(火) 午前 1:33[ ogw*og*3 ] トラックバック(1) トラックバックされた記事 R-3.3.1:Usage:>RStudioも使える? R-3.3.1:Usage: RStudioも使える? 使い勝手がよくなって、その反面は?... 2016/10/25(火) 午前 8:35 [ CQF ] <NI:Infinity:QX50:VC-T:
コメント(22)
(1 + 2 - 3 * 4) / 5^6 # 足して引いて掛けて割って・・・
http://cse.naro.affrc.go.jp/takezawa/r-tips/r/03.html
2016/10/13(木) 午後 9:39[ ogw*og*3 ]
> tan(30*pi/180)
[1] 0.5773503
> ta<- tan(30*pi/180)
> ta
[1] 0.5773503
> atan(ta)*180/pi
[1] 30
> ta1 <- 1/sqrt(3)
> ta
[1] 0.5773503
> (1 + 2 - 3 * 4) / 5^6 # 足して引いて掛けて割って・・・
[1] -0.000576
>
2016/10/13(木) 午後 9:41[ ogw*og*3 ]
Input$
ユーザーへ文字列を入力させるダイアログボックスを表示します。
Input$( def$, text$ [, caption$] )
●引数
def$ … メッセージボックスの中の入力欄にあらかじめ表示しておく文字列を指定します。
text$ … メッセージボックスの中に表示される文字列を指定します。
caption$ … メッセージボックスのタイトルを指定します。省略すると「入力」となります。
●戻り値
入力された文字列を返します。
http://www.inasoft.org/webhelp/rnsf7/HLP000424.html
2016/10/14(金) 午後 2:59[ ogw*og*3 ]
Rで標準入力を取り込む
http://schngtm.hatenablog.com/entry/2014/12/05/002224
readline()
標準入力から受け取った値(データ)を返す。
()の中には、入力待ちのときに表示する文字列を入れられる。
例:
> you <- readline("Who are you?")
Who are you? schngtm
(↑入力待ち状態になるため名前を入力)
> you (変数youの内容を表示)
[1] "schngtm " (←名前が表示された)
menu()
2016/10/14(金) 午後 3:07[ ogw*og*3 ]
> inData <- scan()
1: 10 20 30 -50 -20 0 # プロンプトは現在何番目の要素を入力しているかを示す番号
7: # 改行、コントロールD,コントロールZなどで、入力終了
Read 6 items # 6個入力
> inData
[1] 10 20 30 -50 -20 0
> dame <- scan()
1: 1 2 a b
以下にエラー scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings, :
scan() 関数は 'a real' を期待したのに、得られたのは 'a' でした
http://lang.sist.chukyo-u.ac.jp/classes/R/Rintro-03.html
2016/10/14(金) 午後 3:14[ ogw*og*3 ]
『 <- 』は代入(この場合『 = 』とも書けるが推奨はされていない)
https://ja.wikipedia.org/wiki/R言語
2016/10/15(土) 午前 2:08[ ogw*og*3 ]
LaTeX入門/最初の例
https://texwiki.texjp.org/?LaTeX入門%2F最初の例
Overview of Ghostscript
file:///C:/Program%20Files%20(x86)/gs/gs9.19/doc/Readme.htm
2016/10/15(土) 午後 5:41[ ogw*og*3 ]
TeXインストーラ3 plugin集
http://www.math.sci.hokudai.ac.jp/~abenori/soft/readme/abtexinst_plugin.txt
簡単LaTeXインストールWindows編(2016年4月版)51,309
http://did2memo.net/2016/04/24/easy-latex-install-windows-10-2016-04/
2016/10/15(土) 午後 5:43[ ogw*og*3 ]
オープンソースRの活用
www.r-analytics.jp/#!product1-0/c9fv
オープンソースR(r-project.org)を拡張させ、より高速に動作するRevolution R Openは、レボリューション・アナリティクス社が開発およびテストを行っており、オープンソースとして提供されているものです。 既存のRのコードを変更する必要がなく、さらにCRANで ...
2016/10/15(土) 午後 5:46[ ogw*og*3 ]
plot(ff[plot_ff], freq[plot_ff],main = "合成波", type = "l", col = "purple");
http://d.hatena.ne.jp/samurai_0517/20110118/1295349084
警告メッセージ:
xy.coords(x, y, xlabel, ylabel, log) で:
複素数の虚部は、コネクションで捨てられました
>
2016/10/18(火) 午後 9:16[ ogw*og*3 ]
統計ソフトRでFFTして遊ぼう -コンプレッサーの周波数特性-
http://d.hatena.ne.jp/negikey/20110217/1297891987
2016/10/18(火) 午後 9:26[ ogw*og*3 ]
power = abs(fft(wave))
http://blogs.yahoo.co.jp/igproj_fusion/11310631.html
2016/10/19(水) 午後 1:21[ ogw*og*3 ]
WAVE Sample Files
http://www-mmsp.ece.mcgill.ca/documents/audioformats/wave/samples.html
2016/10/19(水) 午後 1:22[ ogw*og*3 ]
Index of /gnu/octave/windows
https://ftp.gnu.org/gnu/octave/windows/
2016/10/19(水) 午後 3:08[ ogw*og*3 ]
> library(tuneR)
> mywave <- readWave("H:\\eng-noise\\eng-sound-cut-02.wav")
警告メッセージ:
1: readChar(con, 4) で:
UTF-8 以外のマルチバイトロケールではバイト型でのみ読み込み可能です
2: readChar(con, 4) で:
UTF-8 以外のマルチバイトロケールではバイト型でのみ読み込み可能です
3: readChar(con, 4) で:
UTF-8 以外のマルチバイトロケールではバイト型でのみ読み込み可能です
4: readChar(con, 4) で:
UTF-8 以外のマルチバイトロケールではバイト型でのみ読み込み可能です
2016/10/21(金) 午前 11:25[ ogw*og*3 ]
> mywave
Wave Object
Number of Samples: 1330945
Duration (seconds): 30.18
Samplingrate (Hertz): 44100
Channels (Mono/Stereo): Stereo
PCM (integer format): TRUE
Bit (8/16/24/32/64): 16
2016/10/21(金) 午前 11:25[ ogw*og*3 ]
> spec_mywave <- fft(mywave @left)
> plot(abs(spec_mywave)
+ spec_mywave <- fft(mywave @left)
エラー: 想定外のシンボルです in:
"plot(abs(spec_mywave)
spec_mywave"
> plot(abs(spec_mywave))
> plot(abs(spec_mywave),xlim=c(0, 200000))
>
2016/10/21(金) 午前 11:54[ ogw*og*3 ]
> str(mywave)
Formal class 'Wave' [package "tuneR"] with 6 slots
..@ left : int [1:1330945] 1770 1660 1412 1102 1178 1588 1810 1628 1072 172 ...
..@ right : int [1:1330945] 1386 1230 1000 792 950 1416 1720 1648 1200 380 ...
..@ stereo : logi TRUE
..@ samp.rate: int 44100
..@ bit : int 16
..@ pcm : logi TRUE
https://oku.edu.mie-u.ac.jp/~okumura/stat/sound.html
https://cran.r-project.org/web/packages/tuneR/tuneR.pdf
2016/10/21(金) 午後 0:22[ ogw*og*3 ]
心理実験のデータ解析
http://ja.nishimotz.com/r-project
2016/10/21(金) 午後 1:36[ ogw*og*3 ]
str(mywave) すると
モノラルファイルは left にデータを読み込んでいる
mywave は Formal クラスである
http://ja.nishimotz.com/r-project
2016/10/21(金) 午後 4:36[ ogw*og*3 ]
Windows で pdftk
since 2013-03-22
pdftk_server-1.45-windows-setup.msi をインストールして、 "C:\Program Files (x86)\PDF Labs\PDFtk Server\bin" に PATH を通す。
http://ja.nishimotz.com/pdf
2016/10/21(金) 午後 4:39[ ogw*og*3 ]
RjpWikiとは
http://www.okadajp.org/RWiki/
Installers Size Date MD5
RStudio 0.99.903 - Windows Vista/7/8/10
https://www.rstudio.com/products/rstudio/download3/
2016/10/25(火) 午前 1:33[ ogw*og*3 ]