Help us understand the problem. What is going on with this article?

回帰分析の有意水準を寿司で表す

More than 1 year has passed since last update.

回帰分析の結果には、有意水準を簡潔に表現する記号としてがよく添えられている。
だが、本質的にはどんな記号でもよいので、今回は🍣で有意性を表現してみる。

texregパッケージ

今回はRのtexregパッケージを使用する。
lmなどの回帰分析結果オブジェクトを引数に取り、LaTeXやhtml等の形式で分析結果を出力してくれる便利パッケージである。
install.packages("texreg")で難なくインストールできるはず。

htmlregでの回帰分析表の出力

ナンセンスな分析だが、irisデータセットを用いて、Petal.LengthPetal.WidthSepal.LengthSepal.WidthSpeciesで回帰した結果をhtml形式で出力する。
まずは普通にやってみる。

library(texreg)
data("iris")
reg <- lm(data = iris,
          formula = Petal.Length ~ Petal.Width + Sepal.Length + Sepal.Width + Species)
htmlreg(l = reg,
        file = "reg_table.html")

reg_table.htmlにはこのように表示される。

普通に回帰分析結果.PNG

star.symbolオプションで有意水準を表す記号を変えられるので、
🍣のサロゲートペア文字列の10進表現である&#127843を指定してやれば、

htmlreg(l = reg,
        file = "reg_table.html",
        star.symbol = "&#127843")

キャプチャ.PNG

🍣の花が咲く。

(texregやscreenregでのやり方はよくわかっていません)

参考

http://www.pandanoir.info/entry/2016/04/17/190000

Why do not you register as a user and use Qiita more conveniently?
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away
Comments
Sign up for free and join this conversation.
If you already have a Qiita account
Why do not you register as a user and use Qiita more conveniently?
You need to log in to use this function. Qiita can be used more conveniently after logging in.
You seem to be reading articles frequently this month. Qiita can be used more conveniently after logging in.
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away