[R] SPlus to R

[Kevin E. Thorpe]

On 10/05/2011 07:44 AM, Scott Raynaud wrote:
> 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?

As another poster suggested, use list(ne = ne, Ep = Ep1) instead of the 
the present return().

> 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 at lancaster.ac.uk>
>
> Cc: "r-help at r-project.org"<r-help at 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


-- 
Kevin E. Thorpe
Biostatistician/Trialist,  Applied Health Research Centre (AHRC)
Li Ka Shing Knowledge Institute of St. Michael's
Assistant Professor, Dalla Lana School of Public Health
University of Toronto
email: kevin.thorpe at utoronto.ca  Tel: 416.864.5776  Fax: 416.864.3016