---
title: "JSLAB18.Rの一部をRmd化"
author: "MAKINO Manon"
date: '2022-05-26'
output: 
  html_document:
    toc: TRUE
    toc_float: TRUE
---
# パッケージのロード
```{r, include=FALSE}
library(TCC)
library(MBCluster.Seq)
library(openxlsx)
library(ggplot2)
library(ggsci)
library(reshape2)
```
# サンプルのクラスタリング
## データの読み込み
```{r}
data <- read.xlsx("JSLAB18.xlsx", rowNames=TRUE)
```
## サンプルクラスタリング
```{r}
out <- clusterSample(data, dist.method="spearman",
            hclust.method="average", unique.pattern=TRUE)
```
## 作図
```{r, fig.width=5, fig.height=4}
plot(out)
```

