nozma

(defun latex-to-google-chart-api (start end)
  (interactive "r")
  (let ((latex-expression (kill-region start end)))
    (insert-string
     (concat "<img src=\"http://chart.apis.google.com/shart?cnt=tx&chl="
             (w3m-url-encode-string (car kill-ring))
             "\" alt=\"\" />") )))

nozma

;; デフォルトのinit.elの末尾に追加
;; My Settings for gnupack {{{1
;; key mapping {{{2
;; C-hをバックスペースに
(keyboard-translate ?\C-h ?\C-?)
(global-set-key (kbd "C-x ?") 'help-command)
;; C-x bでミニバッファにバッファ候補表示
(iswitchb-mode t)
(iswitchb-default-keybindings)
;; C-kで行全体削除

nozma

-- 要XML Tools http://www.latenightsw.com/freeware/XMLTools2/
-- Last.fmユーザー名は適宜変更のこと

set username to "Rion778" -- Last.fm ユーザー名をセット
set max_playlist_length to 50 -- プレイリストの曲数の上限

set start_time to current date
set chart_filenames to {".LastFmChartWeekly", ".LastFmChartLast3months", ".LastFmChartLast6months", ".LastFmChartLast12months", ".LastFmChartToptracks"}
set chart_type to {"/weeklytrackchart", "/toptracks.xml?period=3month", "/toptracks.xml?period=6month", "/toptracks.xml?period=12month", "/toptracks.xml"}
set playlist_names to {"Last.fm - Weekly", "Last.fm - 3 months", "Last.fm - 6 months", "Last.fm - 12 months", "Last.fm - Overall"}

nozma

Option Explicit

Sub ClearMyStyle()
    '' 独自スタイルの削除
    Dim myst As Variant
    Dim myStNames() As Variant
    Dim st As Style
    Dim lg As ListGallery
    Dim i As Long
    

nozma

## --- 気温から飽和水蒸気圧を求める関数色々 ---
GofGra <- function(t){
  ## 入力：気温(℃)
  ## 出力：飽和水蒸気圧(hPa)
  10^
  (10.79574 * (1 - 273.16/(t + 273.15)) -
   5.02800 * log((t + 273.15)/273.16, 10) +
   1.50475 * 10^{-4} * {1-10^(-8.2969 * ((t + 273.15)/273.16 - 1))} +
   0.42873 * 10^{-3} * {10^(4.76955*(1 - 273.16/(t + 273.15))) - 1} +
   0.78614)

nozma

'' ----- Emacsモードの有効化と無効化 ---------------------
Sub EnableEmacsMode()
    Call AddKeyBindings("ForwardChar", wdKeyControl + wdKeyF)
    Call AddKeyBindings("BackwardChar", wdKeyControl + wdKeyB)
    Call AddKeyBindings("NextLine", wdKeyControl + wdKeyN)
    Call AddKeyBindings("PreviousLine", wdKeyControl + wdKeyP)
    Call AddKeyBindings("BeginningOfLine", wdKeyControl + wdKeyA)
    Call AddKeyBindings("EndOfLine", wdKeyControl + wdKeyE)
End Sub

nozma

# read "deck" dataframe
deck <- read.csv("https://gist.githubusercontent.com/garrettgman/9629323/raw/ee5dfc039fd581cb467cc69c226ea2524913c3d8/deck.csv")
DECK <- deck
# define functions
roll <- function(){
  die <- 1:6
  dice <- sample(die, size = 2, replace = TRUE)
  sum(dice)
}

nozma

# 1. 
# (a)
CtableS <- xtabs(~ Sex, data = Arthritis)
barplot(CtableS)
pie(CtableS, clockwise = TRUE)
# (b)
mosaicplot(~ Sex + Improved, data = Arthritis, col = TRUE)

# 3.
xtabs(Freq ~ management + own, data = JobSatisfaction)

nozma

# 練習問題
# 1.
binom.test(134, 200)$conf.int

# 2.
binom.test(145, 300, 0.3)

# 3.
p <- c(0.382, 0.219, 0.305, 0.094)
x <- c(39, 16, 27, 15)

nozma

# 練習問題

# 1.
# (a) (b)
mantelhaen.test(CoalMiners)
# (c)
library(epiDisplay)
mhor(mhtable = CoalMiners)

# 2.