/*
table1_Chinese_firms

June 27, 2013

*/

libname public 'F:\a_data3\raw\other\patent\china\public';
run;

data t;
set public.Chinese_firm_patent;
if applicant_name_rank<=100 then top100=1;
else top100=0;


*Links to WIPOapp and USapp;

data link_WIPOapp;
set 
public.link_WIPOapp_forpri_CNpub_forpri
public.link_WIPOapp_forpri_CNpub_appnum;
keep app_numfix ;


data link_USapp;
set 
public.link_USapp_forpri_CNpub_forpri
public.link_USapp_appnum_CNpub_forpri
public.link_USapp_forpri_CNpub_appnum;
keep app_numfix ;

proc sort data=link_WIPOapp nodup; by app_numfix;
proc sort data=link_USapp nodup; by app_numfix;

data t;
merge t(in=in1) link_WIPOapp(in=in2) link_USapp(in=in3);
by app_numfix;
if in1;
link_WIPOapp=in2;
link_USapp=in3;
link_WIPO_or_US= link_WIPOapp or link_USapp;


ods html file="F:\a_data3\raw\other\patent\china\public\table1_Chinese_firms.html" style=minimal;

proc tabulate data=t;
class top100;
var link_WIPO_or_US;
table all top100, N*f=comma12.0 mean*link_WIPO_or_US*f=7.3;
title 'Chinese firms, by whether in top 100 of all patents';

data t2;
set t;
if applicant_name_rank<=100;
junk=0;


proc tabulate data=t2;
class applicant_name_trun applicant_name_rank;
var link_WIPO_or_US;
table applicant_name_rank*applicant_name_trun, N*f=comma12.0 mean*link_WIPO_or_US*f=7.3;
title 'patent counts, by applicant_name_trun (including rank, and mode value of applicant_name associated with applicant_name_trun';


run;

ods html close;
run;