R_old_tips3 の変更点 - アールメカブ

アールメカブ


R_old_tips3 の変更点


#author("2019-07-17T09:03:48+09:00","","")
[[R_old_tips2]]

[[Rサーチ:http://seekr.jp/]]

[[R関係のスライドやビデオ>R_Slide_Video]]

 # $ fc-list : family
 # $ xlsfonts -fn -ipamona-gothic-*-*-*-*-*-*-*-*-*-*-*-*
 
  grDevices::X11.options(
    fonts=c("-ipamona-gothic-*-*-*-*-*-*-*-*-*-*-*-*", ## "-kochi-gothic-%s-%s-*-*-%d-*-*-*-*-*-*-*",
                        "-adobe-symbol-medium-r-*-*-%d-*-*-*-*-*-*-*"))
   grDevices::pdf.options(family="Japan1GothicBBB")
   grDevices::ps.options(family="Japan1GothicBBB")

// grDevices::X11.options(fonts = c("-*-gothic-%s-%s-normal--%d-*-*-*-*-*-*-*",
//   "-adobe-symbol-*-*-*-*-%d-*-*-*-*-*-*-*"))
//ps.options(family= "Japan1")# 2010 06 01 Ubuntu 10.04 

//sazanamiがいやんばかんと言うことだったと思いますので, IPAfont等を持って来て(例えば/usr/local/share/fonts/ipafontにほりこむ)もらって, /etc/ghostscript/cidfmap.ja に
///KozMinPro-Regular-Acro << /FileType /TrueType /Path (/usr/local/share/fonts/ipafont/ipam.ttf) /CSI [(Japan1) 6] >> ;
//みたいに記述すれば良いと思います. -

#contents

//http://gensen.dl.itc.u-tokyo.ac.jp/
//http://cse.niaes.affrc.go.jp/miwa/ja/R/setup290/index.html
//http://www2.hyo-med.ac.jp/~tanimura/R/R.html





* 自作パッケージ [#x2383529]
- &size(20){&color(blue){[[RMeCab]]パッケージ};}; 
データ解析・グラフィックス環境 &size(18){[[R:http://cran.md.tsukuba.ac.jp/]]}; から日本語形態素解析ソフト''&color(blue){和布蕪};( [[MeCab:http://mecab.sourceforge.net/]] )''を呼び出して使うインターフェイス
-- [[R2MeCab]] :[[RMeCab]]のサブセット.実装関数は三つだけです.

-&size(20){&color(blue){[[RCaBoCha]]パッケージ};}; 
データ解析・グラフィックス環境 &size(18){[[R:http://cran.md.tsukuba.ac.jp/]]}; から日本語係り受け判定ソフト''&color(blue){南瓜};( [[CaBoCha:http://sourceforge.net/projects/cabocha/]] )''を呼び出して使うインターフェイス
//** [[R_source>RSource]] [#p537302d]

* Rを最新版にした結果、RExcel が起動しなくなった場合 [#p9ecaa9a]

R を管理者権限で実行し

+ R のメニュー パッケージ を使って Rcmdr をインストール
+ R のメニュー パッケージ を使って RExcelInstaller をインストール
+ library(RExcelInstaller) を実行
+ installRExcel() を実行する
+ Setup ウイザードの指示に従って next,  install をクリックしていく
+ 念のため RExcel を管理者権限で実行

以上です


RExcel を含め、古いRにインストールしていたパッケージをすべて新しい環境に移したい場合は


http://sunsite.univie.ac.at/rcom/ 
トップメニュー Wiki -> 左フレーム How to upgrade R with our packages installed

その他,[[中澤先生のサイト:http://phi.med.gunma-u.ac.jp/swtips/R.html]]も参照ください


* [[RExcel]] [#ve2b7ff1]

* R の参考書 [#b1682569]
//&htmlinsert(amazontext,asin=,text=); 
-&htmlinsert(amazontext,asin=4627848412,text=『Rによるテキストマイニング入門』森北出版); :R でコーパス・テキスト・言語処理を行うための入門書ですが,第3章にRの包括的な入門があります.
-&htmlinsert(amazontext,asin=4431712186,text=U・リゲス著『Rの基礎とプログラミング技法』シュプリンガー社); 中級者になるために.
-&htmlinsert(amazontext,asin=4431713123,text=B・エヴェリット著『RとS-PLUSによる多変量解析』シュプリンガー社); 解析をばりばり行うために.
-&htmlinsert(amazontext,asin=4431100474,text=P・スペクター著『Rデータ自由自在』シュプリンガー社); データをばりばり処理するために.
-&htmlinsert(amazontext,asin=4274067572,text=青木繁伸『Rによる統計解析』オーム社); R のプログラミングテクニックを学ぶために.
- &htmlinsert(amazontext,asin=4627096011,text=金明哲『Rによるデータサイエンス』森北書店); R での解析手法に慣れるために.
- &htmlinsert(amazontext,asin=4777511847,text=舟尾暢男『データ解析環境「R」』工学社); とにかく R を使ってみたい.
-&htmlinsert(amazontext,asin=4894717573,text=中澤港『Rによる統計解析の基礎』ピアソンエデュケーション); 統計学と R を同時に学びたい.


* 資料 [#sb73f487]
- [[統計数理研究所公開講座:http://www.ism.ac.jp/lectures/21n.html]]

準備途上 Windows 用実行ファイル &ref(ism20091124.R); 


-第91回行動計量シンポジウム  &ref(管理者/TextMining2.pdf);
-行動計量学会第35回全国大会 関係 (チュートリアルpdf &ref(管理者/HowToR.pdf); &発表pdf &ref(管理者/bsj2007.pdf); )
//&発表pdf):http://150.59.18.68/]]
-[[統計的言語処理]]
- ラプラス近似.[[ここによいメモ:http://d.hatena.ne.jp/triadsou/20090217/1234865055]]

--------------------------------







&size(22){R についての最近のメモ}; 
//CENTER:&size(22){&color(red){R を使い始めた頃からのメモ};}; 
////////////////////////////////
//////////////////////////////
//-[[R_入力ソースの判定]]

*************** [#g26842d3]

*[[RとEmacsとGDBでデバッグ>http://rmecab.jp/new/?p=413]] [#t5cc9b8a]

*[[Rcpp]] [#v4afd978]

*[[Rcpp_DataFrame]] [#w5039e37]

* Rの正規表現で URL 抽出. [#o3492630]
とりあえず,手っ取り早くこんなもん.ただし,抽出できない場合もあるので注意.

 str <- "これはhttp://cran.r-project.org/で,あれはhttp://www.yahoo.co.jp/です."
 
 tmp <- gregexpr ("https?://.+/(.+/)*?", str)
 substring(str, tmp[[1]], tmp[[1]] + attr (tmp[[1]],  'match.length') -1)



*[[Rでシフト演算>R_Shift]] [#y94fde7b]

*[[animation]] [#e350c871]
* [[RHIPE - R and Hadoop Integrated Processing Environment:http://www.stat.purdue.edu/~sguha/rhipe/]] [#w6de7ec1]
* [[Putting Robust Standard Errors into LaTeX Tables An Extension of mtable:http://www.r-bloggers.com/putting-robust-standard-errors-into-latex-tables-an-extension-of-mtable/]] [#d8dd009b]

* [[Building and checking R source packages for Windows:http://win-builder.r-project.org/]] [#b85d86a3]

*[[R 2.12 to 2.13 package upgrade:http://www.r-bloggers.com/r-2-12-to-2-13-package-upgrade/]] [#zcf739b1]


*[[How to upgrade R on windows 7:http://www.r-bloggers.com/how-to-upgrade-r-on-windows-7/]] [#b3ad4419]

*[[Server版RStudio Ubuntu]] [#zd988f76]

*[[分割表をもとのデータに>ConvertTableToRawData]] [#k402aba2]

*[[Rで曜日と月の数を数える:]] [#jb3978bd]

*[[CRANberries:http://dirk.eddelbuettel.com/blog/2011/01/23/#cranberries_tweets]] [#z8786505]

*[[zapsmall]] [#j74a01f9]


*[[R_Connection]] [#x84cba65]

*[[R_sqLite_Excel]] [#y7e7d66e]

*[[if_else]] [#r32eaf2c]

*[[rawToChar]] [#v9ecf77e]

*[[Unicode_utf8]] [#f06a440a]

*[[ReferenceClasses]] [#l6ddcd31]

とりあえず[[ここを参考:http://www.inside-r.org/r-doc/methods/ReferenceClasses]]にサンプルを実行してみる

 ## a simple editor for matrix objects.  Method  $edit() changes  some
 ## range of values; method $undo() undoes the last edit.
 mEditor <- setRefClass("matrixEditor",
      fields = list( data = "matrix",
        edits = "list"),
      methods = list(
     edit = function(i, j, value) {
       ## the following string documents the edit method
       'Replaces the range [i, j] of the
        object by value.
        '
         backup <-
             list(i, j, data[i,j])
         data[i,j] <<- value
         edits <<- c(list(backup),
                     edits)
         invisible(value)
     },
     undo = function() {
       'Undoes the last edit() operation
        and update the edits field accordingly.
        '
         prev <- edits
         if(length(prev)) prev <- prev[[1]]
         else stop("No more edits to undo")
         edit(prev[[1]], prev[[2]], prev[[3]])
         ## trim the edits list
         length(edits) <<- length(edits) - 2
         invisible(prev)
     }
     ))
 
 xMat <- matrix(1:12,4,3)
 xx <- mEditor$new(data = xMat)
 xx$edit(2, 2, 0)
 xx$data
 xx$undo()
 mEditor$help("undo")
 stopifnot(all.equal(xx$data, xMat))
 
 ## add a method to save the object
 mEditor$methods(
     save = function(file) {
       'Save the current object on the file
        in R external object format.
       '
         base::save(.self, file = file)
     }
 )  
  
 tf <- tempfile()
 xx$save(tf) #$

*[[Rcpp]] [#i282f9f6]


*[[疎行列を作成する>Sparse_Document_Term_Matrix]] [#jba11081]

* [[boxplot]] [#l2d153b8]

* 適合度の検定における最小期待値 [#i53dc7f0]
期待値が5未満のセルが20%あるといけないなどというが,一度,この根拠をしらべてみたことがある.このWikiのどこかにあるはずなのだが,みつからない.で,[[青木先生のサイトに情報:http://aoki2.si.gunma-u.ac.jp/lecture/Cross/warning.html]]があった.



* CS3とEPS [#o03d3f54]
Rで作成した日本語入りEPSを, Windows の CS3 で確実に読みこんでもらうには

 library(Cairo)
 CairoFonts(
   regular="IPA P明朝,IPAPMincho:style=Regular",
   bold="IPA Pゴシック,IPAPGothic:style=Regular,Bold",
   italic="IPA P明朝,IPAPMincho:style=Regular,Italic",
   bolditalic="IPA Pゴシック,IPAPGothic:style=Regular,Bold Italic,BoldItalic")
 
 CairoPS(file = "/home/ishida/cairo.ps", bg="white")
 plot(1:10, 1:10, main ="テスト", cex = 1.2)
 dev.off()
 embedFonts(file ="~/cairo.ps", outfile ="~/Cairo2.eps"  )

としておく.[[ここ>R_fromOldHtml3#nc4d8299]]も参照

* PDF [#j326112e]
根本的解決に至っていないが R 上で日本語を含む PDF を作成できない.
とりあえず

 library(Cairo)
 # CairoFonts(regular="VL ゴシック,VL Gothic:style=regular")
 CairoFonts(regular="IPA P明朝,IPAPMincho:style=Regular")
 CairoPS(file = "Fig", bg="white")

   hogehoge

 dev.off()

として ps を作成し,変換しておく

* RCurl [#t0c8b845]
twitteR のインストールに必要だが,'curl' と 'libcurl3 に加えて,以下のコマンドの出力が示すように libcurl4-openssl-dev が必要

 $ apt-cache search libcurl3-dev
 libcurl4-openssl-dev - Development files and documentation for libcurl (OpenSSL)
 $ apt-get install libcurl4-openssl-dev

[[ここ:https://stat.ethz.ch/pipermail/r-help/2007-October/143351.html]] を参照

* if の返り値 [#y0541570]
 x <- 0
 y <- if(x + 1){
   x + 100
 }else{
   x - 100
 }
 y
 [1] 100
 # 
 y <- if(x + 1) cat("TRUE\n")# else cat("FALSE\n")
 if(y <- x + 1) cat("TRUE\n") else cat("FALSE\n")

* lme による分散成分の標準誤差 [#z6bda2d5]
-- Rjpwikiに lme の出力から分散成分の標準誤差を取り出したいという議論があるが,Batesがしばしば指摘しているよう[[A:http://www.mail-archive.com/r-help@stat.math.ethz.ch/msg67236.html]],[[B:https://stat.ethz.ch/pipermail/r-sig-mixed-models/2010q1/003373.html]]) に,確率区間を使うべき.確率区間の計算は interval.lme() だから getS3method("interval", "lme") を実行して,一度アルゴリズムを確認すれば良いかなと思うのだけど.


* .Primitives [#p4ecb1dd]
2校演算子の定義するためにはクオートするが,呼び出しは以下のように,ダブルコーテーションも使えるのか

 > str(`*`)
 function (e1, e2)  
 > get("*")
 function (e1, e2)  .Primitive("*")
 > `*`(3,3)
 [1] 9
 > get("*")
 function (e1, e2)  .Primitive("*")
 > "*"(3,3)
 [1] 9

 > `like this` <- 2
 > "like that" <- 3
 > print(`like this`)
 [1] 2
 > print("like that")
 [1] "like that"

[[R-helpより:http://www.mail-archive.com/r-help@stat.math.ethz.ch/msg76430.html]]


*[[Cairo]] [#g9b156f4]