R_L9

/*
Задание

Откройте файл KLast1.csv. Самостоятельно проделайте кластерный анализ для объединения животных в группы по характеристикам: температура, расход энергии, относительная поверхность, масса и количество кислорода в органах: мозг, почки, печень, селезенка, мышцы).

Перед построением дендрограммы удалите первый столбец таблицы.

Прокомментируйте полученные результаты.

link https://yadi.sk/d/zN1e9axnwB_LJA
*/

#Пример
stock1<-log(import)
stock2<-stock1
stock3<-apply(stock2,2,diff)
stock3<-t(stock3)
hc<-hclust(dist(stock3))
plot(hc)
k1<-kmeans(stock3,5,1000000)
k1

k2<-kmeans(stock3,4,1000000)
k2

#Задание

KLast1<-KLast1[-1]
KLast1
stock1<-log(KLast1)
stock2<-apply(stock1,2,diff)
stock2
stock2<-t(stock2)
hc<-hclust(dist(stock2))
plot(hc)

k1<-kmeans(stock2,5,1000000)
k1
k1<-kmeans(stock2,4,1000000)
k1
k1<-kmeans(stock2,4,1000000, algorith=c("Lloyd"))
k1