wrote plot cluster procedure