123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172 |
- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
- "http://www.w3.org/TR/REC-html40/loose.dtd">
- <html>
- <head>
- <title>Description of fig7_6</title>
- <meta name="keywords" content="fig7_6">
- <meta name="description" content="Local Regression and Likelihood, Figure 7.6.">
- <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
- <meta name="generator" content="m2html © 2005 Guillaume Flandin">
- <meta name="robots" content="index, follow">
- <link type="text/css" rel="stylesheet" href="../../../m2html.css">
- <script type="text/javascript">
- if (top.frames.length == 0) { top.location = "../../../index.html"; };
- </script>
- </head>
- <body>
- <a name="_top"></a>
- <!-- ../../menu.html chronux_2_10 --><!-- # locfit --><!-- menu.html Book -->
- <h1>fig7_6
- </h1>
- <h2><a name="_name"></a>PURPOSE <a href="#_top"><img alt="^" border="0" src="../../../up.png"></a></h2>
- <div class="box"><strong>Local Regression and Likelihood, Figure 7.6.</strong></div>
- <h2><a name="_synopsis"></a>SYNOPSIS <a href="#_top"><img alt="^" border="0" src="../../../up.png"></a></h2>
- <div class="box"><strong>This is a script file. </strong></div>
- <h2><a name="_description"></a>DESCRIPTION <a href="#_top"><img alt="^" border="0" src="../../../up.png"></a></h2>
- <div class="fragment"><pre class="comment"> Local Regression and Likelihood, Figure 7.6.
- Estimating the mean survival time using a local weibull
- (transformed Gamma) model.</pre></div>
- <!-- crossreference -->
- <h2><a name="_cross"></a>CROSS-REFERENCE INFORMATION <a href="#_top"><img alt="^" border="0" src="../../../up.png"></a></h2>
- This function calls:
- <ul style="list-style-image:url(../../../matlabicon.gif)">
- <li><a href="../../../chronux_2_10/locfit/m/lfmarg.html" class="code" title="function xfit = lfmarg(fit)">lfmarg</a> computes grid margins from a locfit object, used for plotting.</li><li><a href="../../../chronux_2_10/locfit/m/locfit.html" class="code" title="function fit=locfit(varargin)">locfit</a> Smoothing noisy data using Local Regression and Likelihood.</li><li><a href="../../../chronux_2_10/locfit/m/predict.html" class="code" title="function [y, se] = predict(varargin)">predict</a> Interpolate a fit produced by locfit().</li></ul>
- This function is called by:
- <ul style="list-style-image:url(../../../matlabicon.gif)">
- <li><a href="runbook.html" class="code" title="">runbook</a> </li></ul>
- <!-- crossreference -->
- <h2><a name="_source"></a>SOURCE CODE <a href="#_top"><img alt="^" border="0" src="../../../up.png"></a></h2>
- <div class="fragment"><pre>0001 <span class="comment">% Local Regression and Likelihood, Figure 7.6.</span>
- 0002 <span class="comment">%</span>
- 0003 <span class="comment">% Estimating the mean survival time using a local weibull</span>
- 0004 <span class="comment">% (transformed Gamma) model.</span>
- 0005
- 0006 load heart;
- 0007 z = 0.625;
- 0008 ts = (surv+0.5).^z;
- 0009 fit = <a href="../../../chronux_2_10/locfit/m/locfit.html" class="code" title="function fit=locfit(varargin)">locfit</a>(age,ts,<span class="string">'cens'</span>,cens,<span class="string">'family'</span>,<span class="string">'gamma'</span>,<span class="string">'nn'</span>,0.8);
- 0010 i = find(cens==0);
- 0011 figure(<span class="string">'Name'</span>,<span class="string">'fig7_6: mean survival time local weibull'</span>);
- 0012 plot(age(i),log(surv(i)+0.5),<span class="string">'o'</span>);
- 0013 hold on;
- 0014 i = find(cens==1);
- 0015 plot(age(i),log(surv(i)+0.5),<span class="string">'r+'</span>);
- 0016 xlabel(<span class="string">'Age at Transplant (Years)'</span>);
- 0017 ylabel(<span class="string">'log(0.5+Survival Time (Days))'</span>);
- 0018
- 0019 xev = <a href="../../../chronux_2_10/locfit/m/lfmarg.html" class="code" title="function xfit = lfmarg(fit)">lfmarg</a>(fit);
- 0020 y = <a href="../../../chronux_2_10/locfit/m/predict.html" class="code" title="function [y, se] = predict(varargin)">predict</a>(fit,xev);
- 0021 plot(xev{1},log(exp(y./z)*gamma(1+1./z)+0.5));
- 0022 hold off;
- 0023</pre></div>
- <hr><address>Generated on Fri 12-Aug-2011 11:36:15 by <strong><a href="http://www.artefact.tk/software/matlab/m2html/" target="_parent">m2html</a></strong> © 2005</address>
- </body>
- </html>
|