R Notebook for Module 4

Load all base/use every analysis Packages

library("easypackages")
My_Packages <- c("datasets", "data.table", "dtplyr", "tidyverse", 
                 "stringr", "lubridate", "forcats", "magrittr", "lazyeval", 
                 "readxl", "haven", "plotly", "plotrr", "lattice", "latticeExtra",
                 "testthat", "knitr", "markdown", "rmarkdown", "Rcmdr")
libraries(My_Packages)

Loading required package: data.table
data.table 1.10.4
  The fastest way to learn (by data.table authors): https://www.datacamp.com/courses/data-analysis-the-data-table-way
  Documentation: ?data.table, example(data.table) and browseVignettes("data.table")
  Release notes, videos and slides: http://r-datatable.com
Loading required package: dtplyr
Loading required package: tidyverse
Loading tidyverse: ggplot2
Loading tidyverse: tibble
Loading tidyverse: tidyr
Loading tidyverse: readr
Loading tidyverse: purrr
Loading tidyverse: dplyr
Conflicts with tidy packages ---------------------------------------------------------------------------------------------------------------------------------------------------
between():   dplyr, data.table
filter():    dplyr, stats
first():     dplyr, data.table
lag():       dplyr, stats
last():      dplyr, data.table
transpose(): purrr, data.table
Loading required package: stringr
Loading required package: lubridate

Attaching package: 㤼㸱lubridate㤼㸲

The following objects are masked from 㤼㸱package:data.table㤼㸲:

    hour, isoweek, mday, minute, month, quarter, second, wday, week, yday, year

The following object is masked from 㤼㸱package:base㤼㸲:

    date

Loading required package: forcats
Loading required package: magrittr

Attaching package: 㤼㸱magrittr㤼㸲

The following object is masked from 㤼㸱package:purrr㤼㸲:

    set_names

The following object is masked from 㤼㸱package:tidyr㤼㸲:

    extract

Loading required package: lazyeval

Attaching package: 㤼㸱lazyeval㤼㸲

The following objects are masked from 㤼㸱package:purrr㤼㸲:

    is_atomic, is_formula

Loading required package: readxl
Loading required package: haven

Attaching package: 㤼㸱haven㤼㸲

The following object is masked from 㤼㸱package:forcats㤼㸲:

    as_factor

Loading required package: plotly

Attaching package: 㤼㸱plotly㤼㸲

The following object is masked from 㤼㸱package:ggplot2㤼㸲:

    last_plot

The following object is masked from 㤼㸱package:stats㤼㸲:

    filter

The following object is masked from 㤼㸱package:graphics㤼㸲:

    layout

Loading required package: plotrr
Loading required package: lattice
Loading required package: latticeExtra
Loading required package: RColorBrewer

Attaching package: 㤼㸱latticeExtra㤼㸲

The following object is masked from 㤼㸱package:ggplot2㤼㸲:

    layer

Loading required package: testthat

Attaching package: 㤼㸱testthat㤼㸲

The following objects are masked from 㤼㸱package:magrittr㤼㸲:

    equals, is_less_than, not

The following object is masked from 㤼㸱package:dplyr㤼㸲:

    matches

The following object is masked from 㤼㸱package:purrr㤼㸲:

    is_null

Loading required package: knitr
Loading required package: markdown
Loading required package: rmarkdown
Loading required package: Rcmdr
Loading required package: splines
Loading required package: RcmdrMisc
Loading required package: car

Attaching package: 㤼㸱car㤼㸲

The following object is masked from 㤼㸱package:dplyr㤼㸲:

    recode

The following object is masked from 㤼㸱package:purrr㤼㸲:

    some

Loading required package: sandwich

RcmdrMsg: [1] NOTE: R Commander Version 2.3-2: Wed Apr 19 13:10:23 2017

Rcmdr Version 2.3-2

All packages loaded successfully

dbinom(x = 10, size= 12, prob = 0.85)

[1] 0.2923585

# Set binomial parameters.
n <- 12
p = .85
# Define PMF to highlight - Pr(X < x), Pr(X > x), or Pr(a < x < b)
# Leave blank "" for no highlights
x <- 10
a <- ""
b <- ""
  
# Set sequence of x values to plot
Successes<- seq(0,n)
# Calculate PMF
PMF <- dbinom(x = Successes, size = n, prob = p)
# Define points to highlight in plot
highlight<- ifelse(Successes <= b &
                     Successes >= a |
                     Successes == x, "red", "blue")
# Plot PMF
plot(Successes, PMF, type = "p",
        main = paste("Binomial Distribution, n = ",n,", p = ",p), col= highlight)
        lines(Successes,PMF, type= "h", col= highlight)

grid()

install.packages("shinydashboard")

Installing package into 'C:/Users/Michael/Documents/R/win-library/3.3'
(as 'lib' is unspecified)
trying URL 'https://cran.rstudio.com/bin/windows/contrib/3.3/shinydashboard_0.5.3.zip'
Content type 'application/zip' length 273908 bytes (267 KB)
downloaded 267 KB

package 'shinydashboard' successfully unpacked and MD5 sums checked

The downloaded binary packages are in
    C:\Users\Michael\AppData\Local\Temp\Rtmp6vWGYr\downloaded_packages