Hope I did this right.  I repeated what I'd done before:
 
1) Opened script
2) Selected run all (this produced my inital post
 
Then as suggested I:
 
3) Typed ls()
4) Saw that the function was present and issued sshc(100,10)
 
Here's what I got:
 
> ls()
[1] "c.searchd" "convex"    "Epower"    "nef"       "nef2"      "power1.f" 
[7] "ss.rand"   "sshc"      "vertex"   
> sshc(100,10)
Error in return(ne = ne, Ep = Ep1) : 
  multi-argument returns are not permitted

So it looks like I need to change the return(ne = ne, Ep = Ep1) to two separate lines, correct?
 
On a brighter note, I did get a power curve as expected.  One thing I don't understand is the meaning of the arguments in sshc(100,10).
 
Thanks agian for your help.


________________________________
From: Barry Rowlingson <b.rowlingson@lancaster.ac.uk>

Cc: "r-help@r-project.org" <r-help@r-project.org>
Sent: Wednesday, October 5, 2011 4:02 AM
Subject: Re: [R] SPlus to R


te:
> I'm trying to convert an S-Plus program to R.  Since I'm a SAS programmer I'm not facile is either S-Plus or R, so I need some help.  All I did was convert the underscores in S-Plus to the assignment operator <-.  Here are the first few lines of the S-Plus file:
>
> sshc _ function(rc, nc, d, method, alpha=0.05, power=0.8,
>              tol=0.01, tol1=.0001, tol2=.005, cc=c(.1,2), l.span=.5)
> {
> ### for method 1
> if (method==1) {
> ne1 _ ss.rand(rc,nc,d,alpha=.05,power=.8,tol=.01)
> return(ne=ne1)
>                }
>
>
> My translation looks like this:
>
> sshc<-function(rc, nc=500, d=.5, method=3, alpha=0.05, power=0.8,
>               tol=0.01, tol1=.0001, tol2=.005, cc=c(.1,2), l.span=.5)
> {
> ### for method 1
> if (method==1) {
>  ne1<-ss.rand(rc,nc,d,alpha=.05,power=.8,tol=.01)
>  return(ne=ne1)
>                }
>
> The program runs without throwing errors, but I'm not getting any ourput in the console.  This is where it should be, right?  I think I have this set up correctly.  I'm using method=3 which only requires nc and d to be specified.  Any ideas why I'm not seeing output?

Long shot: the code you posted looked like (and hard to tell without
indentation) just a bunch of function definitions. R won't actually do
anything unless you call those functions with some parameters.

So, when you say you get no output when you 'run' the code, what
exactly do you mean by 'run' the code? What I would do is:

1. Put the code in a file called 'whatever.R'.
2. Start R, and do source("whatever.R"). That defines the functions.
do "ls()" and you should see them.
3. Call one of the functions: sshc(100,10)

I'd call that, in R terms, "calling the sshc function" rather than
running anything.

Barry
	[[alternative HTML version deleted]]

