From ripley at stats.ox.ac.uk  Fri Nov  4 06:52:12 2005
From: ripley at stats.ox.ac.uk (ripley@stats.ox.ac.uk)
Date: Fri,  4 Nov 2005 06:52:12 +0100 (CET)
Subject: [Rd] small bug in gl1ce, package lasso2 (PR#8280)
Message-ID: <20051104055212.50C0922141@slim.kubism.ku.dk>

Please do read the FAQ:

   Finally, check carefully whether the bug is with R, or a contributed
   package.  Bug reports on contributed packages should be sent first to
   the package maintainer, and only submitted to the R-bugs repository
   by package maintainers, mentioning the package in the subject line.

You are not the maintainer, so this is the wrong place.


On Fri, 4 Nov 2005 izmirlig at mail.nih.gov wrote:

> Full_Name: Grant Izmirlian
> Version: 2.2.0
> OS: SuSe Linux version 9.2
> Submission from: (NULL) (156.40.34.177)
>
>
> Sorry about the last submission, my bug-fix had an error in it because ifelse
> doesn't vectorize.  I'll repost with the correct bug-fix.
> -------------------------------------------------------------------------------
> The option exists to include all parameters, including the intercept, in the L-1
> constraint, by specifying the argument, sweep.out=NULL, explicitly in the
> call. However, upon doing this, the function stops with an error report
> "Matrix build from transformed variables has a constant column"
>
> I was able to fix it as follows. In the following line, taken from the same
> block of code producing the stop error, modify the existing line from
>
>      X.to.C.stds <- sqrt(apply(X.to.C.w, 2, var))
>
> to
>
>
>      X.to.C.stds <- (!is.null(sweep.out)) *
>                     c(1,sqrt(apply(X.to.C.w[,-is.null(sweep.out)], 2, var))) +
>
>                     (is.null(sweep.out)) * sqrt(apply(X.to.C.w,2,var)))
>
> That should work.
>
> ______________________________________________
> R-devel at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-devel
>
>

-- 
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 272866 (PA)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595



[Rd] small bug in gl1ce, package lasso2 (PR#8280)
ripley@stats.ox.ac.uk