local function lm_demo()
	local r = rng.new()
	local a, b = 2.3, 1.2
	local sigma = 0.3
	local tool_effect = {0.4, 0.7, -1.3}
	local tools = {"tool A", "tool B", "tool C"}
	local N, P = 30, #tool_effect
	local dx = 3.0
	local t = gdt.alloc(N * P, {"tool", "x", "y"})
	for k, tool in ipairs(tools) do
		for i = 1, N do
			local x = dx * (i - 1) / N
			local y = a + b * x + rnd.gaussian(r, sigma) + tool_effect[k]
			local ip = (k-1)*N + i
			t:set(ip, 1, tool)
			t:set(ip, 2, x)
			t:set(ip, 3, y)
		end
	end
	local p = gdt.plot(t, "y ~ x | tool", {show= false})
	p.title = "Linear Fit example"
	p.xtitle = "time, s"
	p.ytitle = "thickness, mm"
	local fit = gdt.lm(t, "y ~ x, tool", {predict= true})
	fit:summary()
	for k = 1, P do
		local ln = graph.fxline(|x| fit:eval {tool= tools[k], x= x}, 0, dx)
		p:addline(ln, graph.webcolor(k), {{'dash', 7, 3}})
	end
	p:show()
end
return {'Linear Regression', {
 {
 name= 'linreg1',
 f = lm_demo,
 description = 'Mixed model regression example'
 },
}}
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="https://cgit.git.savannah.gnu.org/cgit/gsl-shell.git/plain/demos/gdt-lm.lua">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="https://cgit.git.savannah.gnu.org/cgit/gsl-shell.git/plain/demos/gdt-lm.lua" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>