Skip to content

Instantly share code, notes, and snippets.

@johanvdw
Created November 6, 2016 20:29
Show Gist options
  • Save johanvdw/103ea74d3b35f5868f4b7255b2ad8f3f to your computer and use it in GitHub Desktop.
Save johanvdw/103ea74d3b35f5868f4b7255b2ad8f3f to your computer and use it in GitHub Desktop.
start <- as.Date("2014-01-01")
end <- as.Date("2017-01-01")
range <- as.numeric(end - start)
m <- matrix(,nrow=range, ncol = 11)
for (i in 1:11)
{
d<-runif(6)
m[,i]<-spline(1:length(d),d,n=range)$y
}
pairs(m)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment