ddalpha/R/dataf.sim.r

13       cov[i,j] <- 0.2*exp(-abs(t[i] - t[j])/0.3)
29   learn <- list(dataf = c(head(datafX, numTrain), head(datafY, numTrain)),   list
31   class(learn) = "functional"
38                     "0 red (", sum(unlist(learn$labels) == 0), "), ",
39                     "1 blue (", sum(unlist(learn$labels) == 1), "), ", sep=""))
41     for (i in 1:length(learn$dataf)){
42       if (learn$labels[[i]] == 0){
46       if (learn$labels[[i]] == 1){
50       lines(learn$dataf[[i]]$args, learn$dataf[[i]]$vals, col=lineColor, lty=lineType)
54   return (list(learn = learn, test = test))  nameattr
64   mean0 <- 30*(1 - t)*t^2 + 0.5*abs(sin(20*pi*t))
68       cov[i,j] <- 0.2*exp(-abs(t[i] - t[j])/0.3)
87   learn <- list(dataf = c(head(datafX, numTrain), head(datafY, numTrain)),   list
89   class(learn) = "functional"
97                     "0 red (", sum(unlist(learn$labels) == 0), "), ",
98                     "1 blue (", sum(unlist(learn$labels) == 1), "), ", sep=""))
100     for (i in 1:length(learn$dataf)){
101       if (learn$labels[[i]] == 0){
105       if (learn$labels[[i]] == 1){
109       lines(learn$dataf[[i]]$args, learn$dataf[[i]]$vals, col=lineColor, lty=lineType)
113   return (list(learn = learn, test = test))  nameattr