Aufgabe ist :
Schreiben Sie ein Programm, dass zufällig k Cluster (k∈{1,2 ,…,10 })
erzeugt. Zu jedem dieser Cluster sollen dann 100 zweidimensionale
Datenpunkte zufällig erzeugt werden.
Dazu sollte das Programm im ersten Schritt k zufällige Punkte ci (i=1,2,…k )
in [−100 ;100 ]^2als Ausgangspunkte für die Cluster erzeugen. Um diese
Ausgangspunkte sollen dann jeweils 100 Datenpunkte als normalverteilte
Zufallszahlen mit dem Mittelwert ci und einer zufälligen
Standardabweichung (sigma = 1, … , 3) erzeugt werden.
Lösung:
Code: Alles auswählen
item <- (1:10)
Zufallverteille <- function (mittel,abweichung)
{
for(var in 1){
cat("Das ist die Cluter : ", var ,"\n")
x <- rnorm(matrix(c(round(runif(100,1,100),2))), mean=1000, sd=1)
cat(x)
}
}