//¤³¤Î¥Ú¡¼¥¸¤¬É½¼¨¤µ¤ì¤ëÊý¤Ï¡¢URL¤«¤é¡Öaction=SOURCE&¡×¤òºï½ü¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤ [[£ÒÈ÷˺Ͽ - µ­»ö°ìÍ÷]] !!!Æüì¤Ê¥Ç¡¼¥¿¤Î¥¯¥é¥¹¥¿¥ê¥ó¥°­¢ *Åê¹Æ¼Ô¡§ ¤ß¤å *¥«¥Æ¥´¥ê¡§ ¤Ê¤· *Í¥ÀèÅÙ¡§ ÉáÄÌ *¾õÂÖ¡§ ´°Î» *Æü»þ¡§ 2009ǯ11·î01Æü 15»þ05ʬ30Éà //{{bugstate}} !!ÆâÍÆ !!Æüì¤Ê¥±¡¼¥¹­¢ 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}} !!¥³¥á¥ó¥È //{{comment}}