snipt

Ctrl+h for KB shortcuts

S

kruskal-wallis test of alt among 4 kmean clustes

kruskal.test(alt ~ as.factor(spe.kmeans$cluster))
https://snipt.net/embed/2019e89f3d06cdfe1d3bd54d37b66ff4/
https://snipt.net/raw/2019e89f3d06cdfe1d3bd54d37b66ff4/
2019e89f3d06cdfe1d3bd54d37b66ff4
splus
S
1
2016-09-23T14:13:48
True
False
False
/api/public/snipt/23678/
kruskal-wallis-test-of-alt-among-4-kmean-clustes
<table class="highlighttable"><tr><td class="linenos"><div class="linenodiv"><pre><a href="#L-1">1</a></pre></div></td><td class="code"><div class="highlight"><pre><span id="L-1"><a name="L-1"></a>kruskal.test<span class="p">(</span>alt <span class="o">~</span> <span class="kp">as.factor</span><span class="p">(</span>spe.kmeans<span class="o">$</span>cluster<span class="p">))</span> </span></pre></div> </td></tr></table>
cluster, kruskal_test, r

S

cascade kmean over spe

1
2
3
 
spe.KM.cascade <- cascadeKM(spe.norm, inf.gr=2, sup.gr=10,iter=100,criterion="ssi")
plot(spe.KM.cascade,sortg=TRUE)
https://snipt.net/embed/14dbfec7bb1dc9236a7861a149b99b95/
https://snipt.net/raw/14dbfec7bb1dc9236a7861a149b99b95/
14dbfec7bb1dc9236a7861a149b99b95
splus
S
3
2016-09-29T13:22:21
True
False
False
/api/public/snipt/23667/
cascade-kmean-over-spe
<table class="highlighttable"><tr><td class="linenos"><div class="linenodiv"><pre><a href="#L-1">1</a> <a href="#L-2">2</a> <a href="#L-3">3</a></pre></div></td><td class="code"><div class="highlight"><pre><span id="L-1"><a name="L-1"></a> </span><span id="L-2"><a name="L-2"></a>spe.KM.cascade <span class="o">&lt;-</span> cascadeKM<span class="p">(</span>spe.norm<span class="p">,</span> inf.gr<span class="o">=</span><span class="m">2</span><span class="p">,</span> sup.gr<span class="o">=</span><span class="m">10</span><span class="p">,</span>iter<span class="o">=</span><span class="m">100</span><span class="p">,</span>criterion<span class="o">=</span><span class="s">&quot;ssi&quot;</span><span class="p">)</span> </span><span id="L-3"><a name="L-3"></a>plot<span class="p">(</span>spe.KM.cascade<span class="p">,</span>sortg<span class="o">=</span><span class="kc">TRUE</span><span class="p">)</span> </span></pre></div> </td></tr></table>
cluster, kmeans, r

S

ward dendrogram for spe

1
2
3
4
5
spe <- spe[-8,]
spe.norm <- decostand(spe,"normalize")
spe.ch <- vegdist(spe.norm, "euc")
spe.ch.ward <- hclust(spe.ch,"ward")
plot(spe.ch.ward)
https://snipt.net/embed/f8ca569e36d6f078263eaca120d05709/
https://snipt.net/raw/f8ca569e36d6f078263eaca120d05709/
f8ca569e36d6f078263eaca120d05709
splus
S
5
2016-09-28T20:34:08
True
False
False
/api/public/snipt/23644/
ward-dendrogram-for-spe
<table class="highlighttable"><tr><td class="linenos"><div class="linenodiv"><pre><a href="#L-1">1</a> <a href="#L-2">2</a> <a href="#L-3">3</a> <a href="#L-4">4</a> <a href="#L-5">5</a></pre></div></td><td class="code"><div class="highlight"><pre><span id="L-1"><a name="L-1"></a>spe <span class="o">&lt;-</span> spe<span class="p">[</span><span class="m">-8</span><span class="p">,]</span> </span><span id="L-2"><a name="L-2"></a>spe.norm <span class="o">&lt;-</span> decostand<span class="p">(</span>spe<span class="p">,</span><span class="s">&quot;normalize&quot;</span><span class="p">)</span> </span><span id="L-3"><a name="L-3"></a>spe.ch <span class="o">&lt;-</span> vegdist<span class="p">(</span>spe.norm<span class="p">,</span> <span class="s">&quot;euc&quot;</span><span class="p">)</span> </span><span id="L-4"><a name="L-4"></a>spe.ch.ward <span class="o">&lt;-</span> hclust<span class="p">(</span>spe.ch<span class="p">,</span><span class="s">&quot;ward&quot;</span><span class="p">)</span> </span><span id="L-5"><a name="L-5"></a>plot<span class="p">(</span>spe.ch.ward<span class="p">)</span> </span></pre></div> </td></tr></table>
cluster, dendrogram, r
Copyrighted, illegal, or inappropriate content? Email support@snipt.net.