4. Table
- quietly {
- log using patent_survey_5.log
-
- forvalues i = 2013(1)2015 {
- noisily tabulate rdex`i'interval rdex`i'check
- noisily list RDexpense`i'_thRMB rdex`i'check rdex`i'interval if rdex`i'check > rdex`i'interval & rdex`i'check !=. & rdex`i'interval !=.
- }
-
- global var_people year employee HE_ratio HEemployee RD_ratio RDemployee
- global var_patent Nb_patent effectivepatent_per_em effectivepatent_per_rdem invention utilitymodel design invention_proportion
- global var_expense RDexpense2015_thRMB RDexpense2015_per_em RDexpense2015_per_rdem RDexpense2015_per_patent growth_rate_2015 patentexpense_thRMB
- global var_interval rdratio_code pexratio_code govpatentratio_code patentenforceratio_code inventionenforceratio_code UMenforceratio_code ///
- designenforceratio_code patentproduct_code inventionproduct_code umproduct_code designproduct_code patentlicensing_code ///
- inventionlicensing_code umlicensing_code designlicensing_code tranferratio_code inventiontransfer_code umtransfer_code designtransfer_code ///
- patentincome_code rdperiod_code
- global var_group1 province_code region
- global var_group2 industry_regroup2
- global var_group3 year_interval HE_level
- global var_group4 scale2 type1 ownership_regroup
- global var_group5 patentenforceratio_code patentproduct_code patentlicensing_code tranferratio_code patentincome_code rdperiod_code
-
- * mytabstat
- * syntax varlist, i(varlist) [j(varlist)]
- noisily: mytabstat $var_people , i($var_group1 $var_group2 $var_group3 $var_group4 patent_interval)
- noisily: mytabstat $var_patent , i($var_group1 $var_group2 $var_group3 $var_group4 patent_interval)
- noisily: mytabstat $var_expense , i($var_group1 $var_group2 $var_group3 $var_group4 patent_interval)
- noisily: mytabstat $var_people , i($var_group1) j($var_group2 $var_group3 $var_group4 patent_interval)
- noisily: mytabstat $var_patent , i($var_group1) j($var_group2 $var_group3 $var_group4 patent_interval)
- noisily: mytabstat $var_expense , i($var_group1) j($var_group2 $var_group3 $var_group4 patent_interval)
- noisily: mytabstat $var_people , i($var_group2) j($var_group3 $var_group4 patentNb_if)
- noisily: mytabstat $var_patent , i($var_group2) j($var_group3 $var_group4 patentNb_if)
- noisily: mytabstat $var_expense , i($var_group2) j($var_group3 $var_group4 patentNb_if)
- noisily: mytabstat $var_people , i($var_group5)
- noisily: mytabstat $var_patent , i($var_group5)
- noisily: mytabstat $var_expense , i($var_group5)
- *mytabulate
- *syntax varlist, i(varlist) [j(varlist)]
- noisily: mytabulate $var_group1 $var_group2 $var_group3 $var_group4 , i($var_group1 $var_group2 $var_group3 $var_group4)
- noisily: mytabulate $var_interval , i($var_group1 $var_group2 $var_group3 $var_group4)
- * myHHI
- * syntax varlist [, i(varlist)]
- noisily: myHHI Nb_patent invention utilitymodel design employee HEemployee RDemployee
- noisily: myHHI Nb_patent invention utilitymodel design employee HEemployee RDemployee, i($var_group1 $var_group2)
- * myHHI2
- * syntax varlist, i(varlist)
- noisily: myHHI2 Nb_patent invention utilitymodel design employee HEemployee RDemployee, i(industry_code city province_code)
- * mybig
- * syntax varlist, n(integer) [i(varlist)] [j(varlist)] [k(varlist)]
- noisily: mybig Nb_patent invention employee RDemployee RDexpense2015_per_patent RDexpense2015_thRMB, n(25) ///
- j(Nb_patent invention employee RDexpense2015_thRMB year) ///
- k(industry_code region province_code city type1 ownership_regroup HElevel)
-
- * mybig2
- * syntax varlist, n(integer) i(varlist)
- gen Nb_firm = 1
- noisily: mybig2 Nb_firm Nb_patent employee HEemployee RDemployee, n(25) i(province_code industry_code)
- noisily: mybig2 Nb_firm Nb_patent employee HEemployee RDemployee, n(10) i(city)
- * mybig2_share
- * syntax varlist, n(integer) i(varlist)
- noisily: mybig2_share HEhigh HElow IPRreduce IPRimprove gf patentinfringe cord IPmanagement, n(25) i(city industry_code)
- noisily: mybig2_share HEhigh HElow IPRreduce IPRimprove gf patentinfringe cord IPmanagement, n(10) i(province_code)
-
- * patent>100
- preserve
- keep if patent_interval == 10
- noisily display "In the firms holding more than 100 effective patents"
- noisily: mytabstat $var_people , i($var_group1 $var_group2 $var_group3 $var_group4)
- noisily display "In the firms holding more than 100 effective patents"
- noisily: mytabstat $var_patent , i($var_group1 $var_group2 $var_group3 $var_group4)
- noisily display "In the firms holding more than 100 effective patents"
- noisily: mytabstat $var_expense , i($var_group1 $var_group2 $var_group3 $var_group4)
- restore
- log close
- }
- * myscatter
- * syntax varlist, y(varlist) [i(varlist)]
- myscatter RDexpense2015_thRMB y(Nb_patent effectivepatent_per_em effectivepatent_per_rdem invention_proportion)
- myscatter RDemployee RD_ratio employee year, y(Nb_patent invention_proportion)
- myscatter year, y(employee)
- myscatter rdratio_code, y(Nb_patent effectivepatent_per_em effectivepatent_per_rdem invention_proportion)
- * myscatter_province
- * syntax varlist, y(varlist)
- myscatter_province RDexpense2015_thRMB y(Nb_patent effectivepatent_per_em effectivepatent_per_rdem invention_proportion)
- myscatter_province RDemployee RD_ratio employee year, y(Nb_patent invention_proportion)
- myscatter_province year, y(employee)
- myscatter_province rdratio_code, y(Nb_patent effectivepatent_per_em effectivepatent_per_rdem invention_proportion)
- * myscatter_sector
- * syntax varlist, y(varlist)
- myscatter_sector RDexpense2015_thRMB y(Nb_patent effectivepatent_per_em effectivepatent_per_rdem invention_proportion)
- myscatter_sector RDemployee RD_ratio employee year, y(Nb_patent invention_proportion)
- myscatter_sector year, y(employee)
- myscatter_sector rdratio_code, y(Nb_patent effectivepatent_per_em effectivepatent_per_rdem invention_proportion)
- * myscatter_weight
- * syntax varlist, y(varlist) [i(varlist)]
- myscatter_weight rdratio_code pexratio_code HElevel, y($var_group5)
- * mybar
- * syntax varlist, type(string) i(varlist) [j(varlist)]
- mybar employee HEemployee RDemployee Nb_patent invention utilitymodel design RDexpense2015_thRMB patentexpense_thRMB, ///
- type(sum) i(scale2 year_interval ownership_regroup)
- mybar HElow HEhigh HE_ratio RD_ratio effectivepatent_per_em effectivepatent_per_rdem invention_proportion RDexpense2015_per_em RDexpense2015_per_rdem RDexpense2015_per_patent growth_rate_2015, ///
- type(mean) i(scale2 year_interval ownership_regroup)
- mybar patentNb_if patentadvantage_if IPRreduce IPRimprove gf patentinfringe noproductpatent nocraftpatent cord IPmanagement, ///
- type(mean) i(scale2 year_interval ownership_regroup)
- * mybar_province
- * syntax varlist, type(string) i(varlist)
- mybar_province employee HEemployee RDemployee Nb_patent invention utilitymodel design RDexpense2015_thRMB patentexpense_thRMB, ///
- type(sum) i(scale2 year_interval ownership_regroup)
- mybar_province HElow HE high HE_ratio RD_ratio effectivepatent_per_em effectivepatent_per_rdem invention_proportion RDexpense2015_per_em RDexpense2015_per_rdem RDexpense2015_per_patent growth_rate_2015, ///
- type(mean) i(scale2 year_interval ownership_regroup)
- mybar_province patentNb_if patentadvantage_if IPRreduce IPRimprove gf patentinfringe noproductpatent nocraftpatent cord IPmanagement, ///
- type(mean) i(scale2 year_interval ownership_regroup)
- * mybar_sector
- * syntax varlist, type(string) i(varlist)
- mybar_sector employee HEemployee RDemployee Nb_patent invention utilitymodel design RDexpense2015_thRMB patentexpense_thRMB, ///
- type(sum) i(scale2 year_interval ownership_regroup)
- mybar_sector HElow HE high HE_ratio RD_ratio effectivepatent_per_em effectivepatent_per_rdem invention_proportion RDexpense2015_per_em RDexpense2015_per_rdem RDexpense2015_per_patent growth_rate_2015, ///
- type(mean) i(scale2 year_interval ownership_regroup)
- mybar_sector patentNb_if patentadvantage_if IPRreduce IPRimprove gf patentinfringe noproductpatent nocraftpatent cord IPmanagement, ///
- type(mean) i(scale2 year_interval ownership_regroup)
- 表格部分除了list可以显示之外,其他都无法显示。以下是关于图的显示结果:
- myscatter RDexpense2015_thRMB y(Nb_patent effectivepatent_per_em effectivepatent_per_rdem invention_proportion)
- factor variables and time-series operators not allowed
- r(101);
- .
- . myscatter RDemployee RD_ratio employee year, y(Nb_patent invention_proportion)
- command xtitle is unrecognized
- r(199);
- .
- . myscatter year, y(employee)
- command xtitle is unrecognized
- r(199);
- .
- . myscatter rdratio_code, y(Nb_patent effectivepatent_per_em effectivepatent_per_rdem invention_proportion)
- command xtitle is unrecognized
- r(199);
- .


雷达卡




京公网安备 11010802022788号







