clearlog();
::_data_table=currentdatatable();
::_data_table<<clearselect()<<clearcolumnselection();

::_User_window = New Window( "Analysis",
	vlistbox(
		v List Box(
			lineupbox(ncol(1),spacing(5),
				panelbox("Table Columns",
					::_listocols = Col List Box( All, nlines( 8 ) ), 
				),
			)
		),
		
		V List Box(
			lineupbox(ncol(1),spacing(5),
				panelbox("Cast Columns into Roles",
					Lineup Box(
						N Col( 2 ),
						Button Box( "Measurement", 
							::_Measurement_box << Append( ::_listocols << GetSelected );
						),
						::_Measurement_box = Col List Box( nlines( 1 ), Min items(1), Max items(1),numeric),
												
						Button Box( "Sample", 
							::_Sample_box << Append( ::_listocols << GetSelected );
						),
						::_Sample_box = Col List Box( nlines( 1 ), Min items(1), Max items(1),character),
						
						Button Box( "Group", ::_Group_box << Append( ::_listocols << GetSelected );),
						::_Group_box = Col List Box( nlines( 3 ), Min items(0)),
					),
				),
				hlistbox(
					buttonbox("OK", 
						::_Measurement = ::_Measurement_box << GetItems;
						::_Group = ::_Group_box << GetItems;
						::_Sample = ::_Sample_box <<GetItems;
						
						::_User_window<<closewindow;
						
						::_Analyze;
						),
					buttonbox("Remove",
						::_Measurement_box << Remove Selected;
						::_Group_box << Remove Selected;
						::_Sample_box << Remove Selected;
					),
					buttonbox("Cancel",<<closewindow;throw();)
				)
			)
		)
	)
);//end user window

//set default values

::_Measurement_box << append( "Value" );

::_Sample_box << append ("Sample");
::_Group_box << append( "" );


		
::_Analyze=expr(
newwindow("Analysis",vlistbox(

			::_tabulate_Report=::_data_table<<Tabulate(
				Show Control Panel( 0 ),
				Set Format( Mean( Value( 12, 2 ) ), Std Dev( Value( 12, 3 ) ) ),
				Add Table(
					Column Table( Analysis Columns( eval(::_Measurement) ), Statistics( Mean, Std Dev ) ),
					Row Table( Grouping Columns(	eval(::_Sample), eval(::_Group)
					) )
				)
			);//end tabulate
	,
			::_Oneway_Report=::_data_table<<
			Oneway(
				Y( eval(::_Measurement) ),
				X( eval(::_Sample)),
				Points Jittered( 1 ),
				by( eval(::_Group)),
				SendToReport(
					Dispatch(
						{},
						"Oneway Plot",
						FrameBox,
						{Frame Size( 331, 215 ), Marker Size( 3 ),
						Row Legend(
							eval(::_Sample),
							Color( 1 ),
							Color Theme( "JMP Default" ),
							Marker( 0 ),
							Marker Theme( "" ),
							Continuous Scale( 0 ),
							Reverse Scale( 0 ),
							Excluded Rows( 0 )
						)}
					)
				)
			);

		
		);//end vlistbox
	);//end new window
);//end analyze