Gong-Yi's SandBox@WordPress » Emacs

Emacs Lisp for R users – 2010 Oct 06 (1)

gongyiliao — Wed, 06 Oct 2010 10:36:00 +0000

For R users, emacs‘s corresponding syntax to do (i in ...) is

(dolist (i '(1..n))
   (print i)
)

Conjugate distribution note 2010 Sep 19-1

gongyiliao — Sun, 19 Sep 2010 23:27:00 +0000

Consider the result:
For the conjugate prior scenairo, if $X|\mu\sim\mathcal N(\mu,
\sigma^2)$ and $\mu\sim\mathcal N(\theta, \xi^2)$ where $\sigma^2,
\theta$ and $\xi^2$ are all known, then
\[
f(\mu|x) \propto
exp\left[-\frac{1}{2}\left(\frac{1}{\sigma^2}+\frac{1}{\xi^2}\right)\left(\mu
- \frac{\xi^2y+\sigma^2\theta}{\sigma^2+\xi^2}\right)^2\right]
\]

Typical ESS setting for REvolution R

gongyiliao — Sun, 27 Jun 2010 02:30:00 +0000

(add-to-list 'load-path (expand-file-name "~/.emacs.d/ess/lisp"))
(setq inferior-R-program-name "c:\\REvolution\\Revo-3.2\\Revo32\\R-2.10.1\\bin\\Rterm.exe")
(require 'ess-site)

如果你的R鎖住了

gongyiliao — Thu, 11 Mar 2010 19:38:00 +0000

相信有些人有這樣的經驗, C-c C-r或C-c C-b後, emacs就被鎖住直到
程式跑完, 要解決這樣的麻煩, 很簡單, 用C-g就可以把程式轉到背景去執行了

Emacs Setup for AUCTEX + XELATEX + PREVIEW-LATEX

gongyiliao — Thu, 21 Jan 2010 03:49:00 +0000

(add-hook 'LaTeX-mode-hook 
   (lambda()
     (setq TeX-auto-save t)
     (setq LaTeX-command-style 
    (quote (("\\`fontspec\\'" "xelatex ") 
     ("" "%(PDF)%(latex) %S%(PDFout)"))))
     (custom-set-variables
      '(preview-fast-dvips-command "pdftops -origpagesizes %s.pdf %m/preview.ps"))
     (setq TeX-save-query nil)
     (setq TeX-parse-self t)
     (setq-default TeX-master nil)
     (setq TeX-output-view-style
    (cons '("^pdf$" "." "evince  %o ") TeX-output-view-style))
     (set-default 'preview-default-document-pt 12)
     (set-default 'preview-scale-function 1.2)
     (setq preview-required-option-list 
    (quote ("active" "tightpage" "auctex" "pdftex" (preview-preserve-counters "counters"))))
     (setq preview-default-option-list 
    (quote ("displaymath" "floats" "graphics" "textmath" "showlabels" "sections" )))
     (TeX-global-PDF-mode t)))

with this updated preview.sty

ad hoc setting for AUCTEX/XeLaTeX

gongyiliao — Fri, 15 Jan 2010 14:12:00 +0000

Prevent using Fontspec to specify math font can make your life easier.
Fontspec does not process Math fonts well at this moment (TexLive! 2009)


(add-hook 'LaTeX-mode-hook 
   (lambda()
     (setq TeX-auto-save t)
     (add-to-list 'TeX-command-list '("XeLaTeX" "%`xelatex%(mode)%' %t" TeX-run-TeX nil t))
     (setq TeX-command-default "XeLaTeX")
     (setq TeX-save-query nil)
     (setq TeX-output-view-style
    (cons '("^pdf$" "." "evince  %o ") TeX-output-view-style))
     (TeX-global-PDF-mode t)
     (set-default 'preview-default-document-pt 12)
     (set-default 'preview-scale-function 1.2)
     (setq preview-image-creators 
    (quote ((png 
      (open preview-gs-open) 
      (place preview-gs-place) 
      (close preview-gs-close)))))
     (setq preview-default-option-list 
    (quote ("displaymath" "floats" "graphics" "textmath" "showlabels")))))

Emacs function name highlight

gongyiliao — Sun, 03 Jan 2010 03:05:00 +0000

;; General function keywords highlight
(defface font-lock-my-functions-face
   '((((class color) (min-colors 88) (background light)) (:foreground "RoyalBlue4"  )))
   "Font Lock mode face used to highlight function names."
   :group 'font-lock-faces)

(defvar font-lock-my-functions-face 'font-lock-my-functions-face
   "Face name to use for functions.")

(defvar my-functions-name-regexp
  "\\s\"?\\(\\(\\sw\\|\\s_\\)+\\(<-\\)?\\)\\s\"?*\\s-*(" 
   "Regexp for function names")

(defvar my-functions-color  
   (list
    (cons my-functions-name-regexp '(1 font-lock-my-functions-face keep)))
   "Defines highlighting pattern for functions")

(font-lock-add-keywords 'c-mode
   '(("\\s\"?\\(\\(\\sw\\|\\s_\\)+\\(<-\\)?\\)\\s\"?*\\s-*(" . font-lock-my-functions-face)))
(font-lock-add-keywords 'python-mode
   '(("\\s\"?\\(\\(\\sw\\|\\s_\\)+\\(<-\\)?\\)\\s\"?*\\s-*(" . font-lock-my-functions-face)))

(setq ess-R-mode-font-lock-keywords
       (append  ess-R-mode-font-lock-keywords    my-functions-color))
(setq inferior-ess-R-font-lock-keywords
       (append inferior-ess-R-font-lock-keywords my-functions-color)) 
Emacs

Dynamic system approach and statistical approach : an ODE example

gongyiliao — Sun, 03 Jan 2010 01:54:00 +0000

The linear ODE system to describe prey-predator relationship :
\[ \frac{dx}{dt} = -x(\alpha - \beta y) \]
\[ \frac{dy}{dt} = -y(\gamma - \delta x) \]
Using the cookbook example from scipy.org:

Another approach is statistical approach:
\[ y_t = F(x_t) + \epsilon_t\]
What is the problem? The problem is statistical approach is static.

Note that the statistical approach is just using some simple function:
\[ y_t = \beta_0 + \beta_1 x_t + \beta_2 x_t^2 + \cdots + \beta_k x_t^k + \epsilon_t \]
this leads to a problem: this model assume that $y$ can not explain $x$.

搞死我的CEDET 1.0pre6

gongyiliao — Sat, 02 Jan 2010 15:34:00 +0000

裝了cedet 1.0pre6,C程式沒變得好寫很多, python倒是出了問題 sigh………

用Emacs 上批踢踢

gongyiliao — Thu, 31 Dec 2009 21:19:00 +0000

其實很簡單。

在emacs下執行

M-x ansi-term

然後在新開的ansi-term的shell下執行

luit -encoding big5 telnet bbs.ptt.cc

完畢。

示範圖如下: