maschinen <- data.frame(
laufzeit_h = c(1200, 1800, 1250, 1750),
temperatur = c(62, 61, 75, 74),
row.names = c("A", "B", "C", "D")
)
round(dist(maschinen), 1) # ohne Standardisierung A B C
B 600.0
C 51.7 550.2
D 550.1 51.7 500.0
round(scale(maschinen), 3) # die z-Werte laufzeit_h temperatur
A -0.941 -0.797
B 0.941 -0.930
C -0.784 0.930
D 0.784 0.797
attr(,"scaled:center")
laufzeit_h temperatur
1500 68
attr(,"scaled:scale")
laufzeit_h temperatur
318.852108 7.527727
round(dist(scale(maschinen)), 2) # mit Standardisierung A B C
B 1.89
C 1.73 2.54
D 2.35 1.73 1.57