Skip to content

Instantly share code, notes, and snippets.

/ReadExample.Rpad Secret

Created April 7, 2011 08:08
Show Gist options
  • Save anonymous/4d2f5b93cc2902c416d0 to your computer and use it in GitHub Desktop.
Save anonymous/4d2f5b93cc2902c416d0 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ReadExample.Rpad
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html>
<head>
<title>Rpad サンプル</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<script type="text/javascript" src="gui/dojo.js"></script>
<script type="text/javascript" src="gui/Rpad.js"></script>
</head>
<body>
<h2>Rpad サンプル</h2>
<h2>2 群の比較</h2>
<ol>
<li> 2群から得られた連続量のデータを入力欄に，スペースで区切って入力してください。</li>
<li> 計算ボタンを押すと,2群の平均値に差があるかどうかをt検定で検定します。</li>
</ol>
<p> データ1:
<input class="Rpad_input" name="data1" rpadType="Rstring", size=80>
</p>
<p> データ2:
<input class="Rpad_input" name="data2" rpadType="Rstring", size=80>
</p>
<input onclick="javascript:rpad.calculatePage()" value=" 計算" type="button"/>
<pre dojoType="Rpad" rpadType="R" rpadRun="normal" rpadHideSource="true">
data1n <- as.numeric(strsplit(data1," *")[[1]])
data2n <- as.numeric(strsplit(data2," *")[[1]])
HTMLon()
cat(paste(c(" データ1:",as.character(data1n)),sep=" "))
BR
cat(paste(c(" データ2:",as.character(data2n)),sep=" "))
BR
HTMLoff()
t.test(data1n,data2n)
</pre>
</body>
</html>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment