623749_de-DE

liliconcom

Korrigierte Mittelwertberechnung

Hallo alle,

 

Ich habe Mühe, aus 4 Ergebnisspalten mit kontinuierlichen Zahlenwerten, die ich bekomme, einen "korrigierten Mittelwert" zu berechnen.

Wie definiere ich den "korrigierten Mittelwert"?Ich möchte den Wert ausschließen, der am weitesten vom Mittel entfernt ist, und den Wert, der ihm am nächsten liegt, doppelt zählen (wobei der ausgeschlossene "Ausreißer" effektiv durch den nahe daran liegenden Wert ersetzt wird).

 

Siehe Beispiel unten, wo ausgeschlossene Werte rot und doppelte grün hervorgehoben sind.

 

Danke für deine Unterstützung! (Ich bin derzeit auf JMP 17.0)

 

Nachfolgend finden Sie ein Skript mit den Beispiel-Rohdaten:

New Table( "corrected_mean_script",
 Add Rows( 10 ),
 New Column( "R1",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Color Cells( {36, {1, 10}} ),
  Set Values( [50.7, 54.5, 53.7, 54.5, 51.4, 47.6, 50.8, 51.4, 47.1, 53.1] )
 ),
 New Column( "R2",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Color Cells( {{36, {3, 8}}, {3, {5, 6, 9}}} ),
  Set Values( [49.2, 55.4, 51.3, 54.8, 55.3, 53.7, 51.6, 51.2, 51.8, 50.3] ),
  Set Display Width( 48 )
 ),
 New Column( "R3",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Color Cells( {{3, {1, 2, 4}}, {36, {5, 7}}} ),
  Set Values( [54.7, 50.3, 55.1, 51.3, 52.9, 48.2, 53, 52.8, 44.1, 51.6] )
 ),
 New Column( "R4",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Color Cells( {{36, {2, 4, 6, 9}}, {3, {3, 7, 8, 10}}} ),
  Set Values( [50.3, 52, 49.8, 52.9, 50.5, 52.1, 54.3, 44.8, 48.6, 55.3] ),
  Set Display Width( 50 )
 )
)

DatentabelleSkripterstellungFensterBetreff: Korrigierte Mittelwertbildung

Hier ist ein schrittweiser Weg, um eine Lösung zu finden.

 

Names Default To Here( 1 );

dt = New Table( "corrected_mean_script",
 Add Rows( 10 ),
 New Column( "R1",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Color Cells( {36, {1, 10}} ),
  Set Values( [50.7, 54.5, 53.7, 54.5, 51.4, 47.6, 50.8, 51.4, 47.1, 53.1] )
 ),
 New Column( "R2",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Color Cells( {{36, {3, 8}}, {3, {5, 6, 9}}} ),
  Set Values( [49.2, 55.4, 51.3, 54.8, 55.3, 53.7, 51.6, 51.2, 51.8, 50.3] ),
  Set Display Width( 48 )
 ),
 New Column( "R3",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Color Cells( {{3, {1, 2, 4}}, {36, {5, 7}}} ),
  Set Values( [54.7, 50.3, 55.1, 51.3, 52.9, 48.2, 53, 52.8, 44.1, 51.6] )
 ),
 New Column( "R4",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Color Cells( {{36, {2, 4, 6, 9}}, {3, {3, 7, 8, 10}}} ),
  Set Values( [50.3, 52, 49.8, 52.9, 50.5, 52.1, 54.3, 44.8, 48.6, 55.3] ),
  Set Display Width( 50 )
 )
);

dt << New Column( "Corrected Mean", Numeric, "Continuous" );

For Each Row(
 mean = Mean( :R1, :R2, :R3, :R4 );
 data = dt[Row(), 1::4];
 absDiff = Abs( data - mean );
 min = (data[Loc( absDiff == Min( absDiff ) )])[1];
 data[Loc( absDiff == Max( absDiff ) )[1]] = min;
 :Corrected Mean = Mean( data );
);

Betreff: Korrigierte Mittelwertbildung

Vielen Dank Markus, es funktioniert gut.

 

Als zukünftige Referenz für andere sollte die Verwendung von Tipps aus diesem Thema es ermöglichen, die 4 Spalten in einer breiteren Datentabelle zu lokalisieren:
https://community.jmp.com/t5/Discussions/How-to-get-column-number-from-column-name-JMP/td-p/5987

 

Danke noch einmal!