# sincos: Sine Cosine Model In kloke/npsm: Package for Nonparametric Statistical Methods using R

## Description

Simulated dataset

## Usage

 `1` ```data("sincos") ```

## Format

A data frame with 197 observations on the following 2 variables.

`x`

independent variable

`y`

dependent variable

## Details

The data were generated using ```x <- seq(1,50,by=.25) ; y <- 5*sin(3*x) + 6*cos(x/4)+rnorm(length(x),0,10) ```

## References

Kloke, J. and McKean, J.W. (2014), Nonparametric statistical methods using R, Boca Raton, FL: Chapman-Hall.

## Examples

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16``` ```data(sincos) plot(y~x,sincos) ### code to create Figure 4.9 of Kloke & McKean 2014 ### my.sincos<-sincos my.sincos\$y3<-my.sincos\$y my.sincos\$y3[137] <- 800 plot(y3~x,ylim=c(-50,50),data=my.sincos) fit4 <- loess(y3 ~ x,data=my.sincos) # lines(fit4\$x,fit4\$fitted,lty=2) with(fit4,lines(x,fitted,lty=2)) fit5 <- loess(y3 ~ x,family="symmetric",data=my.sincos) with(fit5,lines(x,fitted,lty=1)) legend('bottomleft',legend=c('Local Robust Fit','Local LS Fit'),lty=1:2) title("loess Fits of Sine-Cosine Data") ```

kloke/npsm documentation built on May 18, 2017, 9:42 p.m.