Mittelwert der Probe erhalten

Question

Ich habe diese Informationen:

Student: 1 2 3 4 5 6 7 8 9 10 
    Mark: 85 62 90 85 64 72 70 59 66 70 

Also tat ich dies:

x <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) 
y <- c(85, 62, 90, 85, 64, 72, 70, 59, 66, 70) 

Und ich wollte 10 Proben von 4 Studenten nehmen und dann den Mittelwert der Studenten erhalten . Ich nahm die Proben mit dem nächsten Befehl 10mal (sample1, sample2, ..., Beispiel10):

sample1 <- sample(x, 4, replace=FALSE, prob=NULL) 

Gibt es einen einfacheren Weg, um die Proben zu erhalten?

Wie konnte ich den Mittelwert von diese Proben Programmierung erhalten?

Ich habe das versucht, folgende:

meansample1 <- mean(sample1) 

Answer 1

Sie können die mittleren Noten für vier Studenten mit berechnen:

mean(sample(y, 4, replace = FALSE)) 

Dann können wir diese Aufgabe 10mal mit replicate() replizieren:

replicate(n = 10, mean(sample(y, 4, replace = FALSE))) 
# [1] 78.75 72.25 78.00 70.25 74.25 79.25 72.25 64.25 76.50 69.00