[Stpp-commits] r58 - in pkg: R man

[noreply at r-forge.r-project.org]

Author: gabriele
Date: 2012-08-17 13:17:30 +0200 (Fri, 17 Aug 2012)
New Revision: 58

Modified:
   pkg/R/stan.R
   pkg/man/PCFhat.Rd
Log:


Modified: pkg/R/stan.R
===================================================================
--- pkg/R/stan.R	2012-08-15 18:58:20 UTC (rev 57)
+++ pkg/R/stan.R	2012-08-17 11:17:30 UTC (rev 58)
@@ -59,11 +59,12 @@
 .rp.stan3d <- function(xyt,tlim,twid,states) {
   t=tlim[1];width=twid
   e=new.env()
-  stan.panel  <- rp.control(title="space-time animation",
+  stan.panel  <- rp.control(title="space-time animation",  
                             xyt=xyt, t=tlim[1], width=twid,
                             states=states,
                             e=e
                             )
+  Sys.sleep(0.5)
   rp.slider(stan.panel, t, title = "time", from=tlim[1], to=tlim[2], action = .stan3d.redraw,showvalue=TRUE)
   rp.slider(stan.panel, width, title = "window", from=0, to=diff(tlim), action = .stan3d.redraw,showvalue=TRUE)
   rp.button(stan.panel,action=function(p){par3d(FOV=0,userMatrix = rotationMatrix(0, 1,0,0));return(p)},title="reset axes")
@@ -97,8 +98,8 @@
   if(missing(states)){
     ## default colouring scheme:
     states=list(
-      past=list(col="blue",radius=1/80,alpha=0.5,lit=FALSE),
-      present=list(col="red",radius=1/30,alpha=0.5,lit=FALSE),
+      past=list(col="blue",radius=1/100,alpha=0.5,lit=FALSE),
+      present=list(col="red",radius=1/60,alpha=0.5,lit=FALSE),
       ## still-to-come points are invisible (alpha=0)
       future=list(col="yellow",alpha=0.0,radius=1/80,lit=FALSE)
       )

Modified: pkg/man/PCFhat.Rd
===================================================================
--- pkg/man/PCFhat.Rd	2012-08-15 18:58:20 UTC (rev 57)
+++ pkg/man/PCFhat.Rd	2012-08-17 11:17:30 UTC (rev 58)
@@ -66,11 +66,11 @@
 Experience with pair correlation function estimation recommends
 box kernels (the default), see Illian et al. (2008).
 Epanechnikov, Gaussian and biweight kernels are also
-implemented. Note that the bandwidths play an important role
-and their choice is crucial in the quality of the estimators as
-they heavily influence their variance. Whatever the kernel
-function, is the bandwidth is missing, a value is obtain from
-the function \code{dpik} of the package KernSmooth.}
+implemented. Whatever the kernel function, if the bandwidth is
+missing, a value is obtain from the function \code{dpik} of the
+package KernSmooth. Note that the bandwidths play an important
+role and their choice is crucial in the quality of the
+estimators as they heavily influence their variance. }
 
  \value{A list containing:
 
@@ -113,7 +113,5 @@
 # estimation of the pair correlation function
 g <- PCFhat(xyt=FMD, dist=1:20, times=1:20, lambda=lambda=mhat*mut/dim(FMD)[1], s.region=northcumbria/1000,t.region=c(1,200))
 
-# plotting the estimation
-plotPCF(g)
-plotPCF(g,persp=T,theta=-65,phi=35)
-}}
+# plotting the estimation plotPCF(g)
+plotPCF(g,persp=TRUE,theta=-65,phi=35) }}