Ein wenig Hintergrund: Dies ist Code, um die durchschnittliche Strecke eine Maus namens BOE 1 während der Studie über die Korsik von 12 Tagen, mit 4 gereist Wiederholungen des Experiments jeden Tag. In jedem Datensatz werden 19 Mäuse getestet.Versuchen, diesen Code in r eleganter und kürzer zu machen, wenn möglich - R
Problem: Ich möchte die mittlere zurückgelegte Entfernung für jede Maus berechnen und in einer Tabelle ablegen. Was ich habe funktioniert, aber ich war neugierig, ob es einen Weg gab, um den folgenden Code kürzer und weniger wiederholend zu machen.
Optionen versucht:
mean(BOE.1Data$Distance.cm[BOE.1Data$Day == c(1,2, ect)]
mean(BOE.1Data$Distance.cm[BOE.1Data$Day == c(1|2| ect)]
mean(BOE.1Data$Distance.cm[BOE.1Data$Day == c(1&2& ect)]
Keine von diesen für mich gearbeitet haben.
Code:
Distance.1 = c(mean(BOE.1Data$Distance.cm[BOE.1Data$Day == 1]),
mean(BOE.1Data$Distance.cm[BOE.1Data$Day == 2]),
mean(BOE.1Data$Distance.cm[BOE.1Data$Day == 3]),
mean(BOE.1Data$Distance.cm[BOE.1Data$Day == 4]),
mean(BOE.1Data$Distance.cm[BOE.1Data$Day == 5]),
mean(BOE.1Data$Distance.cm[BOE.1Data$Day == 6]),
mean(BOE.1Data$Distance.cm[BOE.1Data$Day == 7]),
mean(BOE.1Data$Distance.cm[BOE.1Data$Day == 8]),
mean(BOE.1Data$Distance.cm[BOE.1Data$Day == 9]),
mean(BOE.1Data$Distance.cm[BOE.1Data$Day == 10]),
mean(BOE.1Data$Distance.cm[BOE.1Data$Day == 11]),
mean(BOE.1Data$Distance.cm[BOE.1Data$Day == 12]))
Willkommen bei Stackoverflow. Bitte geben Sie eine [MCVE] –
Dies sieht so aus, als ob Sie wollen 'mit (BOE.1Data, tapply (Distance.cm, Day, mean))' aber ohne Beispieleingabe und gewünschte Ausgabe ist es schwer zu sagen. – MrFlick