# cs: Random Samples from Cauchy Distribution In ACSWR: A Companion Package for the Book "A Course in Statistics with R"

## Description

The data set is used to understand the sampling variation of the score function. The simulated data is available in Pawitan (2001).

## Usage

 `1` ```data(cs) ```

## Format

A data frame with 10 observations on the following 20 variables.

`Sample.1`

a numeric vector

`Sample.2`

a numeric vector

`Sample.3`

a numeric vector

`Sample.4`

a numeric vector

`Sample.5`

a numeric vector

`Sample.6`

a numeric vector

`Sample.7`

a numeric vector

`Sample.8`

a numeric vector

`Sample.9`

a numeric vector

`Sample.10`

a numeric vector

`Sample.11`

a numeric vector

`Sample.12`

a numeric vector

`Sample.13`

a numeric vector

`Sample.14`

a numeric vector

`Sample.15`

a numeric vector

`Sample.16`

a numeric vector

`Sample.17`

a numeric vector

`Sample.18`

a numeric vector

`Sample.19`

a numeric vector

`Sample.20`

a numeric vector

## References

Pawitan, Y. (2001). In All Likelihood. Oxford Science Publications.

## Examples

 ``` 1 2 3 4 5 6 7 8 9 10 11 12``` ```data(cs) n <- 10 cauchy_score_fn <- function(mu,x) sum(2*(x-mu)/(1+(x-mu)^{2})) mu <- seq(from=-15,to=20,by=0.5) plot(mu,sapply(mu,cauchy_score_fn,x=cs[,1]),"l",xlab=expression(mu), ylab=expression(S(mu)),ylim=c(-10,10)) title(main="D: Score Function Plot of Cauchy Model") for(i in 2:20) lines(mu,sapply(mu, cauchy_score_fn,x=cs[,i]),"l") abline(v=4) abline(h=0) ```

### Example output

```
```

ACSWR documentation built on May 2, 2019, 6:53 a.m.