[Rd] Assertion failure in -[RDeviceView lockFocus] (PR#9867)

[towil]

Full_Name: tom willems
Version: Version: R 2.5.1 (42083) R.app R 2.5.1 GUI 1.20 (4535)/i386
OS: os x
Submission from: (NULL) (193.190.114.253)


bug report

I am not very familiar with system bug's, so forgive me if i write a wrong
report.
what happend was that R stopped working while ploting a logistic regression
model.
i noticed that it does not know the comand win.graph(), perhapes it has
something to do with that?

here is sthe system message

>plot(c(0,3), c(0,1),type="n", main= titel3,xlab = "Log x", ylab =
"Probability")
2007-08-14 23:14:12.621 R[144] *** Assertion failure in -[RDeviceView
lockFocus], AppKit.subproj/NSView.m:3248
2007-08-14 23:14:12.621 R[144] *** REngine.runREPL: caught ObjC exception in the
main loop!
*** Please report the following error on [EMAIL PROTECTED] along with the
full description of how to reproduce it:
*** reason: lockFocus sent to a view whose window is deferred and does not yet
have a corresponding platform window
*** name: NSInternalInconsistencyException, info: (null)
*** Version: R 2.5.1 (42083) R.app R 2.5.1 GUI 1.20 (4535)/i386
Consider saving your work soon in case this problem leads to a full crash.

__
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel

[Rd] system() fails with fc.exe (PR#9868)

[joehl]

Full_Name: Jens Oehlschlägel
Version:  2.5.1
OS: Windows
Submission from: (NULL) (62.159.183.42)


Even when specifying the full path, the output of fc is not sent to R (neither
shown nor returned). For example

> system('c:\\WINDOWS\\system32\\fc.exe /?',intern=TRUE)
character(0)

When I do the same from python 2.3, I get

>>> import os
>>> os.system("c:\\WINDOWS\\system32\\fc /?")
Compares two files or sets of files and displays the differences between
them

FC [/A] [/C] [/L] [/LBn] [/N] [/OFF[LINE]] [/T] [/U] [/W] [/]
   [drive1:][path1]filename1 [drive2:][path2]filename2
FC /B [drive1:][path1]filename1 [drive2:][path2]filename2

  /A Displays only first and last lines for each set of differences.
  /B Performs a binary comparison.
  /C Disregards the case of letters.
  /L Compares files as ASCII text.
  /LBn   Sets the maximum consecutive mismatches to the specified
 number of lines.
  /N Displays the line numbers on an ASCII comparison.
  /OFF[LINE] Do not skip files with offline attribute set.
  /T Does not expand tabs to spaces.
  /U Compare files as UNICODE text files.
  /W Compresses white space (tabs and spaces) for comparison.
  /  Specifies the number of consecutive lines that must match
 after a mismatch.
  [drive1:][path1]filename1
 Specifies the first file or set of files to compare.
  [drive2:][path2]filename2
 Specifies the second file or set of files to compare.

-1


> version
   _   
platform   i386-pc-mingw32 
arch   i386
os mingw32 
system i386, mingw32   
status 
major  2   
minor  5.1 
year   2007
month  06  
day27  
svn rev42083   
language   R   
version.string R version 2.5.1 (2007-06-27)

__
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel

Re: [Rd] system() fails with fc.exe (PR#9868)

[ripley]

  This message is in MIME format.  The first part should be readable text,
  while the remaining parts are likely unreadable without MIME-aware tools.

--27464147-1509585398-1187640973=:22199
Content-Type: TEXT/PLAIN; charset=iso-8859-1; format=flowed
Content-Transfer-Encoding: 8BIT

Try rterm, where this works (and presumably python is also a command-line 
application).


On Mon, 20 Aug 2007, [EMAIL PROTECTED] wrote:

> Full_Name: Jens Oehlschlägel
> Version:  2.5.1
> OS: Windows
> Submission from: (NULL) (62.159.183.42)
>
>
> Even when specifying the full path, the output of fc is not sent to R (neither
> shown nor returned). For example
>
>> system('c:\\WINDOWS\\system32\\fc.exe /?',intern=TRUE)
> character(0)
>
> When I do the same from python 2.3, I get
>
 import os
 os.system("c:\\WINDOWS\\system32\\fc /?")
> Compares two files or sets of files and displays the differences between
> them
>
> FC [/A] [/C] [/L] [/LBn] [/N] [/OFF[LINE]] [/T] [/U] [/W] [/]
>   [drive1:][path1]filename1 [drive2:][path2]filename2
> FC /B [drive1:][path1]filename1 [drive2:][path2]filename2
>
>  /A Displays only first and last lines for each set of differences.
>  /B Performs a binary comparison.
>  /C Disregards the case of letters.
>  /L Compares files as ASCII text.
>  /LBn   Sets the maximum consecutive mismatches to the specified
> number of lines.
>  /N Displays the line numbers on an ASCII comparison.
>  /OFF[LINE] Do not skip files with offline attribute set.
>  /T Does not expand tabs to spaces.
>  /U Compare files as UNICODE text files.
>  /W Compresses white space (tabs and spaces) for comparison.
>  /  Specifies the number of consecutive lines that must match
> after a mismatch.
>  [drive1:][path1]filename1
> Specifies the first file or set of files to compare.
>  [drive2:][path2]filename2
> Specifies the second file or set of files to compare.
>
> -1
>
>
>> version
>   _
> platform   i386-pc-mingw32
> arch   i386
> os mingw32
> system i386, mingw32
> status
> major  2
> minor  5.1
> year   2007
> month  06
> day27
> svn rev42083
> language   R
> version.string R version 2.5.1 (2007-06-27)
>
> __
> R-devel@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-devel
>

-- 
Brian D. Ripley,  [EMAIL PROTECTED]
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, UKFax:  +44 1865 272595
--27464147-1509585398-1187640973=:22199--

__
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel

[Rd] aesthetics of do.call

[Vincent Carey 525-2265]

library(MASS)
G1 = glm(sp~CW, data=crabs, fam=binomial)
G2 = do.call("glm", list(sp~CW, family=binomial, data=crabs))

G1$call is very nice to look at
G2$call is very voluminous

if we revise do.call to

function (what, args, quote = FALSE, envir = parent.frame())
{
if (!is.list(args))
stop("second argument must be a list")
if (quote) {
enquote <- function(x) as.call(list(as.name("quote"),
x))
args <- lapply(args, enquote)
}
ans = .Internal(do.call(what, args, envir))
ans$call = match.call()
ans
}

G1 and G2 look a lot more alike

> version
   _
platform   powerpc-apple-darwin8.9.0
arch   powerpc
os darwin8.9.0
system powerpc, darwin8.9.0
status Under development (unstable)
major  2
minor  6.0
year   2007
month  06
day05
svn rev41826
language   R
version.string R version 2.6.0 Under development (unstable) (2007-06-05 r41826)


---
Vince Carey, PhD
Assoc. Prof Med (Biostatistics)
Harvard Medical School
Channing Laboratory - ph 6175252265 fa 6177311541
181 Longwood Ave Boston MA 02115 USA
[EMAIL PROTECTED]

__
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel

[Rd] compiling R under cygwin

[Denham Robert]

For various reasons, it suits our workplace to have a cygwin version of
R.  I am pretty sure that cygwin is still not a supported environment
for R, but we have managed to compile R-2.5.1 under cygwin without too
many dramas.  Our procedure is described below.  We still have a few
problems compiling libraries without manually changing files from .so to
.dll, but it seems ok.
 
I was wondering whether this information is likely to be useful to
others, and if we should spend any time looking in to ways in which the
configure/build/install code could be modified to allow a standard
install.
 
Notes on building R under cygwin:
 
export FFLAGS=-O3
export CFLAGS=-O3
export CXXFLAGS=-O3
export OBJCFLAGS=-O3
export FCFLAGS=-O3
export LDFLAGS='-lblas -lg2c -lintl'
 
export R_OSTYPE=unix
 
./configure --prefix=/opt/freeware/R/R-2.5.1 \
--with-tcl-config=/usr/lib/tclConfig.sh \
--with-tk-config=/usr/lib/tkConfig.sh \
--with-blas=-lblas \
--with-lapack=-llapack \
--enable-R-shlib
 
comment out Win32 in src/include/config.h and set Unix to 1, change .so
to .dll. change .so to .dll and in Makeconf.
in src/extra/xdr/rpc/types.h comment out defn of malloc.
 
Change .so to .dll in Makefile's
 
edit Makeconf and set R_OSTYPE to unix
 
make -j2
 
when blas doesn't link, re-run command with -lblas -lg2c on end and
change output to .dll
 
edit Rstrptime.c and change wcstod to atof.
 
in modules:
when X11 and internet falls over add -lintl to link line. add -lg2c and
-lblas to lapack
 
comment out library/base/R/library.R lines 47-51 to avoid arch check
which seems to go wrong!
 
make -j2
make install
 
edit  /opt/freeware/R/R-2.5.1/lib/R/etc/Makeconf and add '-lintl -lg2c
-lblas' to the end of ALL_LIBS
so the module building works. Change .so to .dll also
(can't see how to to this for the build tho...)
 

Our cygwin info is:
 sysname  release  version 
 "CYGWIN_NT-5.1" "1.5.20s(0.155/4/2)"  "20060527 19:21:22" 


 
 
Robert Denham
Environmental Statistician
Remote Sensing Centre
Telephone 07 3896 9899 
www.nrw.qld.gov.au  
 
Department of Natural Resources & Water
QScape Building, 80 Meiers Road, Indooroopilly Qld 4068


The information in this email together with any attachments is
intended only for the person or entity to which it is addressed
and may contain confidential and/or privileged material.
Any form of review, disclosure, modification, distribution
and/or publication of this email message is prohibited, unless
as a necessary part of Departmental business.
If you have received this message in error, you are asked to
inform the sender as quickly as possible and delete this message
and any copies of this message from your computer and/or your
computer system network.

__
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel

Re: [Rd] aesthetics of do.call

[deepayan . sarkar]

On 8/20/07, Vincent Carey 525-2265 <[EMAIL PROTECTED]> wrote:
>
>
> library(MASS)
> G1 = glm(sp~CW, data=crabs, fam=binomial)
> G2 = do.call("glm", list(sp~CW, family=binomial, data=crabs))
>
> G1$call is very nice to look at
> G2$call is very voluminous
>
> if we revise do.call to
>
> function (what, args, quote = FALSE, envir = parent.frame())
> {
> if (!is.list(args))
> stop("second argument must be a list")
> if (quote) {
> enquote <- function(x) as.call(list(as.name("quote"),
> x))
> args <- lapply(args, enquote)
> }
> ans = .Internal(do.call(what, args, envir))
> ans$call = match.call()
> ans
> }
>
> G1 and G2 look a lot more alike

But then you get things like

> do.call(c, list(1, 2, 3))
[[1]]
[1] 1

[[2]]
[1] 2

[[3]]
[1] 3

$call
do.call2(what = c, args = list(1, 2, 3))

Warning message:
In ans$call = match.call() : Coercing LHS to a list

which is probably not what you want to happen.

-Deepayan

__
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel