Nothing
#' strikes
#'
#' @description French Coal Strikes, see page 212 and 213
#'
#' The variables included in the dataset are:
#' \itemize{
#' \item\code{Year} The year the labor strikes in France occurred
#' \item\code{Counts} The number of labor strikes that occurred in France per year
#'}
#' @usage data(strikes)
#' @name strikes
#' @format data frame with 11 observations of strikes that occurred in different years with 1 explanatory variable
#' @source Conell, C. and Cohn, S. (1995). Learning from Other People's Actions: Environmental Variation and Diffusion in French Coal Mining Strikes, 1890-1935. American Journal of Sociology 101, 366-403.
#' @docType data
#' @examples
#' n <- length(strikes)
#' r <- 1
#' s.y <- sum(strikes)
#'
#' p.posterior.1000000 <- rbeta(1000000,n*r,s.y+0.5)
#' length(p.posterior.1000000[p.posterior.1000000<0.05])/1000000
#'
#' par(mar=c(3,3,3,3))
#' ruler <- seq(0,1,length=1000)
#' beta.vals <- dbeta(ruler,n*r,s.y+0.5)
#' plot(ruler[1:200],beta.vals[1:200],yaxt="n",main="",ylab="",type="l")
#' mtext(side=2,line=1,"Density")
#' for (i in 1:length(ruler))
#' if (ruler[i] < 0.05)
#' segments(ruler[i],0,ruler[i],beta.vals[i])
#' segments(0.04,3,0.02,12.2)
#' text(0.02,12.8,"0.171")
NULL
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.