R help - Jul 2002 - subscript out of bounds

Hello

As I'm beginning to write functions, I decided to have my personnal R
library
named MyStuff located in /home/fred/R.Lib/MyStuff/

The library file itself is at /home/fred/R.Lib/MyStuff/R/MyStuff

evrything seems ok since 
> library()
            gives : 

Packages in library `/usr/lib/R/library':

KernSmooth              Functions for kernel smoothing for Wand &
                        Jones (1995)
MASS                    Main Library of Venables and Ripley's MASS
Simple
base                    The R base package
...

Packages in library `~/R.Lib/':

MyStuff                 Mes fonctions 'made in maison'
  but :
>library(MyStuff)
Error: subscript out of bounds

I don't understand where I'm wrong because the functions in MyStuff
individually work well when I just paste them from my editor.

Thanks for any help
Fred

Linux debian potato
R     1.5.0

here below, the file MyStuff
-----------------------------
"adjresid" <- function(tab) {
   # calcul des residus normes sur un tableau de contingence
   # adjusted Pearson residuals
   # Brett Presnell <presnell at stat.ufl.edu>
   #
   tot <- sum(tab)
   rp <- apply(tab, 1, sum) / tot
   cp <- apply(tab, 2, sum) / tot
   mu <- tot * ( rp %o% cp )
   norm(tab - mu) / sqrt( mu * ( (1 - rp) %o% (1 - cp) ) )
}
"twoWay" <- function(x=NA, y=NA, userDefined=NA ) {
  # adapted from Mark Myatt <mark at myatt.demon.co.uk>
  if (is.na(userDefined)){
  result <- chisq.test(table(x,y))
  }
  else{
  result <- chisq.test(userDefined)
  }
  #
  print(result)
  obs <- result$observed
  exp <- result$expected
  chi.table <- ((obs - exp)^2)/exp
  row.sum <- apply(obs,1,sum)
  col.sum <- apply(obs,2,sum)
  N <- sum(obs)
  #     
  fullArray <- cbind(obs,row.sum) 
  fullArray <- rbind(fullArray,c(col.sum,N))
  rownames(fullArray) <- c(rownames(obs), "Total") 
  colnames(fullArray) <- c(colnames(obs), "Total")
  #
  return(list(Complet=fullArray,Expected=exp,Chi=chi.table))
}

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

R has debugging tools, which you can use to debug this.  My guess is a
problem with your DESCRIPTION file.

On Tue, 2 Jul 2002, Fred Jean wrote:
> Hello
>
> As I'm beginning to write functions, I decided to have my personnal R
library
> named MyStuff located in /home/fred/R.Lib/MyStuff/
>
> The library file itself is at /home/fred/R.Lib/MyStuff/R/MyStuff
>
> evrything seems ok since
> > library()
>             gives :
>
> Packages in library `/usr/lib/R/library':
>
> KernSmooth              Functions for kernel smoothing for Wand &
>                         Jones (1995)
> MASS                    Main Library of Venables and Ripley's MASS
> Simple
> base                    The R base package
> ...
>
> Packages in library `~/R.Lib/':
>
> MyStuff                 Mes fonctions 'made in maison'
>   but :
> >library(MyStuff)
> Error: subscript out of bounds
>
> I don't understand where I'm wrong because the functions in MyStuff
> individually work well when I just paste them from my editor.
There's a lot more to installing a package than that.

-- 
Brian D. Ripley,                  ripley at stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272860 (secr)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._