skmeans パッケージによるコサイン距離ベースの k-means 実行

do_skmeans.R

library(slam)
library(skmeans)

# CSV からデータの読み込み
x <- read.csv("data.csv")

# skmeans で扱えるデータ構造（simple triplet matrix）に変換
s <- as.simple_triplet_matrix(x)

# k-means 実行
result <- skmeans(s, k=5)

# 結果の表示
result$cluster