Deutsches R-Forum

Verfasst: **Sa Feb 20, 2021 9:28 pm**

Ich muss diese Aufgabe lösen .ich habe so gelöst .könnten sie sehen,ob es richtig ist.

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)
}


}

Verfasst: **Sa Feb 20, 2021 11:30 pm**

Hallo mai,

war ja letztes Mal keine so tolle Erfahrung hier im Forum. Wir machen aber gerne nochmal den Versuch.

mai hat geschrieben: Sa Feb 20, 2021 9:28 pmich habe so gelöst .könnten sie sehen,ob es richtig ist.

Ja, ich kann sehen, dass es nicht richtig ist. Die Aufgabe lautet:

Zu jedem dieser Cluster sollen dann 100 zweidimensionale
Datenpunkte zufällig erzeugt werden.

Ich kann keine Stelle erkennen, an der Dein Code zweidimensionale Datenpunkte erzeugt. Also ist die Aufgabe nicht richtig gelöst.
Was noch auffällt: In der Aufgabenstellung spielt der Buchstabe k eine große Rolle, kommt gleich im ersten Satz vor. Kommt k irgendwo in Deinem Code vor?

Code: Alles auswählen
item <- (1:10)

Hier merkt R sich die Zahlen 1 bis 10 unter dem Namen "item". Da im Rest vom Code der Name "item" nie wieder vorkommt, ist es völlig egal, ob R sich darunter irgendwas merkt.

Ich bin ziemlich sicher, dass die Antwort ungefähr so anfangen sollte:

Code: Alles auswählen

new_clusters <- function(k){
  stopifnot(is.numeric(k), k >= 1, k <= 10)
  k <- floor(k)
  #print("http://forum.r-statistik.de/viewtopic.php?f=7&t=3011")
  
  c <- replicate(k, random_cluster_center())
  #  hier dann weiter

}

Gruß,
Bernhard

Verfasst: **So Feb 21, 2021 9:40 pm**

ok.vielen dank für die Antwort

Deutsches R-Forum

Hilfee

Hilfee

Re: Hilfee

Re: Hilfee