Rのeval(parse(text=...)

pasteと組み合わせて、以下のようにして

> for ( i in 1:3){
print(eval(parse(text=paste(sep="","ftable(grade",i,",SNP",i,")"))))
}

これは

> ftable(grade1,SNP1)
> ftable(grade2,SNP2)
> ftable(grade3,SNP3)

としてるのと等価。
いつもやるたびに思い出すのに苦労するのでメモ。
参考になる記述は
http://www.okada.jp.org/RWiki/index.php?%A4%CA%A4%EB%A4%DB%A4%C9%B5%A1%C7%BD
でparseやpasteを検索する、と。