BugTrack-£ÒÈ÷˺Ͽ/46¤ÎÊѹ¹ÅÀ
-ÊÔ½¸ +!!Æüì¤Ê¥±¡¼¥¹¢ + zz <- rbind(cbind(a,0,0,0,0), cbind(0,0,b,0,0), cbind(0,0,0,0,c)) + hc <- hclust(dist(zz)) + plot(hc) +{{ref_image test05.png,BugTrack-£ÒÈ÷˺Ͽ/45}} +*¥Ç¥ó¥É¥í¥°¥é¥à¤ÏÉáÄÌ +*¼çÀ®Ê¬Ê¬ÀϤÎÂèÆóÀ®Ê¬¤Þ¤Ç¤Î»¶ÉۿޤϤ³¤ó¤Ê´¶¤¸¤Ë +{{ref_image test06.png,BugTrack-£ÒÈ÷˺Ͽ/45}}