# NOT RUN {
# 1d
cset <- create_curve_set(list(r=1:10, obs=matrix(runif(10*5), ncol=5)))
plot(cset)
# 2d
cset <- create_curve_set(list(r=data.frame(x=c(rep(1:3, 3), 4), y=c(rep(1:3, each=3), 1),
width=1, height=1),
obs=matrix(runif(10*5), ncol=5)))
plot(cset)
# }
Run the code above in your browser using DataLab