david@www2:~$ R
R version 3.5.2 (2018-12-20) -- "Eggshell Igloo"
Copyright (C) 2018 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R ist freie Software und kommt OHNE JEGLICHE GARANTIE.
Sie sind eingeladen, es unter bestimmten Bedingungen weiter zu verbreiten.
Tippen Sie 'license()' or 'licence()' für Details dazu.
R ist ein Gemeinschaftsprojekt mit vielen Beitragenden.
Tippen Sie 'contributors()' für mehr Information und 'citation()',
um zu erfahren, wie R oder R packages in Publikationen zitiert werden können.
Tippen Sie 'demo()' für einige Demos, 'help()' für on-line Hilfe, oder
'help.start()' für eine HTML Browserschnittstelle zur Hilfe.
Tippen Sie 'q()', um R zu verlassen.
> artikel <- data.frame (Name=character(), Preis=double(), Haltbarkeitsdatum=character());
> artikel <- structure (list (Name=c("Nutella", "Butter", "Milch"), Preis=c(3.0,2.0,1.2), Haltbarkeitsdatum("19.07.1983", "19.07.1983", "19.07.1983")))
Fehler in Haltbarkeitsdatum("19.07.1983", "19.07.1983", "19.07.1983") :
konnte Funktion "Haltbarkeitsdatum" nicht finden
> artikel <- structure (list (Name=c("Nutella", "Butter", "Milch"), Preis=c(3.0,2.0,1.2), Haltbarkeitsdatum=c("19.07.1983", "19.07.1983", "19.07.1983")))
> artikel
$Name
[1] "Nutella" "Butter" "Milch"
$Preis
[1] 3.0 2.0 1.2
$Haltbarkeitsdatum
[1] "19.07.1983" "19.07.1983" "19.07.1983"
> artikel <- structure (list (Name=c("Nutella", "Butter", "Milch"), Preis=c(3.0,2.0,1.2), Haltbarkeitsdatum=c("19.07.1983", "19.07.1983", "19.07.1983")), class="data.frame")
> artikel
[1] Name Preis Haltbarkeitsdatum
<0 Zeilen> (oder row.names mit Länge 0)
> artikel <- structure (list (Name=c("Nutella", "Butter", "Milch"), Preis=c(3.0,2.0,1.2), Haltbarkeitsdatum=c("19.07.1983", "19.07.1983", "19.07.1983")), row.names = c(NA,7L),class="data.frame")
> artikel
Name Preis Haltbarkeitsdatum
1 Nutella 3.0 19.07.1983
2 Butter 2.0 19.07.1983
3 Milch 1.2 19.07.1983
4 <NA> <NA> <NA>
5 <NA> <NA> <NA>
6 <NA> <NA> <NA>
7 <NA> <NA> <NA>
Warnmeldung:
In format.data.frame(if (omit) x[seq_len(n0), , drop = FALSE] else x, :
Korrupter Data Frame: Spalten werden abgeschnitten oder mit NAs aufgefüllt
> artikel <- structure (list (Name=c("Nutella", "Butter", "Milch"), Preis=c(3.0,2.0,1.2), Haltbarkeitsdatum=c("19.07.1983", "19.07.1983", "19.07.1983")), row.names = c(NA,3L),class="data.frame")
> artikel
Name Preis Haltbarkeitsdatum
1 Nutella 3.0 19.07.1983
2 Butter 2.0 19.07.1983
3 Milch 1.2 19.07.1983
>
...
> test2 <- structure (list (Name=c(1, 2, 3), Preis=c(1,2,3)), row.names = c(NA,3L),class="data.frame")
> tst2 <- scale(test2)
> set.seed(123)
> km.res <- kmeans(tst2, 4, nstart = 25)
Fehler in kmeans(tst2, 4, nstart = 25) :
mehr Clusterzentren als verschiedene Datenpunkte
> km.res <- kmeans(tst2, 1, nstart = 25)
> km.res
K-means clustering with 1 clusters of sizes 3
Cluster means:
Name Preis
1 0 0
Clustering vector:
1 2 3
1 1 1
Within cluster sum of squares by cluster:
[1] 4
(between_SS / total_SS = 0.0 %)
Available components:
[1] "cluster" "centers" "totss" "withinss" "tot.withinss"
[6] "betweenss" "size" "iter" "ifault"
> test2 <- structure (list (Name=c(1, 2, 3), Preis=c(1,2,3)), row.names = c(NA,3L),class="data.frame")
