R : Copyright 2005, The R Foundation for Statistical Computing Version 2.1.1 (2005-06-20), ISBN 3-900051-07-0 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for a HTML browser interface to help. Type 'q()' to quit R. > ### *
> ### > attach(NULL, name = "CheckExEnv") > assign(".CheckExEnv", as.environment(2), pos = length(search())) # base > ## add some hooks to label plot pages for base and grid graphics > setHook("plot.new", ".newplot.hook") > setHook("persp", ".newplot.hook") > setHook("grid.newpage", ".gridplot.hook") > > assign("cleanEx", + function(env = .GlobalEnv) { + rm(list = ls(envir = env, all.names = TRUE), envir = env) + RNGkind("default", "default") + set.seed(1) + options(warn = 1) + delayedAssign("T", stop("T used instead of TRUE"), + assign.env = .CheckExEnv) + delayedAssign("F", stop("F used instead of FALSE"), + assign.env = .CheckExEnv) + sch <- search() + newitems <- sch[! sch %in% .oldSearch] + for(item in rev(newitems)) + eval(substitute(detach(item), list(item=item))) + missitems <- .oldSearch[! .oldSearch %in% sch] + if(length(missitems)) + warning("items ", paste(missitems, collapse=", "), + " have been removed from the search path") + }, + env = .CheckExEnv) > assign("..nameEx", "__{must remake R-ex/*.R}__", env = .CheckExEnv) # for now > assign("ptime", proc.time(), env = .CheckExEnv) > grDevices::postscript("lgtdl-Examples.ps") > assign("par.postscript", graphics::par(no.readonly = TRUE), env = .CheckExEnv) > options(contrasts = c(unordered = "contr.treatment", ordered = "contr.poly")) > options(warn = 1) > library('lgtdl') > > assign(".oldSearch", search(), env = .CheckExEnv) > assign(".oldNS", loadedNamespaces(), env = .CheckExEnv) > cleanEx(); ..nameEx <- "as.lgtdl" > > ### * as.lgtdl > > flush(stderr()); flush(stdout()) > > ### Name: as.lgtdl > ### Title: Longitudinal Class > ### Aliases: as.lgtdl is.lgtdl is.lgtdl > ### Keywords: manip > > ### ** Examples > > x1<-data.frame(time=c(1,3,5), cov=c(4,6,8)) > x2<-data.frame(time=c(11,13,15), interest=c(66,45,88)) > > x1<-as.lgtdl(x1) > x2<-as.lgtdl(x2) > > is.lgtdl(TRUE) [1] FALSE > > > > cleanEx(); ..nameEx <- "getcov" > > ### * getcov > > flush(stderr()); flush(stdout()) > > ### Name: getcov > ### Title: A function to extract the covariate from an object of class > ### lgtdl. > ### Aliases: getcov getcov.lgtdl > ### Keywords: utilities > > ### ** Examples > > x1<-data.frame(time=c(1,3,5), cov=c(4,6,8)) > x2<-data.frame(time=c(11,13,15), interest=c(66,45,88)) > > x1<-as.lgtdl(x1) > x2<-as.lgtdl(x2) > getcov(x1) [1] 4 6 8 > getcov(x2) [1] 66 45 88 > > > > cleanEx(); ..nameEx <- "interplinear" > > ### * interplinear > > flush(stderr()); flush(stdout()) > > ### Name: interplinear > ### Title: A function to provide estimates of the response for a > ### longitudinal data object. The estimate is obtained by linear > ### interpolation from the preceding and following observations. > ### Aliases: interplinear interplinear.lgtdl interplinear.AsIs > ### Keywords: smooth > > ### ** Examples > > x1<-data.frame(time=c(1,3,5), cov=c(4,6,8)) > x2<-data.frame(time=c(11,13,15), interest=c(66,45,88)) > x1<-as.lgtdl(x1) > x2<-as.lgtdl(x2) > interpprev(x1, 4) [1] 6 > interpprev(x2, c(12, 14)) [1] 66 45 > > > > cleanEx(); ..nameEx <- "interpprev" > > ### * interpprev > > flush(stderr()); flush(stdout()) > > ### Name: interpprev > ### Title: Interpolation Using the Previous Value > ### Aliases: interpprev interpprev.lgtdl interpprev.AsIs > ### Keywords: smooth > > ### ** Examples > > x1<-data.frame(time=c(1,3,5), cov=c(4,6,8)) > x2<-data.frame(time=c(11,13,15), interest=c(66,45,88)) > x1<-as.lgtdl(x1) > x2<-as.lgtdl(x2) > interpprev(x1, c(2,4)) [1] 4 6 > interpprev(x2, c(12, 14)) [1] 66 45 > > > > cleanEx(); ..nameEx <- "plot.lgtdl" > > ### * plot.lgtdl > > flush(stderr()); flush(stdout()) > > ### Name: plot.lgtdl > ### Title: A function for plotting lgtdl objects. > ### Aliases: plot.lgtdl > ### Keywords: hplot > > ### ** Examples > > x1<-data.frame(time=c(1,3,5), cov=c(4,6,8)) > x2<-data.frame(time=c(11,13,15), interest=c(66,45,88)) > > x1<-as.lgtdl(x1) > x2<-as.lgtdl(x2) > plot(x1) > plot(x2) > > > > > ### *