# PROGRAM 1.b
#
# K. Ensor (ensor@rice.edu)
# Rice Univeristy
#

#DESCRIPTIVE PLOTS

kdescripb<-function(x,xtitle)
{
split.screen(c(2,1)) #split screen into two parts
split.screen(c(1,3),screen=2) #split the bottom graph into three parts

screen(1)
ts.plot(x)
title(main=xtitle)

screen(3)
plot(ksmooth(x,kernel="normal",bandwidth=.75),type="l",main="Nonparametric Density Estimate",xlab=xtitle)

screen(4)
xacf<-kacf(x)
#kacf(x)

screen(5)
kpacf(x)

close.screen(all=T)

#lag.plot(x,layout=c(2,5),lags=10)
}