Search the Elsmar Cove!
**Search ALL of Elsmar.com** with DuckDuckGo including content not in the forum - Search results with No ads.

Minitab GRR crossed Xbar and r method macro needed

Miner

Forum Moderator
Staff member
Admin
#2
Step 1: Setup and run the R&R as you want to see it run.
Step 2: Click the Show History button (looks like a spiral notepad with a > icon.
Step 3: Copy the stored commands. Looks like
1568646427185.png

Step 4: Create a macro and paste these commands into the macro.
 
#3
I am trying to use this macro from the minitab library but need the output in xbar.

Gage R&R on multiple measurement columns

I tried the
xbar;
under GageRR;

in the macro but got different results than if I chart it manually.

Manually I get this.

1568663182414.png


with the macro i get this.

1568663299336.png


I need the Percent tolerance column as well in my output.
 

Miner

Forum Moderator
Staff member
Admin
#4
Make sure that you included the Tolerance sub-command.

we work in plastics so we need a little bit of leniency. what is the code for tolerance sub command? is there a list of commands somewhere? I haven't done any coding since the 90's so I am a little bit behind on knowledge here. LOL

this is the main code for my macro. where and what do I add to get the %Tolerance to show?

kkset K1 "Gage R&R Study - Xbar and R Method for "
kkset k5 "Tolerance = "

if lsl = 1 and usl = 1
let tol = high - low
text tol ttol
do i=1:n
let tmp=tol
let tmp2=ttol
kkname k3 x.i
kkcat k1 k3 k4
kkcat k5 tmp2 k6
brief 2
###mtitle k4
###endmtitle
###mtitle k6
GageRR;
XBar;
Parts part;
Opers op;
Response x.i;
Studyvar 6;
Toler tmp;
GToler tmp2.
enddo
elseif usl=0 and lsl=0
do i=1:n
kkname k3 x.i
kkcat k1 k3 k4
brief 2
###mtitle k4
GageRR;
XBar;
Parts part;
Opers op;
Response x.i;
Studyvar 6.
enddo
elseif lsl = 1 and usl = 0
text low ttol
do i=1:n
let tmp=low
let tmp2=ttol
kkname k3 x.i
kkcat k1 k3 k4
kkcat k5 tmp2 k6
brief 2
###mtitle k4
###mtitle k6
GageRR;
XBar;
Parts part;
Opers op;
Response x.i;
Studyvar 6;
lsl tmp;
GToler tmp2.
enddo
elseif lsl = 0 and usl = 1
text high ttol
do i=1:n
let tmp=high
let tmp2=ttol
kkname k3 x.i
kkcat k1 k3 k4
kkcat k5 tmp2 k6
brief 2
###mtitle k4
###mtitle k6
GageRR;
XBar;
Parts part;
Opers op;
Response x.i;
Studyvar 6;
usl tmp;
GToler tmp2.
enddo
endif
endmtitle
endmacro
 

Miner

Forum Moderator
Staff member
Admin
#5
Why do you want the Xbar method? ANOVA is more accurate. Xbar is an approximation that was easier to manually calculate. With Minitab, manual calculation is a non-issue.
 
Top Bottom