In [96]:

    

data <- read.csv("adinda.clean.csv")


    

In [97]:

    

head(data)


    

    
Out[97]:





Firm
Year
CEI
BRIB_CORR
BUSS_ETH
FAIR_COMP
POL_CONTR
INDIG_PPL
IND_EC_IMP
X0TH_ENG
ellip.h
DIVIDEND
LOSS
TOT_ASSETS
SLACK
ROE
BRD_INDP_DIV
BRD_MEET_DIV
BRD_SIZE_DIV
BRD_COMPT_DIV
BRD_EFFC_DIV

	
1
1
2011
0.57143
0
0.5
0.5
0.25
0.25
1
1
⋯
30.35
0
5.144545e+13
5.081927e+12
0.22
60.7
75.875
91.05
75.875
75.875
	
2
1
2012
0.54762
0
0.25
0.25
0.5
1
1
0.8333
⋯
55.82524
0
6.497336e+13
4.857942e+12
0.141
93.04225
158.1713
167.4757
139.5631
131.3534
	
3
1
2013
0.52381
0
0.5
0.25
0.25
1
1
0.6667
⋯
15.36585
0
8.212195e+13
8.308451e+12
0.074
28.17067
35.8536
46.09755
38.41463
34.34713
	
4
1
2014
0.52381
0
0.5
0.25
0.25
1
1
0.6667
⋯
29.375
0
8.0175e+13
9.3156e+12
0.056
44.0625
73.4375
88.125
73.4375
63.93381
	
5
2
2011
0.4881
0
0.5
0.75
0
1
1
0.1667
⋯
0
0
2.301384e+12
3.59163e+11
0.0569
0
0
0
0
0
	
6
2
2012
0.7381
0
1
1
1
0.667
1
0.5
⋯
0
1
2.903932e+12
152631066954
-0.0773
0
0
0
0
0

In [98]:

    

tail(data)


    

    
Out[98]:





Firm
Year
CEI
BRIB_CORR
BUSS_ETH
FAIR_COMP
POL_CONTR
INDIG_PPL
IND_EC_IMP
X0TH_ENG
ellip.h
DIVIDEND
LOSS
TOT_ASSETS
SLACK
ROE
BRD_INDP_DIV
BRD_MEET_DIV
BRD_SIZE_DIV
BRD_COMPT_DIV
BRD_EFFC_DIV

	
139
35
2013
0.9
0.8
1
1
1
1
1
0.5
⋯
0
0
1.517317e+12
1.03378e+11
0.0065
0
0
0
0
0
	
140
35
2014
0.9
0.8
1
1
1
1
1
0.5
⋯
0
1
155237500000
6.4325e+10
-0.2002
0
0
0
0
0
	
141
36
2011
0
0
0
0
0
0
0
0
⋯
0
0
5.44282e+11
23752819524
0.2485
0
0
0
0
0
	
142
36
2012
0
0
0
0
0
0
0
0
⋯
0
0
3.89007e+11
55782539000
0.1998
0
0
0
0
0
	
143
36
2013
0.09524
0
0
0
0
0.6667
0
0
⋯
50
0
765881409376
72298136315
0.0397
90
91.6665
50
112.5
93.75
	
144
36
2014
0.09524
0
0
0
0
0.6667
0
0
⋯
8
0
897281657710
42022184000
0.1792
14.4
14.66664
8
18
15

In [99]:

    

names(data)


    

    
Out[99]:





	
'Firm'
	
'Year'
	
'CEI'
	
'BRIB_CORR'
	
'BUSS_ETH'
	
'FAIR_COMP'
	
'POL_CONTR'
	
'INDIG_PPL'
	
'IND_EC_IMP'
	
'X0TH_ENG'
	
'ALT_CEI'
	
'BRD_EFFC'
	
'BRD_INDP'
	
'BRD_MEET'
	
'BRD_SIZE'
	
'BRD_COMPT'
	
'DIVIDEND'
	
'LOSS'
	
'TOT_ASSETS'
	
'SLACK'
	
'ROE'
	
'BRD_INDP_DIV'
	
'BRD_MEET_DIV'
	
'BRD_SIZE_DIV'
	
'BRD_COMPT_DIV'
	
'BRD_EFFC_DIV'

In [103]:

    

# ncol(data)
dataMean <- data[3:26]
dataMean


    

    




Warning message:
In `[<-.factor`(`*tmp*`, ri, value = "⋱"): invalid factor level, NA generatedWarning message:
In `[<-.factor`(`*tmp*`, ri, value = "⋱"): invalid factor level, NA generated





    
Out[103]:





CEI
BRIB_CORR
BUSS_ETH
FAIR_COMP
POL_CONTR
INDIG_PPL
IND_EC_IMP
X0TH_ENG
ALT_CEI
BRD_EFFC
ellip.h
DIVIDEND
LOSS
TOT_ASSETS
SLACK
ROE
BRD_INDP_DIV
BRD_MEET_DIV
BRD_SIZE_DIV
BRD_COMPT_DIV
BRD_EFFC_DIV

	
1
0.57143
0
0.5
0.5
0.25
0.25
1
1
0.7
2.5
⋯
30.35
0
51445454031000
5081927221910
0.22
60.7
75.875
91.05
75.875
75.875
	
2
0.54762
0
0.25
0.25
0.5
1
1
0.8333
0.5
2.35294
⋯
55.82524
0
64973358794500
4857941715510
0.141
93.0422527508
158.171327249
167.47572
139.5631
131.353440206
	
3
0.52381
0
0.5
0.25
0.25
1
1
0.6667
0.5
2.23529
⋯
15.36585
0
82121950874600
8308451184620
0.074
28.1706737805
35.8535987805
46.09755
38.414625
34.3471308465
	
4
0.52381
0
0.5
0.25
0.25
1
1
0.6667
0.5
2.17647
⋯
29.375
0
8.0175e+13
9.3156e+12
0.056
44.0625
73.4375
88.125
73.4375
63.93380625
	
5
0.4881
0
0.5
0.75
0
1
1
0.1667
0.3
2.26458
⋯
0
0
2.301384e+12
3.59163e+11
0.0569
0
0
0
0
0
	
6
0.7381
0
1
1
1
0.667
1
0.5
0.5
2.17647
⋯
0
1
2903932019670
152631066954
-0.0773
0
0
0
0
0
	
7
0.45238
0
1
0
0
0.6667
1
0.5
0.6
2.41176
⋯
0
1
3855817056980
22475609661.7
-0.0799
0
0
0
0
0
	
8
0.78571
0
1
1
1
1
1
0.5
0.4
2.29412
⋯
0
1
4239362500000
5.275e+10
-0.2293
0
0
0
0
0
	
9
0
0
0
0
0
0
0
0
0
1.77083
⋯
0
1
111660087000
3469378000
-0.6431
0
0
0
0
0
	
10
0.19444
0
0
0
0
1
0.5
0.1667
0.3
2.05882
⋯
0
1
150829601
2807016
-0.382
0
0
0
0
0
	
11
0.19048
0
0
0
0
0.6667
0.5
0.1667
0.2
2.11765
⋯
0
0
1489339945000
30159881
0.012
0
0
0
0
0
	
12
0.4881
0
0.25
0
0.5
1
1
0.6667
0.4
2.05882
⋯
0
1
150829601000
3185917000
-0.361
0
0
0
0
0
	
13
0.40476
0
0
0
0
1
1
0.8333
0.6
2.08333
⋯
3.55
0
18718181631000
4729745407250
0.3073
9.4666785
7.6916785
3.55
8.875
7.3958215
	
14
0.48611
0
1
0.25
0
1
1
0.6667
0.6
2.41176
⋯
7.76699
1
20854368794400
3534436869880
-0.7409
18.1229507767
15.53398
23.30097
23.30097
18.7321158024
	
15
0.72143
0.8
1
0.25
0
1
1
1
0.6
2.41176
⋯
0
1
24402707214600
4977426808360
-2.03
0
0
0
0
0
	
16
0.80476
0.8
1
1
0
1
1
0.83333
0.6
1.66667
⋯
0
1
2.21625e+13
4.243275e+12
-2.02
0
0
0
0
0
	
17
0.77619
0.6
1
0
1
1
1
0.8333
0.6
2.10417
⋯
0
0
17404410972000
1124180892000
0.04726
0
0
0
0
0
	
18
0.675
0.8
0.5
0.25
1
1
1
0.5
0.7
2.52941
⋯
0
1
19292300552300
1131750089620
-0.04
0
0
0
0
0
	
19
0.7881
0.6
0.75
0.75
0.75
1
1
0.6667
0.6
2.4
⋯
0
1
24233011727500
1421649506220
0.04
0
0
0
0
0
	
20
0.68095
0.6
0.75
0
0.75
1
1
0.6667
0.6
2.35294
⋯
0
1
23294135262500
78455012500
-0.125
0
0
0
0
0
	
21
0.64286
0
1
1
0
1
1
0.5
0.5
2.45833
⋯
80
0
1.43862e+13
1.527995e+12
0.285
160
186.6664
240
200
196.6664
	
22
0.64286
0
1
1
0
1
1
0.5
0.5
2
⋯
200
0
3.61116785817e+26
4.0232875061e+26
0.078
400
300
600
500
400
	
23
0.58095
0.4
0.75
0
0.75
0.6667
1
0.5
0.5
1.94118
⋯
200
0
23281768048600
1863040540960
0.078
366.666
300
600
500
388.236
	
24
0.52381
0
0.5
0.5
0
1
1
0.6667
0.7
2.05882
⋯
0
1
14520703925000
1000979487500
-0.74
0
0
0
0
0
	
25
0.54048
0.2
0.25
0.25
0.25
1
1
0.8333
0.7
2.0625
⋯
0
1
3692053635810
337790360258
-0.08
0
0
0
0
0
	
26
0.48889
0.6
0.5
0.5
0
0.667
1
0.6667
0.5
2.41176
⋯
0
1
4266755311650
229220299458
-0.14
0
0
0
0
0
	
27
0.5619
0.6
0.5
0.5
0
0.6667
1
0.6667
0.5
2.17647
⋯
0
1
5359460953100
287923059766
0.14
0
0
0
0
0
	
28
0.87619
0.8
1
1
0.5
1
1
0.8333
0.7
2.35294
⋯
0
0
4448237587500
169956800000
0
0
0
0
0
0
	
29
0.45238
0
0.25
0.25
0
1
1
0.6667
0.6
2.85417
⋯
0
1
1.082e+13
1.932e+12
-0.16021
0
0
0
0
0
	
30
0.45238
0
0.25
0.25
0
1
1
0.6667
0.6
2.76471
⋯
0
1
11262135848000
553398054600
0.16
0
0
0
0
0
	
31
⋮
⋮
⋮
⋮
⋮
⋮
⋮
⋮
⋮
⋮
NA
⋮
⋮
⋮
⋮
⋮
⋮
⋮
⋮
⋮
⋮
	
115
0.70952
0.8
0.5
0
1
1
1
0.6667
0.5
2.52941
⋯
56.29
0
7.883294e+12
6.13698e+11
0.13
140.725
140.725
168.87
140.725
142.3804889
	
116
0.70952
0.8
0.5
0
1
1
1
0.6667
0.6
2.52941
⋯
0
0
9.752477e+12
3.64496e+11
0.13
0
0
0
0
0
	
117
0.28571
0
0.5
0
0
0.3333
1
0.1667
0.1
1.79167
⋯
0
0
218251524639
10421127472
0.01
0
0
0
0
0
	
118
0.36111
0
0.25
0.25
0.5
1
1
0.1667
0.4
1.875
⋯
0
0
1.76001e+11
14199545260
0.035
0
0
0
0
0
	
119
0.5
0
0.75
0
0.75
0.6667
1
0.3333
0.2
1.88235
⋯
0
0
3.2696e+11
13048575536
0.0061
0
0
0
0
0
	
120
0.46429
0
0.5
0
0.75
0.6667
1
0.3333
0.2
1.88235
⋯
0
0
3.66053e+11
10313943601
0.0115
0
0
0
0
0
	
121
0.42857
0
0
0.5
0.5
1
1
0
0.3
2.0625
⋯
0
0
148540732335
33277276437
0.4375
0
0
0
0
0
	
122
0.19444
0
0
0
0
1
1
0.1667
0.3
2.3125
⋯
0
0
1.48541e+11
33277276437
0.233
0
0
0
0
0
	
123
0.21429
0
0
0
0
0.3333
1
0.1667
0.1
2.52941
⋯
2
0
1.56993e+11
50006905442
0.1972
5
5
6
5
5.05882
	
124
0.40476
0
0.5
0
0
1
1
0.3333
0.3
2.52941
⋯
0
0
3.62679e+11
47588267793
0.0278
0
0
0
0
0
	
125
0.21429
0
0
0
0
0.3333
1
0.1667
0.1
1.875
⋯
0
0
1710689375000
29855938000
0.11
0
0
0
0
0
	
126
0.08333
0
0
0
0
0.3333
1
0.1667
0
1.94118
⋯
0
0
1503500075000
27228598000
0.09
0
0
0
0
0
	
127
0.21429
0
0
0
0
0.3333
1
0.1667
0.1
1.86667
⋯
0
0
5516122336000
1529415959
0.026
0
0
0
0
0
	
128
0.21429
0
0
0
0
0.3333
1
0.167
0.1
1.86667
⋯
0
1
5512452937000
225319391000
-0.031
0
0
0
0
0
	
129
0.65476
0
0.75
0.75
0.75
0.6667
1
0.6667
0.5
2.25
⋯
190.90909
0
2238390623070
551267676306
0.34
286.363635
381.81818
572.72727
477.272725
429.5454525
	
130
0.43056
0
0.5
0.5
0.25
0.6667
1
0.6667
0.2
2.11765
⋯
436.8932
0
2606194157560
276620415650
0.24
728.156789644
946.603389644
1310.6796
1092.233
925.18688498
	
131
0.69762
0.8
0.25
0
1
1
1
0.8333
0.6
2.11765
⋯
457.31707
0
3343304864010
508152973476
0.25
685.975605
1067.07163894
1371.95121
1143.292675
968.437493285
	
132
0.69762
0.8
0.25
0
1
1
1
0.8333
0.6
2.11765
⋯
468.5
0
3248687500000
496212500000
0.17
702.75
1093.165105
1405.5
1171.25
992.119025
	
133
0.74048
0.6
0.75
0.75
0.75
1
1
0.3333
0.3
2.375
⋯
74
0
1.8253817e+13
3.433645e+12
0.14
123.33358
172.66642
222
185
175.75
	
134
0.62222
0.4
0.5
0.5
0.5
1
1
0.8333
0.7
2.23529
⋯
60
0
22788971267100
3401705472690
0.03
109.9998
139.9998
180
150
134.1174
	
135
0.67619
0.4
0.5
0.5
0.5
1
1
0.8333
0.7
2.29412
⋯
44.47561
1
28247845198400
3982529775960
-7e-04
81.5384700813
111.189025
133.42683
111.189025
102.032386413
	
136
0.67619
0.4
0.5
0.5
0.5
1
1
0.83333
0.7
2.29412
⋯
0
1
28629403650000
4158715150000
-0.0315
0
0
0
0
0
	
137
0.78095
0.8
1
1
1
0
1
0.6667
0.6
2.375
⋯
10
1
921277510000
85076059000
-0.0434
18.3333
21.6667
30
25
23.75
	
138
0.74444
0.8
1
1
1
0
1
0.6667
0.5
2.29412
⋯
0
1
1073941740480
77320387839.2
-0.1516
0
0
0
0
0
	
139
0.9
0.8
1
1
1
1
1
0.5
0.5
2.29412
⋯
0
0
1517317066800
103378048346
0.0065
0
0
0
0
0
	
140
0.9
0.8
1
1
1
1
1
0.5
0.5
2.29412
⋯
0
1
155237500000
6.4325e+10
-0.2002
0
0
0
0
0
	
141
0
0
0
0
0
0
0
0
0
2.14583
⋯
0
0
5.44282e+11
23752819524
0.2485
0
0
0
0
0
	
142
0
0
0
0
0
0
0
0
0
1.88235
⋯
0
0
3.89007e+11
55782539000
0.1998
0
0
0
0
0
	
143
0.09524
0
0
0
0
0.6667
0
0
0
1.875
⋯
50
0
765881409376
72298136315
0.0397
90
91.6665
50
112.5
93.75
	
144
0.09524
0
0
0
0
0.6667
0
0
0
1.875
⋯
8
0
897281657710
42022184000
0.1792
14.4
14.66664
8
18
15

In [101]:

    

library(stargazer)


    

In [102]:

    

summary(data)


    

    
Out[102]:





      Firm            Year           CEI           BRIB_CORR     
 Min.   : 1.00   Min.   :2011   Min.   :0.0000   Min.   :0.0000  
 1st Qu.: 9.75   1st Qu.:2012   1st Qu.:0.3051   1st Qu.:0.0000  
 Median :18.50   Median :2012   Median :0.4702   Median :0.0000  
 Mean   :18.50   Mean   :2012   Mean   :0.4814   Mean   :0.2542  
 3rd Qu.:27.25   3rd Qu.:2013   3rd Qu.:0.6958   3rd Qu.:0.6000  
 Max.   :36.00   Max.   :2014   Max.   :0.9524   Max.   :1.0000  
    BUSS_ETH        FAIR_COMP        POL_CONTR        INDIG_PPL     
 Min.   :0.0000   Min.   :0.0000   Min.   :0.0000   Min.   :0.0000  
 1st Qu.:0.0000   1st Qu.:0.0000   1st Qu.:0.0000   1st Qu.:0.6667  
 Median :0.5000   Median :0.0000   Median :0.0000   Median :1.0000  
 Mean   :0.4462   Mean   :0.2708   Mean   :0.3316   Mean   :0.7865  
 3rd Qu.:0.7500   3rd Qu.:0.5000   3rd Qu.:0.7500   3rd Qu.:1.0000  
 Max.   :1.0000   Max.   :1.0000   Max.   :1.0000   Max.   :1.0000  
   IND_EC_IMP        X0TH_ENG         ALT_CEI          BRD_EFFC    
 Min.   :0.0000   Min.   :0.0000   Min.   :0.0000   Min.   :1.458  
 1st Qu.:1.0000   1st Qu.:0.3332   1st Qu.:0.3000   1st Qu.:2.059  
 Median :1.0000   Median :0.5000   Median :0.5000   Median :2.235  
 Mean   :0.8681   Mean   :0.5060   Mean   :0.4361   Mean   :2.231  
 3rd Qu.:1.0000   3rd Qu.:0.6667   3rd Qu.:0.6000   3rd Qu.:2.412  
 Max.   :1.0000   Max.   :1.0000   Max.   :0.8000   Max.   :2.882  
    BRD_INDP        BRD_MEET        BRD_SIZE      BRD_COMPT    
 Min.   :1.167   Min.   :1.000   Min.   :1.00   Min.   :1.750  
 1st Qu.:1.833   1st Qu.:2.000   1st Qu.:1.00   1st Qu.:2.500  
 Median :1.833   Median :2.333   Median :3.00   Median :2.500  
 Mean   :1.960   Mean   :2.333   Mean   :2.09   Mean   :2.525  
 3rd Qu.:2.167   3rd Qu.:2.667   3rd Qu.:3.00   3rd Qu.:2.500  
 Max.   :3.000   Max.   :3.000   Max.   :3.00   Max.   :3.000  
    DIVIDEND            LOSS          TOT_ASSETS            SLACK          
 Min.   :   0.00   Min.   :0.0000   Min.   :9.957e+07   Min.   :2.649e+06  
 1st Qu.:   0.00   1st Qu.:0.0000   1st Qu.:7.557e+11   1st Qu.:4.009e+10  
 Median :   0.00   Median :0.0000   Median :3.332e+12   Median :3.073e+11  
 Mean   :  70.24   Mean   :0.3125   Mean   :2.508e+24   Mean   :2.794e+24  
 3rd Qu.:  50.00   3rd Qu.:1.0000   3rd Qu.:1.348e+13   3rd Qu.:1.597e+12  
 Max.   :1666.00   Max.   :1.0000   Max.   :3.611e+26   Max.   :4.023e+26  
      ROE             BRD_INDP_DIV      BRD_MEET_DIV     BRD_SIZE_DIV   
 Min.   :-2.030000   Min.   :   0.00   Min.   :   0.0   Min.   :   0.0  
 1st Qu.:-0.001275   1st Qu.:   0.00   1st Qu.:   0.0   1st Qu.:   0.0  
 Median : 0.045330   Median :   0.00   Median :   0.0   Median :   0.0  
 Mean   : 0.036846   Mean   : 147.22   Mean   : 180.4   Mean   : 203.5  
 3rd Qu.: 0.172300   3rd Qu.:  92.01   3rd Qu.: 125.0   3rd Qu.: 100.0  
 Max.   : 0.741000   Max.   :4442.67   Max.   :4998.0   Max.   :4998.0  
 BRD_COMPT_DIV   BRD_EFFC_DIV   
 Min.   :   0   Min.   :   0.0  
 1st Qu.:   0   1st Qu.:   0.0  
 Median :   0   Median :   0.0  
 Mean   : 182   Mean   : 172.0  
 3rd Qu.: 125   3rd Qu.: 110.6  
 Max.   :4165   Max.   :4606.0  

In [62]:

    

library("ggplot2")


    

In [63]:

    

qplot( y = data$TOBINQ, x = data$SIZE)


    

    




Error in exists(name, envir = env, mode = mode): argument "env" is missing, with no default

In [66]:

    

library("plm")


    

In [104]:

    

data_panel <- pdata.frame(data, index = c("Firm", "Year"), drop.index =  TRUE, row.names = TRUE)


    

In [105]:

    

head(data_panel)


    

    
Out[105]:





CEI
BRIB_CORR
BUSS_ETH
FAIR_COMP
POL_CONTR
INDIG_PPL
IND_EC_IMP
X0TH_ENG
ALT_CEI
BRD_EFFC
ellip.h
DIVIDEND
LOSS
TOT_ASSETS
SLACK
ROE
BRD_INDP_DIV
BRD_MEET_DIV
BRD_SIZE_DIV
BRD_COMPT_DIV
BRD_EFFC_DIV

	
1-2011
0.57143
0
0.5
0.5
0.25
0.25
1
1
0.7
2.5
⋯
30.35
0
5.144545e+13
5.081927e+12
0.22
60.7
75.875
91.05
75.875
75.875
	
1-2012
0.54762
0
0.25
0.25
0.5
1
1
0.8333
0.5
2.35294
⋯
55.82524
0
6.497336e+13
4.857942e+12
0.141
93.04225
158.1713
167.4757
139.5631
131.3534
	
1-2013
0.52381
0
0.5
0.25
0.25
1
1
0.6667
0.5
2.23529
⋯
15.36585
0
8.212195e+13
8.308451e+12
0.074
28.17067
35.8536
46.09755
38.41463
34.34713
	
1-2014
0.52381
0
0.5
0.25
0.25
1
1
0.6667
0.5
2.17647
⋯
29.375
0
8.0175e+13
9.3156e+12
0.056
44.0625
73.4375
88.125
73.4375
63.93381
	
2-2011
0.4881
0
0.5
0.75
0
1
1
0.1667
0.3
2.26458
⋯
0
0
2.301384e+12
3.59163e+11
0.0569
0
0
0
0
0
	
2-2012
0.7381
0
1
1
1
0.667
1
0.5
0.5
2.17647
⋯
0
1
2.903932e+12
152631066954
-0.0773
0
0
0
0
0

In [69]:

    

tabel2_reg1 <- plm(CEI ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT, data = data_panel, model = "within" )
tabel2_reg2 <- plm(CEI ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT + LOSS + TOT_ASSETS + SLACK + ROE , data = data_panel, model = "within" )
tabel2_reg3 <- plm(BRIB_CORR ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT + LOSS + TOT_ASSETS + SLACK + ROE , data = data_panel, model = "within" )
tabel2_reg4 <- plm(BUSS_ETH ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT + LOSS + TOT_ASSETS + SLACK + ROE , data = data_panel, model = "within" )
tabel2_reg5 <- plm(FAIR_COMP ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT + LOSS + TOT_ASSETS + SLACK + ROE , data = data_panel, model = "within" )
tabel2_reg6 <- plm(POL_CONTR ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT + LOSS + TOT_ASSETS + SLACK + ROE , data = data_panel, model = "within" )
tabel2_reg7 <- plm(INDIG_PPL ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT + LOSS + TOT_ASSETS + SLACK + ROE , data = data_panel, model = "within" )
tabel2_reg8 <- plm(IND_EC_IMP ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT + LOSS + TOT_ASSETS + SLACK + ROE , data = data_panel, model = "within" )
tabel2_reg9 <- plm(X0TH_ENG ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT + LOSS + TOT_ASSETS + SLACK + ROE , data = data_panel, model = "within" )


    

In [ ]:

    




    

In [70]:

    

library(lmtest)
summary(tabel2_reg2)


    

    




Error in crossprod(t(X), beta): non-conformable arguments

In [71]:

    

tabel3_reg2 <- plm(CEI ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT + DIVIDEND +  LOSS + TOT_ASSETS + SLACK + ROE , data = data_panel, model = "within" )
tabel3_reg2 <- plm(CEI ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT + DIVIDEND + BRD_INDP_DIV + LOSS + TOT_ASSETS + SLACK + ROE , data = data_panel, model = "within" )
tabel3_reg3 <- plm(CEI ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT + DIVIDEND + BRD_MEET_DIV +LOSS + TOT_ASSETS + SLACK + ROE , data = data_panel, model = "within" )
tabel3_reg4 <- plm(CEI ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT + DIVIDEND + BRD_SIZE_DIV +LOSS + TOT_ASSETS + SLACK + ROE , data = data_panel, model = "within" )
tabel3_reg5 <- plm(CEI ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT + DIVIDEND + BRD_COMPT_DIV +LOSS + TOT_ASSETS + SLACK + ROE , data = data_panel, model = "within" )


    

In [72]:

    

# tabel3_reg51 <- plm(CEI ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT + DIVIDEND + BRD_COMPT_DIV +LOSS + TOT_ASSETS + SLACK + ROE , data = data_panel, model = "within",
#                    vcovHC = c(type = c("HC0", "HC1", "HC2", "HC3", "HC4"),
# cluster = c("group","time"),
# diagonal = FALSE ))
# summary(tabel3_reg51)
robust1 <- coeftest(tabel2_reg2, vcov=function(x) vcovHC(x, method="arellano",
 type="HC1", cluster="group"))
robust2 <- coeftest(tabel2_reg3, vcov=function(x) vcovHC(x, method="arellano",
 type="HC1", cluster="group"))


    

    




Error in solve.default(crossprod(demX)): system is computationally singular: reciprocal condition number = 9.39067e-54






    




Error in solve.default(crossprod(demX)): system is computationally singular: reciprocal condition number = 9.39067e-54

In [73]:

    

summary(tabel3_reg5)


    

    




Error in crossprod(t(X), beta): non-conformable arguments

In [74]:

    

names(data)


    

    
Out[74]:





	
'X'
	
'Firm'
	
'Year'
	
'CEI'
	
'BRIB_CORR'
	
'BUSS_ETH'
	
'FAIR_COMP'
	
'POL_CONTR'
	
'INDIG_PPL'
	
'IND_EC_IMP'
	
'X0TH_ENG'
	
'ALT_CEI'
	
'BRD_EFFC'
	
'BRD_INDP'
	
'BRD_MEET'
	
'BRD_SIZE'
	
'BRD_COMPT'
	
'DIVIDEND'
	
'LOSS'
	
'TOT_ASSETS'
	
'SLACK'
	
'ROE'
	
'BRD_INDP_DIV'
	
'BRD_MEET_DIV'
	
'BRD_SIZE_DIV'
	
'BRD_COMPT_DIV'
	
'BRD_EFFC_DIV'

In [75]:

    

vcovHC(tabel2_reg2 , method = c("arellano", "white1", "white2"),
                        type = c("HC0", "HC1", "HC2", "HC3", "HC4"),
                        cluster = c("group","time"))


    

    




Error in solve.default(crossprod(demX)): system is computationally singular: reciprocal condition number = 9.39067e-54

In [ ]:

    

tabel4_reg1 <- plm(CEI ~ BRD_EFFC +  DIVIDEND +  LOSS + TOT_ASSETS + SLACK + ROE, data = data_panel, model = "within" )
tabel4_reg2 <- plm(ALT_CEI ~ BRD_EFFC +  DIVIDEND +  LOSS + TOT_ASSETS + SLACK + ROE, data = data_panel, data = data_panel, model = "within" )
tabel4_reg3 <- plm(CEI ~ BRD_EFFC +  DIVIDEND + BRD_EFFC_DIV + LOSS + TOT_ASSETS + SLACK + ROE, data = data_panel, model = "within" )
tabel4_reg4 <- plm(ALT_CEI ~ BRD_EFFC +  DIVIDEND + BRD_EFFC_DIV + LOSS + TOT_ASSETS + SLACK + ROE, data = data_panel, model = "within" )
tabel4_reg5 <- plm(CEI ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT, data = data_panel, model = "within" )
tabel4_reg6 <- plm(CEI ~ BRD_INDP + BRD_MEET + BRD_SIZE + BRD_COMPT, data = data_panel, model = "within" )


    

In [76]:

    

skripsi.fe <- plm(TOBINQ ~ PDEBT + LogAssets + LEV + LIQ + INTCOV + PROF + DR + GROWTH + FIRMAGE, data = data_panel, model = "within")
skripsi.re <- plm(TOBINQ ~ PDEBT + LogAssets + LEV + LIQ + INTCOV + PROF + DR + GROWTH + FIRMAGE, data = data_panel, model = "random")


    

    




Error in eval(expr, envir, enclos): object 'TOBINQ' not found






    




Error in eval(expr, envir, enclos): object 'TOBINQ' not found

In [77]:

    

summary(skripsi.fe)


    

    




Error in summary(skripsi.fe): object 'skripsi.fe' not found

In [78]:

    

summary(skripsi.re)


    

    




Error in summary(skripsi.re): object 'skripsi.re' not found

In [79]:

    

phtest( skripsi.fe, skripsi.re)


    

    




Error in phtest(skripsi.fe, skripsi.re): object 'skripsi.fe' not found

In [80]:

    

pooltest.billy <- pooltest(TOBINQ ~ PDEBT + FIRMAGE + LIQ, data = data_panel, model="within")


    

    




Error in eval(expr, envir, enclos): object 'TOBINQ' not found

In [81]:

    

pooltest.billy


    

    




Error in eval(expr, envir, enclos): object 'pooltest.billy' not found

In [82]:

    

pool_rergression <- plm(TOBINQ ~ PDEBT + SIZE + LEV + LIQ + INTCOV + PROF + DR + GROWTH + FIRMAGE, data = data_panel, model="pooling")
bpagan_test <- plmtest(pool_rergression,effect="twoways",type="bp")


    

    




Error in eval(expr, envir, enclos): object 'TOBINQ' not found






    




Error in plmtest(pool_rergression, effect = "twoways", type = "bp"): object 'pool_rergression' not found

In [83]:

    

bpagan_test


    

    




Error in eval(expr, envir, enclos): object 'bpagan_test' not found

In [84]:

    

summary(skripsi.fe)


    

    




Error in summary(skripsi.fe): object 'skripsi.fe' not found

In [85]:

    

summary(data_panel)


    

    
Out[85]:





       X               CEI           BRIB_CORR         BUSS_ETH     
 Min.   :  0.00   Min.   :0.0000   Min.   :0.0000   Min.   :0.0000  
 1st Qu.: 35.75   1st Qu.:0.3051   1st Qu.:0.0000   1st Qu.:0.0000  
 Median : 71.50   Median :0.4702   Median :0.0000   Median :0.5000  
 Mean   : 71.50   Mean   :0.4814   Mean   :0.2542   Mean   :0.4462  
 3rd Qu.:107.25   3rd Qu.:0.6958   3rd Qu.:0.6000   3rd Qu.:0.7500  
 Max.   :143.00   Max.   :0.9524   Max.   :1.0000   Max.   :1.0000  
   FAIR_COMP        POL_CONTR        INDIG_PPL        IND_EC_IMP    
 Min.   :0.0000   Min.   :0.0000   Min.   :0.0000   Min.   :0.0000  
 1st Qu.:0.0000   1st Qu.:0.0000   1st Qu.:0.6667   1st Qu.:1.0000  
 Median :0.0000   Median :0.0000   Median :1.0000   Median :1.0000  
 Mean   :0.2708   Mean   :0.3316   Mean   :0.7865   Mean   :0.8681  
 3rd Qu.:0.5000   3rd Qu.:0.7500   3rd Qu.:1.0000   3rd Qu.:1.0000  
 Max.   :1.0000   Max.   :1.0000   Max.   :1.0000   Max.   :1.0000  
    X0TH_ENG         ALT_CEI          BRD_EFFC        BRD_INDP    
 Min.   :0.0000   Min.   :0.0000   Min.   :1.458   Min.   :1.167  
 1st Qu.:0.3332   1st Qu.:0.3000   1st Qu.:2.059   1st Qu.:1.833  
 Median :0.5000   Median :0.5000   Median :2.235   Median :1.833  
 Mean   :0.5060   Mean   :0.4361   Mean   :2.231   Mean   :1.960  
 3rd Qu.:0.6667   3rd Qu.:0.6000   3rd Qu.:2.412   3rd Qu.:2.167  
 Max.   :1.0000   Max.   :0.8000   Max.   :2.882   Max.   :3.000  
    BRD_MEET        BRD_SIZE      BRD_COMPT        DIVIDEND      
 Min.   :1.000   Min.   :1.00   Min.   :1.750   Min.   :   0.00  
 1st Qu.:2.000   1st Qu.:1.00   1st Qu.:2.500   1st Qu.:   0.00  
 Median :2.333   Median :3.00   Median :2.500   Median :   0.00  
 Mean   :2.333   Mean   :2.09   Mean   :2.525   Mean   :  70.24  
 3rd Qu.:2.667   3rd Qu.:3.00   3rd Qu.:2.500   3rd Qu.:  50.00  
 Max.   :3.000   Max.   :3.00   Max.   :3.000   Max.   :1666.00  
      LOSS          TOT_ASSETS            SLACK                ROE           
 Min.   :0.0000   Min.   :9.957e+07   Min.   :2.649e+06   Min.   :-2.030000  
 1st Qu.:0.0000   1st Qu.:7.557e+11   1st Qu.:4.009e+10   1st Qu.:-0.001275  
 Median :0.0000   Median :3.332e+12   Median :3.073e+11   Median : 0.045330  
 Mean   :0.3125   Mean   :2.508e+24   Mean   :2.794e+24   Mean   : 0.036846  
 3rd Qu.:1.0000   3rd Qu.:1.348e+13   3rd Qu.:1.597e+12   3rd Qu.: 0.172300  
 Max.   :1.0000   Max.   :3.611e+26   Max.   :4.023e+26   Max.   : 0.741000  
  BRD_INDP_DIV      BRD_MEET_DIV     BRD_SIZE_DIV    BRD_COMPT_DIV 
 Min.   :   0.00   Min.   :   0.0   Min.   :   0.0   Min.   :   0  
 1st Qu.:   0.00   1st Qu.:   0.0   1st Qu.:   0.0   1st Qu.:   0  
 Median :   0.00   Median :   0.0   Median :   0.0   Median :   0  
 Mean   : 147.22   Mean   : 180.4   Mean   : 203.5   Mean   : 182  
 3rd Qu.:  92.01   3rd Qu.: 125.0   3rd Qu.: 100.0   3rd Qu.: 125  
 Max.   :4442.67   Max.   :4998.0   Max.   :4998.0   Max.   :4165  
  BRD_EFFC_DIV   
 Min.   :   0.0  
 1st Qu.:   0.0  
 Median :   0.0  
 Mean   : 172.0  
 3rd Qu.: 110.6  
 Max.   :4606.0  

In [86]:

    

qplot(y = data$LogTobinsQ, x = data$LIQ, geom = c("point", "smooth"), method = lm)


    

    




Error in exists(name, envir = env, mode = mode): argument "env" is missing, with no default

In [87]:

    

var(data$LIQ)


    

    




Error in var(data$LIQ): 'x' is NULL

In [88]:

    

var(data$TOBINQ)


    

    




Error in var(data$TOBINQ): 'x' is NULL

In [89]:

    

qplot(data$TOBINQ)


    

    




Error in exists(name, envir = env, mode = mode): argument "env" is missing, with no default

In [90]:

    

skripsi.try1 <- plm(log(TOBINQ) ~ PDEBT + log(SIZE) + log(LEV) + log(LIQ) + log(INTCOV) + log(PROF) + DR + log(GROWTH) + FIRMAGE + y1 + y2 + y3 , data = data_panel, model = "within")


    

    




Error in eval(expr, envir, enclos): object 'TOBINQ' not found

In [91]:

    

summary(skripsi.try1)


    

    




Error in summary(skripsi.try1): object 'skripsi.try1' not found

In [92]:

    

install.packages("R2wd")


    

    




Installing package into ‘/home/qbits7/R/x86_64-pc-linux-gnu-library/3.2’
(as ‘lib’ is unspecified)






    




Error in contrib.url(repos, type): trying to use CRAN without setting a mirror

In [ ]:

    




    

In [ ]:

    




    

In [ ]:

    




    

In [ ]:

    




    

In [ ]:

    




    

In [ ]: