```{r}
track <- setClass("track",
slots = c(x="numeric", y="numeric"))
t1 <- track(x = 1:10, y = 1:10 + rnorm(10))
t1@x
```