-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path.Rhistory
48 lines (48 loc) · 2.05 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
library(cluster, lib.loc = "C:/Program Files/R/R-4.0.1/library")
energy_harvesters_lambdadistance_sorted <- read.csv("C:/Users/nandy/source/repos/FunctionalModelSimilarity/FunctionalModelSimilarity/data/03_processed/energy_harvesters_lambdadistance_sorted.csv", row.names=1)
View(energy_harvesters_lambdadistance_sorted)
df <- scale(energy_harvesters_lambdadistance_sorted)
install.packages(c("factoextra"))
library(cluster)
library(factoextra)
pam.res <- pam(df, 7)
print(pam.res)
print(res$data)
print(pam.res$data)
fviz_cluster(pam.res)
fviz_cluster(pam.res, ellipse.type="norm")
fviz_cluster(pam.res, ellipse.type="convex")
print(pam.res$data)
pam.res@cluster
pam.res
pam.res$clustering
energy_harvesters_vector <- read.csv("C:/Users/nandy/source/repos/FunctionalModelSimilarity/FunctionalModelSimilarity/data/02_intermediate/energy_harvesters_vector.csv", row.names=1)
View(energy_harvesters_vector)
View(energy_harvesters_vector)
energy_harvesters_vector <- read.csv("C:/Users/nandy/source/repos/FunctionalModelSimilarity/FunctionalModelSimilarity/data/02_intermediate/energy_harvesters_vector.csv", row.names=2)
View(energy_harvesters_vector)
View(energy_harvesters_vector)
ehv <- energy_harvesters_vector[-c(1), ]
View(ehv)
ehv <- ehv[-c(1), ]
View(ehv)
dd <- cbind(ehv, cluster=pam.res$cluster)
dd
View(dd)
mds <- cmdscale(energy_harvesters_lambdadistance_sorted)
plot(mds, pch=19, col=rainbow(7)[pam.res$clustering])
fviz_cluster(pam.res, data=ehv, ellipse.type="convex")
pam.results$data <- ehv
pam.result$data <- ehv
pam.res$data <- ehv
fviz_cluster(pam.res)
clear
View(dd)
View(pam.res)
getwd()
setwd("C:/Users/nandy/source/repos/FunctionalModelSimilarity/FunctionalModelSimilarity")
getwd()
energy_harvesters_deltacon_sorted <- read.csv("C:/Users/nandy/source/repos/FunctionalModelSimilarity/FunctionalModelSimilarity/data/03_processed/energy_harvesters_deltacon_sorted.csv", row.names=1)
View(energy_harvesters_deltacon_sorted)
energy_harvesters_deltacon_sorted <- read.csv("./data/03_processed/energy_harvesters_deltacon_sorted.csv", row.names=1)
View(energy_harvesters_deltacon_sorted)