Я работаю над кластеризацией K-средних в r Shiny. Я успешно завершил кластеризацию и сформировал выходные данные на панели инструментов. Однако мне понадобится мера расстояния каждого узла в каждом кластере, и мера должна быть отсортирована в каждом кластере. Я не могу сделать это, используя реактивный набор данных в блестящем.
Я пытался измерить расстояние в студии. Однако не может получить это через блестящий сервер.
#Run K-means clustering algorithm on reactive data set.
set.seed(678)
db.data.km <- reactive({kmeans(scale(db.data.num()),
input$No_Of_Clusters, nstart=25)})
#get the clusters
cluster_group<- reactive({
cluster <- db.data.km()$cluster
})
#get the centers
center_group<- reactive({
cent <- db.data.km()$centers
})
#Calculate Euclidean distance.
Euclid <- reactive({
points1 <- cluster_group()
points2 <- center_group()
distance <- matrix(NA, nrow=dim(points1())[1], ncol=dim(points2())[1])
for(i in 1:nrow(points2())) {
distance[,i] <- sqrt(rowSums(t(t(points1())-points2()[i,])^2))
}
distance
})
Мне нужна мера расстояния для каждой строки в наборе реактивных данных.