R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
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 an HTML browser interface to help.
Type 'q()' to quit R.
> library(Rearrangement)
Loading required package: quantreg
Loading required package: SparseM
Attaching package: 'SparseM'
The following object is masked from 'package:base':
backsolve
Loading required package: splines
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/Rearrangement/lines.conint.Rd_%03d_medium.png", width=480, height=480)
> ### Name: lines.conint
> ### Title: Lines Method for Simultaneous Confidence Intervals
> ### Aliases: lines.conint
> ### Keywords: aplot
>
> ### ** Examples
>
> data(GrowthChart)
> attach(GrowthChart)
>
> nage <- 2*pi*(age-min(age))/(max(age)-min(age))
> formula<-height~I(sin(nage))+I(cos(nage))+I(sin(2*nage))+
+ I(cos(2*nage))+I(sin(3*nage))+ I(cos(3*nage))+I(sin(4*nage))+I(cos(4*nage))
>
> j<-simconboot(nage,height,lm,formula)
> plot(nage,height,pch=21,bg='gray',cex=.5,xlab="Age (years)",ylab="Height (cms)",col='gray',xaxt='n')
> axis(1, at = seq(-2*pi*min(age)/(max(age)-min(age)),
+ 2*pi+1, by=5*2*pi/(max(age)-min(age))), label = seq(0, max(age)+1, by=5))
> lines(j)
>
> detach(GrowthChart)
>
>
>
>
>
> dev.off()
null device
1
>