Patentes

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:plm':
## 
##     between, lag, lead

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

## Loading required package: zoo

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

##  [1] "cusip"    "merger"   "employ"   "return"   "patents"  "patentsg"
##  [7] "stckpr"   "rnd"      "rndeflt"  "rndstck"  "sales"    "sic"     
## [13] "year"

## tibble [2,260 × 13] (S3: tbl_df/tbl/data.frame)
##  $ cusip   : num [1:2260] 800 800 800 800 800 800 800 800 800 800 ...
##  $ merger  : num [1:2260] 0 0 0 0 0 0 0 0 0 0 ...
##  $ employ  : num [1:2260] 9.85 12.32 12.2 11.84 12.99 ...
##  $ return  : num [1:2260] 5.82 5.69 4.42 5.28 4.91 ...
##  $ patents : num [1:2260] 22 34 31 32 40 60 57 77 38 5 ...
##  $ patentsg: num [1:2260] 24 32 30 34 28 33 53 47 64 70 ...
##  $ stckpr  : num [1:2260] 47.6 57.9 33 38.5 35.1 ...
##  $ rnd     : num [1:2260] 2.56 3.1 3.27 3.24 3.78 ...
##  $ rndeflt : num [1:2260] 2.56 2.91 2.8 2.52 2.78 ...
##  $ rndstck : num [1:2260] 16.2 17.4 19.6 21.9 23.1 ...
##  $ sales   : num [1:2260] 344 436 535 567 631 ...
##  $ sic     : num [1:2260] 3740 3740 3740 3740 3740 3740 3740 3740 3740 3740 ...
##  $ year    : num [1:2260] 2012 2013 2014 2015 2016 ...

## 
## Call:
## glm(formula = patentsg ~ rndeflt + return + employ + sales, family = poisson(link = "log"), 
##     data = panel_data)
## 
## Coefficients:
##               Estimate Std. Error z value Pr(>|z|)    
## (Intercept)  2.487e+00  9.031e-03  275.42   <2e-16 ***
## rndeflt     -8.019e-04  4.412e-05  -18.17   <2e-16 ***
## return       4.331e-02  7.999e-04   54.15   <2e-16 ***
## employ       1.136e-02  6.296e-05  180.39   <2e-16 ***
## sales       -2.956e-05  1.191e-06  -24.83   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for poisson family taken to be 1)
## 
##     Null deviance: 180561  on 2230  degrees of freedom
## Residual deviance:  98378  on 2226  degrees of freedom
## AIC: 105646
## 
## Number of Fisher Scoring iterations: 6

## 
## z test of coefficients:
## 
##                Estimate  Std. Error z value  Pr(>|z|)    
## (Intercept)  2.4872e+00  1.3693e-01 18.1642 < 2.2e-16 ***
## rndeflt     -8.0191e-04  2.0270e-03 -0.3956 0.6923838    
## return       4.3310e-02  1.2160e-02  3.5616 0.0003686 ***
## employ       1.1356e-02  1.5753e-03  7.2092 5.628e-13 ***
## sales       -2.9563e-05  5.1462e-05 -0.5745 0.5656568    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1