******************************************************************************
*EPI 204: Assignment 1 - example .do file


******************************************************************************

*Setup

clear all

*Q2 - Abdominal Tenderness to Palpation

*Input data. Use the input command, name your variables, plug in the values
input ED Surgeon
1 1
1 1
1 1
1 0
1 0
1 0
1 0
0 0
0 0
0 0
end

*create labels
label define RUQ 0 NonTender 1 Tender
label values ED RUQ
label values Surgeon RUQ

*Check Table to make sure it looks like the original 2x2
tab ED Surgeon


*Check Kappa
kap ED Surgeon


***********************************************

* #5 Agreement on Mammogram readings
clear 

*Create the 4x4 table with 16 possible cells
*Reading the cells starting from the first row, Right-to-Left, number them 1-16

*Input data
input cell_ID rad_A rad_B freq
1 0 0 35
2 0 1 6
3 0 2 2
4 0 3 2
5 1 0 34
6 1 1 15
7 1 2 4
8 1 3 2
9 2 0 0
10 2 1 0
11 2 2 4
12 2 3 1
13 3 0 1
14 3 1 19
15 3 2 0
16 3 3 25
end

*create labels
label define interp 0 Normal 1 Benign 2 Indeterminate 3 Cancer
label values rad_A interp
label values rad_B interp

*run kappa statistic indicating frequency counts
kap rad_A rad_B [fw=freq]  

kap rad_A rad_B [fw=freq], w(w)