## Warning: package 'dplyr' was built under R version 3.5.1
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
## Warning: package 'dslabs' was built under R version 3.5.1
## Warning: package 'ggplot2' was built under R version 3.5.1
## Warning: package 'readxl' was built under R version 3.5.1
## Warning: package 'ggthemes' was built under R version 3.5.1
## Warning: package 'scales' was built under R version 3.5.1
## [1] "SEMANA" "INGRESOS" "VISUALIZACION" "VIDEOSPUB"
## [5] "LIKE"
## SEMANA INGRESOS VISUALIZACION VIDEOSPUB
## Length:20 Min. :2.160 Min. : 8830 Min. :0.00
## Class :character 1st Qu.:2.740 1st Qu.: 9342 1st Qu.:0.75
## Mode :character Median :3.595 Median :11024 Median :2.00
## Mean :3.660 Mean :11017 Mean :2.40
## 3rd Qu.:4.668 3rd Qu.:12252 3rd Qu.:3.25
## Max. :5.630 Max. :16016 Max. :8.00
## LIKE
## Min. :28.00
## 1st Qu.:41.00
## Median :48.00
## Mean :48.95
## 3rd Qu.:56.25
## Max. :69.00
##
## Call:
## lm(formula = INGRESOS ~ VISUALIZACION + VIDEOSPUB + LIKE, data = youtube)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.59913 -0.32462 -0.01491 0.28137 0.85321
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.704e+00 5.960e-01 -2.859 0.0114 *
## VISUALIZACION 5.377e-04 7.549e-05 7.123 2.42e-06 ***
## VIDEOSPUB -2.049e-03 4.770e-02 -0.043 0.9663
## LIKE -1.133e-02 1.279e-02 -0.886 0.3888
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.4426 on 16 degrees of freedom
## Multiple R-squared: 0.8524, Adjusted R-squared: 0.8247
## F-statistic: 30.79 on 3 and 16 DF, p-value: 7.02e-07
## Warning: package 'bindrcpp' was built under R version 3.5.1
## # A tibble: 1 x 3
## r R Rlike
## <dbl> <dbl> <dbl>
## 1 0.918 -0.125 0.564
