notebook.community

Edit and run

Uploading data Billy





In [2]:



    


data <- read.csv("data billy.csv")



    











In [3]:



    


head(data)



    


















    
Out[3]:









PerusahaanTahunTOBINQPDEBTSIZELEVLIQINTCOVPROFDRellip.hLnTobinQTotal.AssetsLogAssetsMarkCapLogMarkCapLogAgeInterestExpTotalDebtAveInterestRateFreeCashFlow


	
1120094.87694809.8738380.15306821.82584682.6680.33842420⋯1.5845274789060009.8738384125831900010.615511.3222193061696211447830000.026744777478906000

	
2120103.55771609.9411890.15280711.931698100.78340.33938711⋯1.26911987335080009.9411893417196650010.533671.3424232941000013345420000.022037528733508000

	
3120112.598894010.004530.17598791.309672129.29370.32983381⋯0.95508611010488200010.004533102247650010.491681.3617282577800017783370000.0144955710104882000

	
4120122.85673010.090290.07895110.6846251121.7320.28869721⋯1.0496781231078400010.090293952609950010.596881.380211291960139719500000.030038612310784000

	
5120132.321763010.169950.18411560.450006636.9750.1810421⋯0.84232681478929900010.169953818756625010.581921.397947241338727229400000.0265938214789299000

	
6220092.33798608.3518210.044700112.1610774.2750.032308370⋯0.84929012248129598.3518217714350008.8872991.2552731699027100491630.1690715224812959





















In [4]:



    


tail(data)



    


















    
Out[4]:









PerusahaanTahunTOBINQPDEBTSIZELEVLIQINTCOVPROFDRellip.hLnTobinQTotal.AssetsLogAssetsMarkCapLogMarkCapLogAgeInterestExpTotalDebtAveInterestRateFreeCashFlow


	
103020620131.45224808.7876860.27856081.1763471.5160.040396780⋯0.37311296133185508.7876863.34e+088.5237471.278754163430711708464810.09565939613318550

	
103120720091.10108607.8112820.40765380.3351483-36.816-0.18209430⋯0.09629688647562607.811282327833107.5156531.361728320288.6263981360.01213364756260

	
103220720101.35357707.7281760.48806310.2854187-114.519-0.23068550⋯0.3027511534781267.728176327833107.5156531.380211107725.6261007010.00412730753478126

	
103320720112.67280307.6757180.6618510.2787375-17.224-0.19683240⋯0.9831279473934597.675718754016137.8773811.39794541602.9313674090.0172664247393459

	
103420720122.62764407.596950.76545370.2913926-12.88-0.16468390⋯0.9660878395321367.59695550759617.7409621.414973505458.7302600180.0167038539532136

	
103520720134.22799907.5140570.94145950.2402468-16.487-0.20947250⋯1.441729326630627.5140571224270208.0878771.431364414994.4307509500.0134953432663062





















In [5]:



    


names(data)



    


















    
Out[5]:







    
	
  1. 'Perusahaan'
    2. 
	
  2. 'Tahun'
    3. 
	
  3. 'TOBINQ'
    4. 
	
  4. 'PDEBT'
    5. 
	
  5. 'SIZE'
    6. 
	
  6. 'LEV'
    7. 
	
  7. 'LIQ'
    8. 
	
  8. 'INTCOV'
    9. 
	
  9. 'PROF'
    10. 
	
  10. 'DR'
    11. 
	
  11. 'GROWTH'
    12. 
	
  12. 'FIRMAGE'
    13. 
	
  13. 'y1'
    14. 
	
  14. 'y2'
    15. 
	
  15. 'y3'
    16. 
	
  16. 'y4'
    17. 
	
  17. 'y5'
    18. 
	
  18. 'i1'
    19. 
	
  19. 'i2'
    20. 
	
  20. 'i3'
    21. 
	
  21. 'i4'
    22. 
	
  22. 'i5'
    23. 
	
  23. 'i6'
    24. 
	
  24. 'i7'
    25. 
	
  25. 'i8'
    26. 
	
  26. 'LogTobinsQ'
    27. 
	
  27. 'LnTobinQ'
    28. 
	
  28. 'Total.Assets'
    29. 
	
  29. 'LogAssets'
    30. 
	
  30. 'MarkCap'
    31. 
	
  31. 'LogMarkCap'
    32. 
	
  32. 'LogAge'
    33. 
	
  33. 'InterestExp'
    34. 
	
  34. 'TotalDebt'
    35. 
	
  35. 'AveInterestRate'
    36. 
	
  36. 'FreeCashFlow'
    37.

Plotting





In [6]:



    


library("ggplot2")



    











In [7]:



    


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



    


















    





























































































  


  


  


  


  


  


  


  


  


  


  


  


  


  


  


  


  


  








































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































  


  
  


  
  


  
  










  


  


  
  


  
  


  
  
  
  
  
  
  
  
  


  
  
  
  
  
  
  
  
  
  
  




















In [8]:



    


max(data$TOBINQ)



    


















    
Out[8]:






34.171691
















In [9]:



    


names(data)



    


















    
Out[9]:







    
	
  1. 'Perusahaan'
    2. 
	
  2. 'Tahun'
    3. 
	
  3. 'TOBINQ'
    4. 
	
  4. 'PDEBT'
    5. 
	
  5. 'SIZE'
    6. 
	
  6. 'LEV'
    7. 
	
  7. 'LIQ'
    8. 
	
  8. 'INTCOV'
    9. 
	
  9. 'PROF'
    10. 
	
  10. 'DR'
    11. 
	
  11. 'GROWTH'
    12. 
	
  12. 'FIRMAGE'
    13. 
	
  13. 'y1'
    14. 
	
  14. 'y2'
    15. 
	
  15. 'y3'
    16. 
	
  16. 'y4'
    17. 
	
  17. 'y5'
    18. 
	
  18. 'i1'
    19. 
	
  19. 'i2'
    20. 
	
  20. 'i3'
    21. 
	
  21. 'i4'
    22. 
	
  22. 'i5'
    23. 
	
  23. 'i6'
    24. 
	
  24. 'i7'
    25. 
	
  25. 'i8'
    26. 
	
  26. 'LogTobinsQ'
    27. 
	
  27. 'LnTobinQ'
    28. 
	
  28. 'Total.Assets'
    29. 
	
  29. 'LogAssets'
    30. 
	
  30. 'MarkCap'
    31. 
	
  31. 'LogMarkCap'
    32. 
	
  32. 'LogAge'
    33. 
	
  33. 'InterestExp'
    34. 
	
  34. 'TotalDebt'
    35. 
	
  35. 'AveInterestRate'
    36. 
	
  36. 'FreeCashFlow'
    37. 



















In [ ]:

Regression





In [10]:



    


library("plm")



    


















    






Loading required package: Formula

















In [11]:



    


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



    











In [12]:



    


head(data_panel)



    


















    
Out[12]:









TOBINQPDEBTSIZELEVLIQINTCOVPROFDRGROWTHFIRMAGEellip.hLnTobinQTotal.AssetsLogAssetsMarkCapLogMarkCapLogAgeInterestExpTotalDebtAveInterestRateFreeCashFlow


	
1-20094.87694809.8738380.15306821.82584682.6680.338424200.191188621⋯1.5845274789060009.8738384125831900010.615511.3222193061696211447830000.026744777478906000

	
1-20103.55771609.9411890.15280711.931698100.78340.339387110.218105122⋯1.26911987335080009.9411893417196650010.533671.3424232941000013345420000.022037528733508000

	
1-20112.598894010.004530.17598791.309672129.29370.329833810.0734955623⋯0.95508611010488200010.004533102247650010.491681.3617282577800017783370000.0144955710104882000

	
1-20122.85673010.090290.07895110.6846251121.7320.288697210.096043724⋯1.0496781231078400010.090293952609950010.596881.380211291960139719500000.030038612310784000

	
1-20132.321763010.169950.18411560.450006636.9750.18104210.286456225⋯0.84232681478929900010.169953818756625010.581921.397947241338727229400000.0265938214789299000

	
2-20092.33798608.3518210.044700112.1610774.2750.0323083700.204353518⋯0.84929012248129598.3518217714350008.8872991.2552731699027100491630.1690715224812959





















In [13]:



    


reg_all <- plm(TOBINQ ~ PDEBT + SIZE + LEV + LIQ + INTCOV + PROF + DR + GROWTH + FIRMAGE, data = data_panel )



    











In [14]:



    


names(data_panel)



    


















    
Out[14]:







    
	
  1. 'TOBINQ'
    2. 
	
  2. 'PDEBT'
    3. 
	
  3. 'SIZE'
    4. 
	
  4. 'LEV'
    5. 
	
  5. 'LIQ'
    6. 
	
  6. 'INTCOV'
    7. 
	
  7. 'PROF'
    8. 
	
  8. 'DR'
    9. 
	
  9. 'GROWTH'
    10. 
	
  10. 'FIRMAGE'
    11. 
	
  11. 'y1'
    12. 
	
  12. 'y2'
    13. 
	
  13. 'y3'
    14. 
	
  14. 'y4'
    15. 
	
  15. 'y5'
    16. 
	
  16. 'i1'
    17. 
	
  17. 'i2'
    18. 
	
  18. 'i3'
    19. 
	
  19. 'i4'
    20. 
	
  20. 'i5'
    21. 
	
  21. 'i6'
    22. 
	
  22. 'i7'
    23. 
	
  23. 'i8'
    24. 
	
  24. 'LogTobinsQ'
    25. 
	
  25. 'LnTobinQ'
    26. 
	
  26. 'Total.Assets'
    27. 
	
  27. 'LogAssets'
    28. 
	
  28. 'MarkCap'
    29. 
	
  29. 'LogMarkCap'
    30. 
	
  30. 'LogAge'
    31. 
	
  31. 'InterestExp'
    32. 
	
  32. 'TotalDebt'
    33. 
	
  33. 'AveInterestRate'
    34. 
	
  34. 'FreeCashFlow'
    35. 



















In [15]:



    


reg_all



    


















    
Out[15]:








Model Formula: TOBINQ ~ PDEBT + SIZE + LEV + LIQ + INTCOV + PROF + DR + GROWTH + 
    FIRMAGE

Coefficients:
      PDEBT        SIZE         LEV         LIQ      INTCOV        PROF 
-7.4034e-02 -1.9454e+00  4.2123e-01 -1.6063e-04  4.7511e-06 -3.8068e-02 
         DR      GROWTH     FIRMAGE 
-3.4063e-01 -1.1192e-04  1.4926e-01 


















In [16]:



    


summary(reg_all)



    


















    
Out[16]:








Oneway (individual) effect Within Model

Call:
plm(formula = TOBINQ ~ PDEBT + SIZE + LEV + LIQ + INTCOV + PROF + 
    DR + GROWTH + FIRMAGE, data = data_panel)

Balanced Panel: n=207, T=5, N=1035

Residuals :
    Min.  1st Qu.   Median  3rd Qu.     Max. 
-11.8000  -0.2090  -0.0142   0.1760  17.3000 

Coefficients :
           Estimate  Std. Error t-value  Pr(>|t|)    
PDEBT   -7.4034e-02  1.8009e-01 -0.4111    0.6811    
SIZE    -1.9454e+00  3.2034e-01 -6.0729 1.921e-09 ***
LEV      4.2123e-01  3.1864e-01  1.3220    0.1865    
LIQ     -1.6063e-04  6.7216e-04 -0.2390    0.8112    
INTCOV   4.7511e-06  7.6475e-06  0.6213    0.5346    
PROF    -3.8068e-02  9.1633e-02 -0.4154    0.6779    
DR      -3.4063e-01  2.7191e-01 -1.2527    0.2107    
GROWTH  -1.1192e-04  5.5499e-03 -0.0202    0.9839    
FIRMAGE  1.4926e-01  3.0484e-02  4.8962 1.177e-06 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Total Sum of Squares:    962.83
Residual Sum of Squares: 914.1
R-Squared      :  0.050611 
      Adj. R-Squared :  0.040049 
F-statistic: 4.8511 on 9 and 819 DF, p-value: 2.4296e-06

Coba Regresi Billy

Hausman Test: H0: RE vs H1: FE





In [17]:



    


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")



    











In [18]:



    


summary(skripsi.fe)



    


















    
Out[18]:








Oneway (individual) effect Within Model

Call:
plm(formula = TOBINQ ~ PDEBT + LogAssets + LEV + LIQ + INTCOV + 
    PROF + DR + GROWTH + FIRMAGE, data = data_panel, model = "within")

Balanced Panel: n=207, T=5, N=1035

Residuals :
    Min.  1st Qu.   Median  3rd Qu.     Max. 
-11.8000  -0.2090  -0.0142   0.1760  17.3000 

Coefficients :
             Estimate  Std. Error t-value  Pr(>|t|)    
PDEBT     -7.4034e-02  1.8009e-01 -0.4111    0.6811    
LogAssets -1.9454e+00  3.2034e-01 -6.0729 1.921e-09 ***
LEV        4.2123e-01  3.1864e-01  1.3220    0.1865    
LIQ       -1.6063e-04  6.7216e-04 -0.2390    0.8112    
INTCOV     4.7511e-06  7.6475e-06  0.6213    0.5346    
PROF      -3.8068e-02  9.1633e-02 -0.4154    0.6779    
DR        -3.4063e-01  2.7191e-01 -1.2527    0.2107    
GROWTH    -1.1192e-04  5.5499e-03 -0.0202    0.9839    
FIRMAGE    1.4926e-01  3.0484e-02  4.8962 1.177e-06 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Total Sum of Squares:    962.83
Residual Sum of Squares: 914.1
R-Squared      :  0.050611 
      Adj. R-Squared :  0.040049 
F-statistic: 4.8511 on 9 and 819 DF, p-value: 2.4296e-06

















In [19]:



    


summary(skripsi.re)



    


















    
Out[19]:








Oneway (individual) effect Random Effect Model 
   (Swamy-Arora's transformation)

Call:
plm(formula = TOBINQ ~ PDEBT + LogAssets + LEV + LIQ + INTCOV + 
    PROF + DR + GROWTH + FIRMAGE, data = data_panel, model = "random")

Balanced Panel: n=207, T=5, N=1035

Effects:
                var std.dev share
idiosyncratic 1.116   1.056 0.318
individual    2.392   1.547 0.682
theta:  0.7078  

Residuals :
   Min. 1st Qu.  Median 3rd Qu.    Max. 
-7.8700 -0.3350 -0.2010  0.0636 22.0000 

Coefficients :
               Estimate  Std. Error t-value Pr(>|t|)  
(Intercept)  3.0857e+00  1.3880e+00  2.2231  0.02643 *
PDEBT       -2.0165e-01  1.6255e-01 -1.2405  0.21506  
LogAssets   -1.6863e-01  1.5616e-01 -1.0799  0.28043  
LEV         -3.2845e-02  2.6602e-01 -0.1235  0.90176  
LIQ         -1.1560e-04  6.7088e-04 -0.1723  0.86323  
INTCOV       2.6337e-06  7.7080e-06  0.3417  0.73266  
PROF         5.0879e-02  9.1020e-02  0.5590  0.57630  
DR           9.7078e-02  2.4247e-01  0.4004  0.68897  
GROWTH      -1.1083e-03  5.5843e-03 -0.1985  0.84271  
FIRMAGE     -7.3995e-04  7.2386e-03 -0.1022  0.91860  
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Total Sum of Squares:    1196.2
Residual Sum of Squares: 1190.3
R-Squared      :  0.0049354 
      Adj. R-Squared :  0.0048877 
F-statistic: 0.564876 on 9 and 1025 DF, p-value: 0.82652

















In [20]:



    


phtest( skripsi.fe, skripsi.re)



    


















    
Out[20]:








	Hausman Test

data:  TOBINQ ~ PDEBT + LogAssets + LEV + LIQ + INTCOV + PROF + DR +  ...
chisq = 46.521, df = 9, p-value = 4.82e-07
alternative hypothesis: one model is inconsistent

Hausman menghasilkan penggunaan Fixed Effect

Poolability Test





In [21]:



    


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



    











In [22]:



    


pooltest.billy



    


















    
Out[22]:








	F statistic

data:  TOBINQ ~ PDEBT + FIRMAGE + LIQ
F = 2.7547, df1 = 618, df2 = 207, p-value = 2.635e-16
alternative hypothesis: unstability

Bruesch Pagan Test





In [23]:



    


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")



    











In [24]:



    


bpagan_test



    


















    
Out[24]:








	Lagrange Multiplier Test - two-ways effects (Breusch-Pagan)

data:  TOBINQ ~ PDEBT + SIZE + LEV + LIQ + INTCOV + PROF + DR + GROWTH +  ...
chisq = 892.71, df = 2, p-value < 2.2e-16
alternative hypothesis: significant effects

BP Test significant dan Hausman significant, sehinggga menggunakan Fixed effect





In [25]:



    


summary(skripsi.fe)



    


















    
Out[25]:








Oneway (individual) effect Within Model

Call:
plm(formula = TOBINQ ~ PDEBT + LogAssets + LEV + LIQ + INTCOV + 
    PROF + DR + GROWTH + FIRMAGE, data = data_panel, model = "within")

Balanced Panel: n=207, T=5, N=1035

Residuals :
    Min.  1st Qu.   Median  3rd Qu.     Max. 
-11.8000  -0.2090  -0.0142   0.1760  17.3000 

Coefficients :
             Estimate  Std. Error t-value  Pr(>|t|)    
PDEBT     -7.4034e-02  1.8009e-01 -0.4111    0.6811    
LogAssets -1.9454e+00  3.2034e-01 -6.0729 1.921e-09 ***
LEV        4.2123e-01  3.1864e-01  1.3220    0.1865    
LIQ       -1.6063e-04  6.7216e-04 -0.2390    0.8112    
INTCOV     4.7511e-06  7.6475e-06  0.6213    0.5346    
PROF      -3.8068e-02  9.1633e-02 -0.4154    0.6779    
DR        -3.4063e-01  2.7191e-01 -1.2527    0.2107    
GROWTH    -1.1192e-04  5.5499e-03 -0.0202    0.9839    
FIRMAGE    1.4926e-01  3.0484e-02  4.8962 1.177e-06 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Total Sum of Squares:    962.83
Residual Sum of Squares: 914.1
R-Squared      :  0.050611 
      Adj. R-Squared :  0.040049 
F-statistic: 4.8511 on 9 and 819 DF, p-value: 2.4296e-06

















In [26]:



    


summary(data_panel)



    


















    
Out[26]:








     TOBINQ            PDEBT             SIZE             LEV          
 Min.   : 0.1984   Min.   :0.0000   Min.   : 7.392   Min.   :0.000044  
 1st Qu.: 0.6295   1st Qu.:0.0000   1st Qu.: 8.747   1st Qu.:0.140685  
 Median : 0.9134   Median :0.0000   Median : 9.229   Median :0.267306  
 Mean   : 1.4495   Mean   :0.2618   Mean   : 9.272   Mean   :0.306223  
 3rd Qu.: 1.6101   3rd Qu.:1.0000   3rd Qu.: 9.777   3rd Qu.:0.419970  
 Max.   :34.1717   Max.   :1.0000   Max.   :11.325   Max.   :3.180304  
      LIQ                INTCOV               PROF                DR         
 Min.   :   0.0895   Min.   :-54001.31   Min.   :-0.83117   Min.   :0.00000  
 1st Qu.:   1.0953   1st Qu.:     1.67   1st Qu.: 0.03774   1st Qu.:0.00000  
 Median :   1.4547   Median :     4.03   Median : 0.08377   Median :0.00000  
 Mean   :   4.8288   Mean   :   107.47   Mean   : 0.10481   Mean   :0.09372  
 3rd Qu.:   2.0603   3rd Qu.:    12.02   3rd Qu.: 0.14566   3rd Qu.:0.00000  
 Max.   :1910.2793   Max.   :145336.75   Max.   :12.98195   Max.   :1.00000  
     GROWTH             FIRMAGE             y1            y2            y3     
 Min.   : -0.88500   Min.   :  3.00   Min.   :0.0   Min.   :0.0   Min.   :0.0  
 1st Qu.:  0.01949   1st Qu.: 22.00   1st Qu.:0.0   1st Qu.:0.0   1st Qu.:0.0  
 Median :  0.11835   Median : 31.00   Median :0.0   Median :0.0   Median :0.0  
 Mean   :  0.34861   Mean   : 31.82   Mean   :0.2   Mean   :0.2   Mean   :0.2  
 3rd Qu.:  0.22985   3rd Qu.: 39.00   3rd Qu.:0.0   3rd Qu.:0.0   3rd Qu.:0.0  
 Max.   :214.95543   Max.   :155.00   Max.   :1.0   Max.   :1.0   Max.   :1.0  
       y4            y5            i1                i2         
 Min.   :0.0   Min.   :0.0   Min.   :0.00000   Min.   :0.00000  
 1st Qu.:0.0   1st Qu.:0.0   1st Qu.:0.00000   1st Qu.:0.00000  
 Median :0.0   Median :0.0   Median :0.00000   Median :0.00000  
 Mean   :0.2   Mean   :0.2   Mean   :0.05797   Mean   :0.08696  
 3rd Qu.:0.0   3rd Qu.:0.0   3rd Qu.:0.00000   3rd Qu.:0.00000  
 Max.   :1.0   Max.   :1.0   Max.   :1.00000   Max.   :1.00000  
       i3               i4               i5               i6         
 Min.   :0.0000   Min.   :0.0000   Min.   :0.0000   Min.   :0.00000  
 1st Qu.:0.0000   1st Qu.:0.0000   1st Qu.:0.0000   1st Qu.:0.00000  
 Median :0.0000   Median :0.0000   Median :0.0000   Median :0.00000  
 Mean   :0.2174   Mean   :0.1353   Mean   :0.1063   Mean   :0.03382  
 3rd Qu.:0.0000   3rd Qu.:0.0000   3rd Qu.:0.0000   3rd Qu.:0.00000  
 Max.   :1.0000   Max.   :1.0000   Max.   :1.0000   Max.   :1.00000  
       i7                i8           LogTobinsQ          LnTobinQ       
 Min.   :0.00000   Min.   :0.0000   Min.   :-0.70245   Min.   :-1.61744  
 1st Qu.:0.00000   1st Qu.:0.0000   1st Qu.:-0.20098   1st Qu.:-0.46277  
 Median :0.00000   Median :0.0000   Median :-0.03932   Median :-0.09054  
 Mean   :0.09179   Mean   :0.2705   Mean   : 0.01777   Mean   : 0.04091  
 3rd Qu.:0.00000   3rd Qu.:1.0000   3rd Qu.: 0.20687   3rd Qu.: 0.47632  
 Max.   :1.00000   Max.   :1.0000   Max.   : 1.53367   Max.   : 3.53140  
  Total.Assets         LogAssets         MarkCap            LogMarkCap    
 Min.   :2.465e+07   Min.   : 7.392   Min.   :5.796e+06   Min.   : 6.763  
 1st Qu.:5.580e+08   1st Qu.: 8.747   1st Qu.:2.444e+08   1st Qu.: 8.388  
 Median :1.696e+09   Median : 9.229   Median :1.085e+09   Median : 9.035  
 Mean   :7.262e+09   Mean   : 9.272   Mean   :1.057e+10   Mean   : 9.108  
 3rd Qu.:5.991e+09   3rd Qu.: 9.777   3rd Qu.:5.514e+09   3rd Qu.: 9.741  
 Max.   :2.120e+11   Max.   :11.325   Max.   :3.080e+11   Max.   :11.488  
     LogAge        InterestExp          TotalDebt         AveInterestRate   
 Min.   :0.4771   Min.   :1.000e+00   Min.   :4.548e+03   Min.   : 0.00000  
 1st Qu.:1.3424   1st Qu.:7.460e+06   1st Qu.:1.045e+08   1st Qu.: 0.04479  
 Median :1.4914   Median :2.813e+07   Median :4.165e+08   Median : 0.07600  
 Mean   :1.4500   Mean   :1.585e+08   Mean   :2.363e+09   Mean   : 0.28513  
 3rd Qu.:1.5911   3rd Qu.:9.415e+07   3rd Qu.:1.451e+09   3rd Qu.: 0.11087  
 Max.   :2.1903   Max.   :6.979e+09   Max.   :6.452e+10   Max.   :47.02263  
  FreeCashFlow      
 Min.   :2.465e+07  
 1st Qu.:5.580e+08  
 Median :1.696e+09  
 Mean   :7.262e+09  
 3rd Qu.:5.991e+09  
 Max.   :2.120e+11  

















In [27]:



    


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



    


















    
































































































  


  


  


  


  


  


  


  


  


  


  


  


  


  


  


  




































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































  
  


  


  










  


  
  
  


  
  
  
  


  
  
  
  


  
  
  
  


  
  
  
  
  
  
  
  


  
  
  
  
  
  
  
  
  
  
  
  
  
  
  




















In [28]:



    


var(data$LIQ)



    


















    
Out[28]:






3663.58133195635
















In [29]:



    


var(data$TOBINQ)



    


















    
Out[29]:






3.57502367203198
















In [30]:



    


qplot(data$TOBINQ)



    


















    






stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.










    




















































































  


  


  


  


  


  


  


  


  


  


  


  


  


  


  


  




































































  


  
  
  


  
  
  


  
  
  










  


  
  


  
  


  
  


  
  
  
  
  
  
  
  
  
  
  


  
  
  
  
  




















In [31]:



    


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")



    


















    






Warning message:
In log(INTCOV): NaNs producedWarning message:
In log(PROF): NaNs producedWarning message:
In log(GROWTH): NaNs produced
















In [32]:



    


summary(skripsi.try1)



    


















    
Out[32]:








Oneway (individual) effect Within Model

Call:
plm(formula = 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")

Unbalanced Panel: n=198, T=1-5, N=751

Residuals :
   Min. 1st Qu.  Median 3rd Qu.    Max. 
 -0.868  -0.140   0.000   0.123   1.180 

Coefficients :
             Estimate Std. Error t-value  Pr(>|t|)    
PDEBT       -0.079836   0.059377 -1.3446 0.1793295    
log(SIZE)   -5.679590   1.559314 -3.6424 0.0002961 ***
log(LEV)     0.010065   0.022872  0.4401 0.6600653    
log(LIQ)     0.054836   0.043703  1.2547 0.2101125    
log(INTCOV)  0.041146   0.021585  1.9062 0.0571539 .  
log(PROF)    0.075118   0.031897  2.3550 0.0188781 *  
DR          -0.170333   0.085510 -1.9920 0.0468775 *  
log(GROWTH)  0.035249   0.013562  2.5990 0.0096042 ** 
FIRMAGE      0.144177   0.038241  3.7703 0.0001810 ***
y1           0.368098   0.129107  2.8511 0.0045231 ** 
y2           0.200513   0.093469  2.1452 0.0323779 *  
y3           0.160040   0.060514  2.6447 0.0084148 ** 
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Total Sum of Squares:    51.174
Residual Sum of Squares: 45.129
R-Squared      :  0.11813 
      Adj. R-Squared :  0.085101 
F-statistic: 6.03933 on 12 and 541 DF, p-value: 5.7676e-10

















In [33]:



    


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 [ ]:

Content source: AdityoSanjaya/Billy-the-Kid

Similar notebooks:

notebook.community | gallery | about