Re: [R] Kolmogorov-Smirnov Test

2013-08-02 Thread peter dalgaard

On Aug 2, 2013, at 03:24 , Roslina Zakaria wrote:

 Dear r-users,
  
 I am using KS test to test the goodness of fit for my data and the got the 
 following output.  However, I don't understand about the warning messages.  
 What does it mean by horizontals is not a graphical parameter
  

It's horizontal, but I don't think this is coming from ks.test, which isn't 
supposed to do anything with graphics (unless you modified it). Would you by 
any chance have a graphics device open, for which you have been setting 
parameters?

Also, I think there is a buglet in which R warnings are sometimes delayed, so 
it may came from a previous command. I don't think it would happen twice, 
though.

-pd 


 Thank you so much for any help given and it is very much appreciated.
  
  
 ks.test(compare[,1], compare[,2])
 Two-sample Kolmogorov-Smirnov test
 data:  compare[, 1] and compare[, 2] 
 D = 0.0755, p-value = 2.238e-05
 alternative hypothesis: two-sided 
 Warning messages:
 1: horizontals is not a graphical parameter 
 2: horizontals is not a graphical parameter 
 3: horizontals is not a graphical parameter 
 4: horizontals is not a graphical parameter 
 5: horizontals is not a graphical parameter 
 6: horizontals is not a graphical parameter 
 7: In ks.test(compare[, 1], compare[, 2]) :
   cannot compute correct p-values with ties
 ks.test(compare[,1], compare[,2])
 Two-sample Kolmogorov-Smirnov test
 data:  compare[, 1] and compare[, 2] 
 D = 0.0755, p-value = 2.238e-05
 alternative hypothesis: two-sided 
 Warning messages:
 1: horizontals is not a graphical parameter 
 2: horizontals is not a graphical parameter 
 3: horizontals is not a graphical parameter 
 4: horizontals is not a graphical parameter 
 5: horizontals is not a graphical parameter 
 6: horizontals is not a graphical parameter 
 7: In ks.test(compare[, 1], compare[, 2]) :
   cannot compute correct p-values with ties
   [[alternative HTML version deleted]]
 
 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.

-- 
Peter Dalgaard, Professor,
Center for Statistics, Copenhagen Business School
Solbjerg Plads 3, 2000 Frederiksberg, Denmark
Phone: (+45)38153501
Email: pd@cbs.dk  Priv: pda...@gmail.com

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] Kolmogorov-Smirnov Test

2013-08-02 Thread Roslina Zakaria
Hi Peter,
 
Thank you so much for your explaination.  I draw histogram before that, so 
maybe that warning messages are meant for that.
 


 From: peter dalgaard pda...@gmail.com

Cc: r-help@r-project.org r-help@r-project.org 
Sent: Friday, August 2, 2013 3:11 PM
Subject: Re: [R] Kolmogorov-Smirnov Test
  


On Aug 2, 2013, at 03:24 , Roslina Zakaria wrote:

 Dear r-users,
  
 I am using KS test to test the goodness of fit for my data and the got the 
 following output.  However, I don't understand about the warning messages.  
 What does it mean by horizontals is not a graphical parameter
  

It's horizontal, but I don't think this is coming from ks.test, which isn't 
supposed to do anything with graphics (unless you modified it). Would you by 
any chance have a graphics device open, for which you have been setting 
parameters?

Also, I think there is a buglet in which R warnings are sometimes delayed, so 
it may came from a previous command. I don't think it would happen twice, 
though.

-pd 


 Thank you so much for any help given and it is very much appreciated.
  
  
 ks.test(compare[,1], compare[,2])
         Two-sample Kolmogorov-Smirnov test
 data:  compare[, 1] and compare[, 2] 
 D = 0.0755, p-value = 2.238e-05
 alternative hypothesis: two-sided 
 Warning messages:
 1: horizontals is not a graphical parameter 
 2: horizontals is not a graphical parameter 
 3: horizontals is not a graphical parameter 
 4: horizontals is not a graphical parameter 
 5: horizontals is not a graphical parameter 
 6: horizontals is not a graphical parameter 
 7: In ks.test(compare[, 1], compare[, 2]) :
   cannot compute correct p-values with ties
 ks.test(compare[,1], compare[,2])
         Two-sample Kolmogorov-Smirnov test
 data:  compare[, 1] and compare[, 2] 
 D = 0.0755, p-value = 2.238e-05
 alternative hypothesis: two-sided 
 Warning messages:
 1: horizontals is not a graphical parameter 
 2: horizontals is not a graphical parameter 
 3: horizontals is not a graphical parameter 
 4: horizontals is not a graphical parameter 
 5: horizontals is not a graphical parameter 
 6: horizontals is not a graphical parameter 
 7: In ks.test(compare[, 1], compare[, 2]) :
   cannot compute correct p-values with ties
     [[alternative HTML version deleted]]
 
 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.

-- 
Peter Dalgaard, Professor,
Center for Statistics, Copenhagen Business School
Solbjerg Plads 3, 2000 Frederiksberg, Denmark
Phone: (+45)38153501
Email: pd@cbs.dk  Priv: pda...@gmail.com
[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] readBin into a data frame

2013-08-02 Thread Uwe Ligges



On 01.08.2013 10:36, Zhang Weiwu wrote:

Hello. readBin is designed to read a batch of data with the same spec,
e.g. read 1 floats into a vector. In practise I read into data
frame, not vector.  For each data frame, I need to read a integer and a
float.

for (i in 1:1000) {
 dataframe$int[i]   - readBin(con, integer(), size=2)
 dataframe$float[i] - readBin(con, numeric(), size=4)
}



Ideally one would read bunches of identical types within R. This seems 
not to be possible here, hence I'd suggest to read it via some C code.


Best,
Uwe Ligges





And I need to read 100 such data files, ending up with a for loop in a
for loop. Something feels wrong here, as it is being said if you use
double-FOR you are not speaking R.

What is the R way of doing this? I can think of writing the content of
the loop into a function, and vectorize it -- But, the result would be a
list of list, not exactly data-frame, and the list grows incrementally,
which is inefficient, since I know the size of my data frame at the
outset. I am a new learner, not speaking half of R vocabulary, kindly
provide some hint please:)

Best.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] optim with(out) box constraints!

2013-08-02 Thread Anera Salucci
Hello  R users,

Does optimizing a function using optim with  method= L-BFGS-B and without box 
constraints lead to L-BFGS optimization in R? 
[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] Correlation Loops in time series

2013-08-02 Thread TMiller
Thanks David, that went perfectly fine.
Best
Tom



--
View this message in context: 
http://r.789695.n4.nabble.com/Correlation-Loops-in-time-series-tp4672732p4672879.html
Sent from the R help mailing list archive at Nabble.com.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] optim with(out) box constraints!

2013-08-02 Thread Uwe Ligges



On 02.08.2013 10:10, Anera Salucci wrote:

Hello  R users,

Does optimizing a function using optim with  method= L-BFGS-B and without box 
constraints lead to L-BFGS optimization in R?


Sort of, but the question is why this would be beneficial with today's 
computers ...


Best,
Uwe Ligges




[[alternative HTML version deleted]]



__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.



__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] skipping columns in read.table; was: (no subject)

2013-08-02 Thread Uwe Ligges



On 02.08.2013 05:29, Babu Guha wrote:

I have a comma delimited file with 62 fields of which some are comments.
There are about 1.5 million records/lines. Sme of the fields which has
comments and which i do not need have 40 characters. Of the 62 fields, I
will need at most 12 fields. What's best way to read in the fields I need.
If I read the entire file at once I will run out of memory. Could anyone
please suggest some solution?


See ?read.table and its argument colClasses:

read.table(file, colClasses=c(numeric, NULL, factor))

Will read the first column as a numeric one, skip the second column and 
take the thirs one as a factor.


Best,
Uwe Ligges




Thanks,
Babu.

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.



__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] X11 and printing/copying graphics from mac

2013-08-02 Thread Prof Brian Ripley

On 02/08/2013 06:54, Marlin Keith Cox wrote:

Hello all, I frequently use R, but recently have switched to a mac.  When
creating a new graphic, I have used X11() for a new graphics window and
have always (when I used my PC) have been able to copy or print from this


With which OS?


graphic window.  With my mac, it does not allow me to copy or print.
  Having multiple graphic windows is a must as well as being able to print
or copy from them.

Thanks ahead of time.


Please post Mac-specific comments to R-sig-mac.

But a short answer is to use quartz() not X11(): the former is the 
native OS X device.




Keith


M. Keith Cox, Ph.D.
Principal
MKConsulting
17105 Glacier Hwy
Juneau, AK 99801
U.S. 907.957.4606

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.




--
Brian D. Ripley,  rip...@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, UKFax:  +44 1865 272595

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] readBin into a data frame

2013-08-02 Thread Jeff Newmiller
I find the hexView package quite helpful for this.
---
Jeff NewmillerThe .   .  Go Live...
DCN:jdnew...@dcn.davis.ca.usBasics: ##.#.   ##.#.  Live Go...
  Live:   OO#.. Dead: OO#..  Playing
Research Engineer (Solar/BatteriesO.O#.   #.O#.  with
/Software/Embedded Controllers)   .OO#.   .OO#.  rocks...1k
--- 
Sent from my phone. Please excuse my brevity.

Uwe Ligges lig...@statistik.tu-dortmund.de wrote:


On 01.08.2013 10:36, Zhang Weiwu wrote:
 Hello. readBin is designed to read a batch of data with the same
spec,
 e.g. read 1 floats into a vector. In practise I read into data
 frame, not vector.  For each data frame, I need to read a integer and
a
 float.

 for (i in 1:1000) {
  dataframe$int[i]   - readBin(con, integer(), size=2)
  dataframe$float[i] - readBin(con, numeric(), size=4)
 }


Ideally one would read bunches of identical types within R. This seems 
not to be possible here, hence I'd suggest to read it via some C code.

Best,
Uwe Ligges




 And I need to read 100 such data files, ending up with a for loop in
a
 for loop. Something feels wrong here, as it is being said if you use
 double-FOR you are not speaking R.

 What is the R way of doing this? I can think of writing the content
of
 the loop into a function, and vectorize it -- But, the result would
be a
 list of list, not exactly data-frame, and the list grows
incrementally,
 which is inefficient, since I know the size of my data frame at the
 outset. I am a new learner, not speaking half of R vocabulary, kindly
 provide some hint please:)

 Best.

 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide
 http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] Write-table and dynamic access path

2013-08-02 Thread Robert U
Dear R-users,

I am quite sure this is a beginner question, but i cannot manager to find the 
answer on the Internet... 


I am using write.table function inside some kind of loop. I'd like to write my 
tables in different folders without having to change the path inside the 
function every time, but rather by including a variable inside the path. For 
example, i have 5 folders (named 1,2,3,4,5) , i have a variable that get values 
from 1 to 5 during my loop, I'd like to insert this variable  inside the 
pathway specified in the write.table so that the table are automatically' 
saved in the proper folder... But I cannot manage to find the correct syntax 
for this to happen!!

Any tips ?

Best regards

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] Write-table and dynamic access path

2013-08-02 Thread Jim Holtman
?paste

Sent from my iPad

On Aug 2, 2013, at 6:20, Robert U tacsun...@yahoo.fr wrote:

 Dear R-users,
 
 I am quite sure this is a beginner question, but i cannot manager to find the 
 answer on the Internet... 
 
 
 I am using write.table function inside some kind of loop. I'd like to write 
 my tables in different folders without having to change the path inside the 
 function every time, but rather by including a variable inside the path. For 
 example, i have 5 folders (named 1,2,3,4,5) , i have a variable that get 
 values from 1 to 5 during my loop, I'd like to insert this variable� inside 
 the pathway specified in the write.table so that the table are 
 automatically' saved in the proper folder... But I cannot manage to find the 
 correct syntax for this to happen!!
 
 Any tips ?
 
 Best regards
 
[[alternative HTML version deleted]]
 
 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] Creating DAGS with plate notation in R

2013-08-02 Thread Raghu Naik
Thanks Sacha.

The code works well although, as you alluded, the plates are being drawn
after some positional fine tuning. I was hoping that the plates could come
out automatically as they do in graphviz. Possibly, whenever you get to it,
your package can alleviate that.

Cheers.





On Thu, Aug 1, 2013 at 7:11 AM, Sacha Epskamp m...@sachaepskamp.com wrote:

 Here is a way to do it with qgraph. Requires lots of manual placement
 though. I have been asked before to write a package to do these kind of
 graphics automatically from R given some model. Might do it eventually :)

 library(qgraph)

 # Placement of nodes:
 Layout - matrix(c(
   1,1,
   2,1,
   3,1,
   4,1,
   3,0),,2,byrow=TRUE)

 # Graph structure:
 E - matrix(c(
   1,2,
   2,3,
   3,4,
   5,4),,2,byrow=TRUE)

 # Labels:
 Lab -
 list(expression(alpha),expression(theta),expression(z),expression(w),expression(beta))

 # Colors:
 Col - c(rep(white,4),gray)

 pdf(Model.pdf,width=6, height = 4)
 # Open plot:
 par(mar=c(0,0,0,0))
 plot(1,type=n,xlim=c(0.5,5),ylim=c(-1,3))

 # add graph:
 qgraph(E, layout = Layout, labels = Lab, color = Col, plot = FALSE,
rescale = FALSE)

 # Add boxes:
 rect(1.6,0.4,4.6,2)
 rect(2.6, 0.6, 4.4, 1.6  )

 # Add labels:
 text(3.1, 1.9, M)
 text(3.5, 1.5, N)
 dev.off()


 ---
 Sacha Epskamp, MSc
 Department of Psychological Methods
 University of Amsterdam
 Weesperplein 4, room 2.05
 1018 XA Amsterdam
 The Netherlands
 http://www.sachaepskamp.com


 2013/7/2 Raghu Naik naik.ra...@gmail.com

 The image did not come through as pointed out by a list member. I have
 attached a pdf image file; the link is

 http://stackoverflow.com/questions/3461931/software-to-draw-graphical-models-in-plate-notation
 .

 Cheers.

 Raghu


 On Tue, Jul 2, 2013 at 9:42 AM, Raghu Naik naik.ra...@gmail.com wrote:

  I am trying to create a directed graph with plate notation (like the one
  shown below) in R.
 
  [image: The output image]
  Could someone direct to me an example code that will get me started.
 
  I could not see any reference to plate notations in igraph, qgraph
  packages though I may be wrong.
 
  The above figure made in graphviz by a poster on stackoverflow.
 
  I am not sure if this can be replicated in Rgraphviz - I was not able to
  get there.
 
  I would appreciate any help.
 
  Thanks.
 
  Raghu
 

 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide
 http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.




[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] Forest plot with sub-group analyses

2013-08-02 Thread Michael Dewey

At 18:19 01/08/2013, wanjiku gichohi wrote:

 Greetings.

I am conducting a meta analyses that has Beta and SE values.

I am wondering how to place the command to split the analyses. Could you
assist me to develop the command within the syntax? I would also like to
add the N and Year values in the plot. I would like my plot to look like
the one below:

http://www.metafor-project.org/doku.php/plots:forest_plot_with_subgroups#code

I attach here in an example of the syntax  I have come up with so far and
csv file I am using.


This did not come through to here. You need to read the posting guide 
to see what sorts of attachment are permitted.




I look forward to your response and thank you in advance.



Regards,

--
Wanjiku N Gichohi
Tel: +254723766517 / +31645272661
Email: wanjiku_nyaw...@yahoo.com  / wngich...@gmail.com


Michael Dewey
i...@aghmed.fsnet.co.uk
http://www.aghmed.fsnet.co.uk/home.html

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] optim with(out) box constraints!

2013-08-02 Thread Prof J C Nash (U30A)
It's possibly the L in L-BFGS-B that is more interesting for some 
problems, namely for the Limited Memory, so running without bounds can 
make sense. Unfortunately, the version of L-BFGS-B in R is from the 
1990s, and Nocedal et al. released an update in 2011. Maybe someone will 
want to work on putting that into the distributed R. I'll be happy to 
kibbitz off-list to see what can be done.


The types of algorithms that compete for low-memory (i.e., when you have 
1000s of parameters) are the CG codes -- Rcgmin is better than CG by a 
long shot for most problems, and I was involved in both -- and truncated 
Newton methods, of which I only know of one version in nloptr that in 
the very limited tests I've done seems not to be as speedy as I'd 
anticipate (there's also an lbfgs in that package -- not tried). I'm 
slowly working on getting an all-R truncated Newton code up so different 
options could be tried.


If it's the B you need, then Rcgmin, Rvmmin (essentially optim:BFGS) 
work with gradients, as does nlminb, while dfoptim:nmkb or dfoptim:hjkb 
or minqa:bobyqa (also bobyqa in nloptr, again I've no more than tried 
one example) are available for no-derivative case, and possibly some 
other routines.


JN


On 13-08-02 06:00 AM, r-help-requ...@r-project.org wrote:

Message: 36
Date: Fri, 02 Aug 2013 10:38:51 +0200
From: Uwe Liggeslig...@statistik.tu-dortmund.de
To: Anera Saluccia.salu...@yahoo.com
Cc:r-help@r-project.org  r-help@r-project.org
Subject: Re: [R] optim with(out) box constraints!
Message-ID:51fb701b.70...@statistik.tu-dortmund.de
Content-Type: text/plain; charset=ISO-8859-1; format=flowed



On 02.08.2013 10:10, Anera Salucci wrote:

Hello  R users,

Does optimizing a function using optim with  method= L-BFGS-B and without box 
constraints lead to L-BFGS optimization in R?

Sort of, but the question is why this would be beneficial with today's
computers ...

Best,
Uwe Ligges





__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] Editing code in a function? related to allowing zero weights in lmer()

2013-08-02 Thread Mike Rennie
To close the thread, I wanted to post my solution to this issue.

Searching some other help threads, I found this:

https://stat.ethz.ch/pipermail/r-help/2008-August/171321.html

So, here's what I did:

I got at the script for lmerFrames by doing this:

edit(lme4:::lmerFrames)

then edited the code to allow zero weights, and assigned it to a new
function:

my.lmerFrames-function (...}

and then did this:

library(R.utils)

reassignInPackage(lmerFrames, pkgName=lme4, my.lmerFrames)


Voila, things execute, no error.



Note also that R.utils requires some additional packages (R.oo, R.methodsS3
before you can use it.


On Fri, Aug 2, 2013 at 12:03 AM, Mike Rennie mikerenni...@gmail.com wrote:

 Indeed- thanks for the tips to get me going. This just kicks things up a
 notch for me, having happily used packages without wanting to tinker with
 them till now.

 Cheers.


 On Thu, Aug 1, 2013 at 11:57 PM, Bert Gunter gunter.ber...@gene.comwrote:

 1. ?::

 2. ?getAnywhere

 3. Please consult the R language definition manual -- or even An
 Introduction to R -- to learn about R programming. It **is** a
 programming language, you know!

 Cheers,
 Bert

 On Thu, Aug 1, 2013 at 8:54 PM, Mike Rennie mikerenni...@gmail.com
 wrote:
  Hi folks,
 
  I've not before had to edit code right in a function, but I think I need
  to. I am using lmer() and want to use a model that uses zero weights. I
  found this thread from 2009:
 
  https://stat.ethz.ch/pipermail/r-sig-mixed-models/2009q1/001995.html
 
  but I'm unsure of how I would actually go about editing the code in the
  package.
 
  Part of the problem is that I can't even find lmerFrames(). I can see it
  being called in lmer, but if I just type in
 
  lmerFrames
 
  or
 
  fix(lmerFrames)
 
  I get nothing.
 
  The note from Doug Bates is that the function is hidden- is there a
 trick
  to getting at these hidden functions to edit them?
 
  Any thoughts or suggestions welcome.
 
  Cheers,
 
  --
  Michael Rennie, Research Scientist
  Fisheries and Oceans Canada, Freshwater Institute
  Winnipeg, Manitoba, CANADA
 
  [[alternative HTML version deleted]]
 
  __
  R-help@r-project.org mailing list
  https://stat.ethz.ch/mailman/listinfo/r-help
  PLEASE do read the posting guide
 http://www.R-project.org/posting-guide.html
  and provide commented, minimal, self-contained, reproducible code.



 --

 Bert Gunter
 Genentech Nonclinical Biostatistics

 Internal Contact Info:
 Phone: 467-7374
 Website:

 http://pharmadevelopment.roche.com/index/pdb/pdb-functional-groups/pdb-biostatistics/pdb-ncb-home.htm




 --
 Michael Rennie, Research Scientist
 Fisheries and Oceans Canada, Freshwater Institute
 Winnipeg, Manitoba, CANADA




-- 
Michael Rennie, Research Scientist
Fisheries and Oceans Canada, Freshwater Institute
Winnipeg, Manitoba, CANADA

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] verbose=1 setting in lmer gives no iteration results

2013-08-02 Thread jroyrobertson
I am using R version 3.0.1 (2013-05-16) on Platform: x86_64-w64-mingw32/x64 
(64-bit) and lme4_0.9911-3. 
I run the following code from Douglas Bates lme4: Mixed-effects modeling with 
R (June 25, 2010) pg 14 and do not get any iteration information. 
I get the same results if I use verbose=TRUE or verbose=1L. 



 lmer(Yield~1|Batch,Dyestuff,REML=FALSE,verbose=1) 
Linear mixed model fit by maximum likelihood ['lmerMod'] 
Formula: Yield ~ 1 | Batch 
Data: Dyestuff 


AIC BIC logLik deviance 
333.3271 337.5307 -163.6635 327.3271 


Random effects: 
Groups Name Variance Std.Dev. 
Batch (Intercept) 1388 37.26 
Residual 2451 49.51 
Number of obs: 30, groups: Batch, 6 


Fixed effects: 
Estimate Std. Error t value 
(Intercept) 1527.50 17.69 86.33 


I noticed this in the structure of the output: 

..@ optinfo:List of 4 
.. ..$ optimizer: chr Nelder_Mead 
.. ..$ control :List of 1 
.. .. ..$ verbose: int 0 
.. ..$ conv : num 0 
.. ..$ warnings : list() 
Please advise me on how to obtain iteration information with lmer. 


Thanks, 


Roy Robertson 


[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] GO TO function in R

2013-08-02 Thread Barry Rowlingson
No. We figured this out in 1968.
http://dl.acm.org/citation.cfm?doid=362929.362947


On Fri, Aug 2, 2013 at 3:20 AM, David Winsemius dwinsem...@comcast.net wrote:

 On Aug 1, 2013, at 6:58 PM, Peter Maclean wrote:

 Does R has a GO TO function? For example, I want to run this script at a 
 given interval and save the results.


 Generally communication is more effective if you make your goals clear in a 
 natural language (English in the case of this mailing list) first.

 #Step one
 a - Sys.time()
 b - paste(Figure_, a, sep =  )
 shape - as.numeric(a)/1
 scale - as.numeric(a)/100
 #I want to save the file using b object (above) as a file name
 #However it is saved as b.pdf
 pdf(f:/b.pdf) #How to save the file using b above?

 Perhaps:

 pdf(file=paste0(f:/, b, .pdf))

 par(mfrow=c(2,1))
 x - sort(rgamma(100, shape=shape, scale = scale))
 y - dgamma(x, shape=shape, scale = scale)
 par(mfrow=c(2,1))
 plot(x, y, type=l,col=red, lwd=5)

 #Step 2
 Sys.sleep(2) # For Quick results in the model it is one hour
 shape - (as.numeric(Sys.time()))/1
 scale - (as.numeric(Sys.time()))/100
 x - sort(rgamma(100, shape=shape, scale = scale))
 y - dgamma(x, shape=shape, scale = scale)
 plot(x, y, type=b,col= dark red, lwd=5)
 dev.off()
 #Step 3
 Sys.sleep(2)  #Again in the model it is one hour

 #  it?  It would help if you explained what it is.

 #I Want to go back to step 1 to start over again


 I think is a measure of my success in training my mind to think functionally 
 that I cannot conceive of how I would use GOTO as a function.

 (Using `replicate`, I can imagine.)

 --
 David.

 Sincerely,

 Peter Maclean
 Department of Economics
 UDSM
   [[alternative HTML version deleted]]

 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.

 David Winsemius
 Alameda, CA, USA

 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] Regression Column names instead of numbers

2013-08-02 Thread TMiller
Hi guys
I am new to R and I am currently trying to do a regression:
I have two matrices with 200 time series each.
In order to achieve a loop, I used the following command:

sapply(1:200, function(x) summary(lm(formula=matrix1[,x]~matrix2[,x])))

Each column/time series has a unique name, in case of Matrix 1 I have 200
cities, in case of Matrix 2 I have 200 stocks.
However, if I run the command I get the following result:

[[1]]

Call:
lm(formula = matrix1[, x] ~ matrix2[, x])

Residuals:
   Min 1Q Median 3QMax 
-134.9  -68.6  -32.8   33.2  261.2 

Coefficients:
 Estimate Std. Error t value Pr(|t|)
(Intercept)  525.235669.80597.52  9.1e-10 ***
matrix2[, x] 0.0640 0.01613.98  0.00023 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 

Residual standard error: 113 on 50 degrees of freedom
  (41 observations deleted due to missingness)
Multiple R-squared: 0.24,   Adjusted R-squared: 0.225 
F-statistic: 15.8 on 1 and 50 DF,  p-value: 0.000226 


[[2]]

Call:
lm(formula = matrix1[, x] ~ matrix2[, x])

Residuals:
   Min 1Q Median 3QMax 
-914.9 -393.3  -76.9  243.3 1304.7 

Coefficients:
 Estimate Std. Error t value Pr(|t|)
(Intercept)  3.33e+03   1.88e+02   17.70   2e-16 ***
matrix2[, x]4.10e-01   7.87e-025.21  3.4e-06 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 

Residual standard error: 531 on 51 degrees of freedom
  (40 observations deleted due to missingness)
Multiple R-squared: 0.348,  Adjusted R-squared: 0.335 
F-statistic: 27.2 on 1 and 51 DF,  p-value: 3.4e-06 


Instead of the X's in the call response, I'd like to have the column name
(city and stock).
Is this by any means possible?
Thanks in advance for your help.
Best
Tom



--
View this message in context: 
http://r.789695.n4.nabble.com/Regression-Column-names-instead-of-numbers-tp4672904.html
Sent from the R help mailing list archive at Nabble.com.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] R runs on Windows Server 2012?

2013-08-02 Thread Jeff Newmiller
The FAQ may seem vague to you, but your question seems vague to me. I don't run 
R on any Windows Server, so I cannot answer your question, but there is more 
than one way to run R on any server and you have not mentioned how you want it 
to run. For example, you might run it via Remote Terminal in interactive 
mode, in which case the video settings of the client may affect graphics 
functionality. Or, you may want to use it as a compute node for parallel 
computation, leaving graphics generation to your client node. Or, you may want 
to use it as a network service that generates graphics files non-interactively 
and serves them via a web page. I suggest you clarify your definition of run 
to prompt a more helpful response from the list.
---
Jeff NewmillerThe .   .  Go Live...
DCN:jdnew...@dcn.davis.ca.usBasics: ##.#.   ##.#.  Live Go...
  Live:   OO#.. Dead: OO#..  Playing
Research Engineer (Solar/BatteriesO.O#.   #.O#.  with
/Software/Embedded Controllers)   .OO#.   .OO#.  rocks...1k
--- 
Sent from my phone. Please excuse my brevity.

Chris Solomon chris.solo...@mcgill.ca wrote:
Hi-

Can someone confirm whether R runs on the Windows Server 2012 OS, and
if so whether there are any significant differences from running on
e.g. Windows 7 that I ought to be aware of?

The R for Windows FAQ (URL below) seems to indicate that running on
Windows Server 2012 is possible, but the text is a little vague and I
haven't been able to find any clear answers on the mailing list
archives. We are considering spending a chunk of money on a small
server and I want to be very sure that R will run before we do.

URL for relevant FAQ:
http://cran.r-project.org/bin/windows/base/rw-FAQ.html#How-do-I-install-R-for-Windows_003f

Thanks
Chris


*
Dr. Chris Solomon
Dept. of Natural Resource Sciences
McGill University

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] Write-table and dynamic access path

2013-08-02 Thread Jeff Newmiller
Or ?file.path for a more OS- independent approach.
---
Jeff NewmillerThe .   .  Go Live...
DCN:jdnew...@dcn.davis.ca.usBasics: ##.#.   ##.#.  Live Go...
  Live:   OO#.. Dead: OO#..  Playing
Research Engineer (Solar/BatteriesO.O#.   #.O#.  with
/Software/Embedded Controllers)   .OO#.   .OO#.  rocks...1k
--- 
Sent from my phone. Please excuse my brevity.

Jim Holtman jholt...@gmail.com wrote:
?paste

Sent from my iPad

On Aug 2, 2013, at 6:20, Robert U tacsun...@yahoo.fr wrote:

 Dear R-users,
 
 I am quite sure this is a beginner question, but i cannot manager to
find the answer on the Internet... 
 
 
 I am using write.table function inside some kind of loop. I'd like to
write my tables in different folders without having to change the path
inside the function every time, but rather by including a variable
inside the path. For example, i have 5 folders (named 1,2,3,4,5) , i
have a variable that get values from 1 to 5 during my loop, I'd like to
insert this variable� inside the pathway specified in the write.table
so that the table are automatically' saved in the proper folder... But
I cannot manage to find the correct syntax for this to happen!!
 
 Any tips ?
 
 Best regards
 
[[alternative HTML version deleted]]
 
 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] Forest plot with sub-group analyses

2013-08-02 Thread David Winsemius

On Aug 2, 2013, at 5:20 AM, Michael Dewey wrote:

 At 18:19 01/08/2013, wanjiku gichohi wrote:
 Greetings.
 
 I am conducting a meta analyses that has Beta and SE values.
 
 I am wondering how to place the command to split the analyses. Could you
 assist me to develop the command within the syntax? I would also like to
 add the N and Year values in the plot. I would like my plot to look like
 the one below:
 
 http://www.metafor-project.org/doku.php/plots:forest_plot_with_subgroups#code
 
 I attach here in an example of the syntax  I have come up with so far and
 csv file I am using.
 
 This did not come through to here. You need to read the posting guide to see 
 what sorts of attachment are permitted.

I think the Posting Guide would be more helpful if it specifically warned Rhelp 
posters that neither .csv nor .R files will be recognized as plain text files 
by the mail server. In my several years of experience reading Rhelp and 
observing failures-to-include, files uniformly need to be renamed with a .txt 
extension if they are to make it through to the list, even if they appear to be 
ordinary text files in your editor.

-- 
David.
 
 
 I look forward to your response and thank you in advance.
 
 
 
 Regards,
 
 --
 Wanjiku N Gichohi
 Tel: +254723766517 / +31645272661
 Email: wanjiku_nyaw...@yahoo.com  / wngich...@gmail.com
 
 Michael Dewey
 i...@aghmed.fsnet.co.uk
 http://www.aghmed.fsnet.co.uk/home.html
 
 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.

David Winsemius
Alameda, CA, USA

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] Regression Column names instead of numbers

2013-08-02 Thread David Carlson
It depends on how fancy you want to get. A quick fix would be

pairs - paste0(colnames(matrix1), ., colnames(matrix2))
# lapply will be faster since you are returning a list
results - lapply(1:200, function(x) 
summary(lm(formula=matrix1[,x]~matrix2[,x])))
names(results) - pairs
results

The results will now be separated by labels that indicate the city.stock.

-
David L Carlson
Associate Professor of Anthropology
Texas AM University
College Station, TX 77840-4352

-Original Message-
From: r-help-boun...@r-project.org [mailto:r-help-boun...@r-project.org] On 
Behalf Of TMiller
Sent: Friday, August 2, 2013 10:17 AM
To: r-help@r-project.org
Subject: [R] Regression Column names instead of numbers

Hi guys
I am new to R and I am currently trying to do a regression:
I have two matrices with 200 time series each.
In order to achieve a loop, I used the following command:

sapply(1:200, function(x) summary(lm(formula=matrix1[,x]~matrix2[,x])))

Each column/time series has a unique name, in case of Matrix 1 I have 200
cities, in case of Matrix 2 I have 200 stocks.
However, if I run the command I get the following result:

[[1]]

Call:
lm(formula = matrix1[, x] ~ matrix2[, x])

Residuals:
   Min 1Q Median 3QMax 
-134.9  -68.6  -32.8   33.2  261.2 

Coefficients:
 Estimate Std. Error t value Pr(|t|)
(Intercept)  525.235669.80597.52  9.1e-10 ***
matrix2[, x] 0.0640 0.01613.98  0.00023 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 

Residual standard error: 113 on 50 degrees of freedom
  (41 observations deleted due to missingness)
Multiple R-squared: 0.24,   Adjusted R-squared: 0.225 
F-statistic: 15.8 on 1 and 50 DF,  p-value: 0.000226 


[[2]]

Call:
lm(formula = matrix1[, x] ~ matrix2[, x])

Residuals:
   Min 1Q Median 3QMax 
-914.9 -393.3  -76.9  243.3 1304.7 

Coefficients:
 Estimate Std. Error t value Pr(|t|)
(Intercept)  3.33e+03   1.88e+02   17.70   2e-16 ***
matrix2[, x]4.10e-01   7.87e-025.21  3.4e-06 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 

Residual standard error: 531 on 51 degrees of freedom
  (40 observations deleted due to missingness)
Multiple R-squared: 0.348,  Adjusted R-squared: 0.335 
F-statistic: 27.2 on 1 and 51 DF,  p-value: 3.4e-06 


Instead of the X's in the call response, I'd like to have the column name
(city and stock).
Is this by any means possible?
Thanks in advance for your help.
Best
Tom



--
View this message in context: 
http://r.789695.n4.nabble.com/Regression-Column-names-instead-of-numbers-tp4672904.html
Sent from the R help mailing list archive at Nabble.com.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] rms plot.Predict when type=p

2013-08-02 Thread Frank Harrell
Mike, 2 out of 3 of your requests are handled simply.  I've tidied up 
your code and show how to include extra parameters into the plot( ) call 
below.  The request to change plotting symbol color for each factor 
level is not consistent with the lattice philosophy for non-superposed 
variables (here on the x-axis) where the labels tell all.  The last 2 
lines in the code uses superpositioning for group but the col argument 
affects the color of confidence bands; I didn't look into that further.


Frank Harrell
--
require(rms)
n = 30
group = factor(sample(c('a','b','c'), n, TRUE))
x1= runif(n)
dat   = data.frame(group, x1,
   y = as.numeric(group) + 0.2*x1 + rnorm(n) )

d - datadist(dat) ; options(datadist=d)

f - ols(y ~ x1 + group, data=dat)
p - Predict(f, group)
plot(p, ~group, nlines=TRUE, type='p', ylab='fitted Y', xlab='Treatment',
 pch=4, lwd=3)
p - Predict(f, x1=seq(0,1,by=.1), group)
plot(p, ~ x1, groups='group', col=3:1)

--

Hi all,

I'm trying to change the pch, color, lty, and lwd in a type=p plot
produced by plot.Predict in the rms package.  What I'm shooting for is a
separate plotting symbol symbol color for each level of a factor (and also
to manage the line width for the CIs).

Here's what I hope is a working example

#make up some data
. . .
Mike Babyak
Department of Psychiatry and Behavioral Sciences

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] lme: object is not a matrix

2013-08-02 Thread Puschner, Bernd
Dear all,

 

when running in R a simple lme call (3 variables in data set) which
works perfectly fine in S-PLUS, I keep getting the error message

 

 Error in model.frame.default(formula = ~t + can2p + code, data = list(
: 

  object is not a matrix

 

Any help would be very much appreciated.

 

Thanks.

 

Bernd 

 


[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] cannot base64decode string which is base64encode in R

2013-08-02 Thread Qiang Wang
Hi,

I'm struggling with encode/decode strings in R. Don't know why the second
example below would fail. Thanks in advance for your help.
succeed: s - saf x - base64encode(s) y - base64decode(x, character)
fail: s - safs x - base64encode(s) y - base64decode(x, character)

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] Forest plot with sub group analyses

2013-08-02 Thread wanjiku gichohi
Greetings.

I am conducting a meta analyses that has Beta and SE values.

I am wondering how to place the command to split the analyses. Could you
assist me to develop the command within the syntax? I would also like to
add the N and Year values in the plot. I would like my plot to look like
the one below:

http://www.metafor-project.org/doku.php/plots:forest_plot_with_subgroups#code

I attach here in an example of the syntax  I have come up with so far and
csv file I am using.

I look forward to your response and thank you in advance.



Regards,


Wanjiku N Gichohi
__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] HiPLARb installation failed when magma-lib included

2013-08-02 Thread Clara Anton Fernandez
Hi all,
I am trying to install HiPLARb package but I am running into an error.
Any help would be greatly appreciated.
I used the installer available from their website
(http://www.hiplar.org/hiplar-b-installation.html) and followed their
instructions. The installer finished without showing warnings or
errors, but HiPLARb is not installed when I try to load it in R. So, I
tried to do install HiPLARb package manually and it is installed
correctly if I do

R CMD INSTALL --configure-args=--with-lapack=-L/home/caf/mylibs/lib\
-lopenblas  --with-plasma-lib=/home/caf/mylibs
--with-cuda-home=/usr/local/cudaHiPLARb_0.1.3.tar.gz

but if I try to include magma

R CMD INSTALL --configure-args=--with-lapack=-L/home/caf/mylibs/lib\
-lopenblas  --with-magma-lib=/home/caf/mylibs
--with-plasma-lib=/home/caf/mylibs   --with-cuda-home=/usr/local/cuda
  HiPLARb_0.1.3.tar.gz

I get the error
Error in dyn.load(file, DLLpath = DLLpath, ...) :
  unable to load shared object
'/home/caf/R.2.15.2-patched/lib/R/library/HiPLARb/libs/HiPLARb.so':
  /home/caf/mylibs/lib/libmagmablas.so: undefined symbol: cudaMemcpyFromSymbol

Info about the system
Ubuntu 12.04.2 LTS
NVIDIA Quadro K4000
CUDA 5.5
R 2.15.2, hwloc, MAGMA and PLASMA where both downloaded and installed
by HiPLARb installer

Any help much appreciated,
Clara

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] could I remove or move points in locator() based on plot()?

2013-08-02 Thread Klot Lee
Hi,
The function locator() allows me to add points by mouse on function plot()
I have draft. But the points can not be edit once I have made the click.
How can I remove or just move the points I made on the draft?

I use the locator function like this:

 plot(1,1)
 locator(type=o)


 Thanks.

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] Creating a model with fixed and random variables

2013-08-02 Thread cbarl3y
I am trying to recreate a model that would mimic results a peer obtained
using SAS, but in R. The goal of this model would be to determine if there
is any variation among parental sets and lines (essentially is there a
significant p-value for the variables “set” and “line”). The problems I am
having are: 

1) The usage of nested data “Line%in%Set”
2) Having to have both fixed and random variables Fixed=Set Random=Line and
Block
3) Results I have obtained usually contain significant Blocking effects.


Code I have used thus far without being able to replicate the data includes:

Fm-lmer(Score~(1|Line%in%Set)+Set+(1|Block))
 (I figured out how to get a p-value, but it didn't yield the same results
as those obtained in SAS)

Model-lm(Score~Line%in%Set+Set+Block)  

Overall, I realize that I might be completely off in the way I am attempting
to create this model and any suggestions will be extremely helpful!  Also,
if it would be more helpful I can add a dput() of my data. 




--
View this message in context: 
http://r.789695.n4.nabble.com/Creating-a-model-with-fixed-and-random-variables-tp4672905.html
Sent from the R help mailing list archive at Nabble.com.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] Forest plot with sub group analyses

2013-08-02 Thread John Kane
No attachments came through.  Either include the code and the data in the 
email---see ?dupt for a way to include the data or include the files as .txt 
files.

John Kane
Kingston ON Canada


 -Original Message-
 From: wngich...@gmail.com
 Sent: Fri, 2 Aug 2013 10:45:33 +0200
 To: r-help@r-project.org
 Subject: [R] Forest plot with sub group analyses
 
 Greetings.
 
 I am conducting a meta analyses that has Beta and SE values.
 
 I am wondering how to place the command to split the analyses. Could you
 assist me to develop the command within the syntax? I would also like to
 add the N and Year values in the plot. I would like my plot to look like
 the one below:
 
 http://www.metafor-project.org/doku.php/plots:forest_plot_with_subgroups#code
 
 I attach here in an example of the syntax  I have come up with so far and
 csv file I am using.
 
 I look forward to your response and thank you in advance.
 
 
 
 Regards,
 
 
 Wanjiku N Gichohi
 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide
 http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.


Share photos  screenshots in seconds...
TRY FREE IM TOOLPACK at http://www.imtoolpack.com/default.aspx?rc=if1
Works in all emails, instant messengers, blogs, forums and social networks.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] Regression Column names instead of numbers

2013-08-02 Thread TMiller
Hello David
Thanks for your answer. It works with the number in the double bracket above
each of the regression results.
However, the x's still remain in the call formula.
I really appreciate any help
Best 
Tom



--
View this message in context: 
http://r.789695.n4.nabble.com/Regression-Column-names-instead-of-numbers-tp4672904p4672920.html
Sent from the R help mailing list archive at Nabble.com.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] could I remove or move points in locator() based on plot()?

2013-08-02 Thread David Winsemius

On Aug 2, 2013, at 2:26 AM, Klot Lee wrote:

 Hi,
 The function locator() allows me to add points by mouse on function plot()
 I have draft. But the points can not be edit once I have made the click.
 How can I remove or just move the points I made on the draft?

You cannot. The plotting model for base graphics is indelible ink. The best you 
could do would be to plot white on top of black.

-- 
David.
 
 I use the locator function like this:
 
 plot(1,1)
 locator(type=o)
 
 
 Thanks.
 
   [[alternative HTML version deleted]]
 
 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.

David Winsemius
Alameda, CA, USA

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] Regression Column names instead of numbers

2013-08-02 Thread arun


You could try:
set.seed(25)
mt1- matrix(sample(c(NA,1:40),20*200,replace=TRUE),ncol=200)
colnames(mt1)- paste0(X,1:200)
set.seed(487)
mt2- matrix(sample(c(NA,1:80),20*200,replace=TRUE),ncol=200)
colnames(mt2)- colnames(mt1)

res-lapply(colnames(mt1),function(x) {x1-data.frame(mt1[,x],mt2[,x]); 
colnames(x1)-paste0(c(mt1,mt2),x); 
summary(lm(as.formula(paste(colnames(x1)[1],~,colnames(x1)[2],sep=)),data=x1))})

res
[[1]]

Call:
lm(formula = as.formula(paste(colnames(x1)[1], ~, colnames(x1)[2], 
    sep = )), data = x1)

Residuals:
    Min  1Q  Median  3Q Max 
-16.799  -8.821  -1.059   8.414  19.544 

Coefficients:
    Estimate Std. Error t value Pr(|t|)  
(Intercept)  14.7292 6.2952    2.34    0.031 *
mt2X1 0.1302 0.1342    0.97    0.345  
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 11.53 on 18 degrees of freedom
Multiple R-squared:  0.04967,    Adjusted R-squared:  -0.003127 
F-statistic: 0.9408 on 1 and 18 DF,  p-value: 0.3449


[[2]]

Call:
lm(formula = as.formula(paste(colnames(x1)[1], ~, colnames(x1)[2], 
    sep = )), data = x1)

Residuals:
    Min  1Q  Median  3Q Max 
-17.641  -6.809  -2.255   5.235  19.684 

Coefficients:
    Estimate Std. Error t value Pr(|t|)  
(Intercept)   3.7745 5.1715   0.730   0.4754  
mt2X2 0.2635 0.1155   2.283   0.0356 *
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 10.15 on 17 degrees of freedom
  (1 observation deleted due to missingness)
Multiple R-squared:  0.2346,    Adjusted R-squared:  0.1896 
F-statistic:  5.21 on 1 and 17 DF,  p-value: 0.0356


A.K.



- Original Message -
From: TMiller thomas.muel...@student.unisg.ch
To: r-help@r-project.org
Cc: 
Sent: Friday, August 2, 2013 11:16 AM
Subject: [R] Regression Column names instead of numbers

Hi guys
I am new to R and I am currently trying to do a regression:
I have two matrices with 200 time series each.
In order to achieve a loop, I used the following command:

sapply(1:200, function(x) summary(lm(formula=matrix1[,x]~matrix2[,x])))

Each column/time series has a unique name, in case of Matrix 1 I have 200
cities, in case of Matrix 2 I have 200 stocks.
However, if I run the command I get the following result:

[[1]]

Call:
lm(formula = matrix1[, x] ~ matrix2[, x])

Residuals:
   Min     1Q Median     3Q    Max 
-134.9  -68.6  -32.8   33.2  261.2 

Coefficients:
                     Estimate Std. Error t value Pr(|t|)    
(Intercept)          525.2356    69.8059    7.52  9.1e-10 ***
matrix2[, x]             0.0640     0.0161    3.98  0.00023 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 

Residual standard error: 113 on 50 degrees of freedom
  (41 observations deleted due to missingness)
Multiple R-squared: 0.24,    Adjusted R-squared: 0.225 
F-statistic: 15.8 on 1 and 50 DF,  p-value: 0.000226 


[[2]]

Call:
lm(formula = matrix1[, x] ~ matrix2[, x])

Residuals:
   Min     1Q Median     3Q    Max 
-914.9 -393.3  -76.9  243.3 1304.7 

Coefficients:
                     Estimate Std. Error t value Pr(|t|)    
(Intercept)          3.33e+03   1.88e+02   17.70   2e-16 ***
matrix2[, x]            4.10e-01   7.87e-02    5.21  3.4e-06 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 

Residual standard error: 531 on 51 degrees of freedom
  (40 observations deleted due to missingness)
Multiple R-squared: 0.348,    Adjusted R-squared: 0.335 
F-statistic: 27.2 on 1 and 51 DF,  p-value: 3.4e-06 


Instead of the X's in the call response, I'd like to have the column name
(city and stock).
Is this by any means possible?
Thanks in advance for your help.
Best
Tom



--
View this message in context: 
http://r.789695.n4.nabble.com/Regression-Column-names-instead-of-numbers-tp4672904.html
Sent from the R help mailing list archive at Nabble.com.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] could I remove or move points in locator() based on plot()?

2013-08-02 Thread Daniel Guetta
Depending on the complexity of your graphic, you could also just re-draw
the entire thing every time you want to make a change.

Daniel


On Fri, Aug 2, 2013 at 10:17 AM, David Winsemius dwinsem...@comcast.netwrote:


 On Aug 2, 2013, at 2:26 AM, Klot Lee wrote:

  Hi,
  The function locator() allows me to add points by mouse on function
 plot()
  I have draft. But the points can not be edit once I have made the click.
  How can I remove or just move the points I made on the draft?

 You cannot. The plotting model for base graphics is indelible ink. The
 best you could do would be to plot white on top of black.

 --
 David.
 
  I use the locator function like this:
 
  plot(1,1)
  locator(type=o)
 
 
  Thanks.
 
[[alternative HTML version deleted]]
 
  __
  R-help@r-project.org mailing list
  https://stat.ethz.ch/mailman/listinfo/r-help
  PLEASE do read the posting guide
 http://www.R-project.org/posting-guide.html
  and provide commented, minimal, self-contained, reproducible code.

 David Winsemius
 Alameda, CA, USA

 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide
 http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.


[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] Removing null vector that is not in .csv file data

2013-08-02 Thread arun
Hi,
You could remove it by:
vec1- c( ,1003PI_pilot0101, 1003PI_pilot0102,1003PI_pilot0103, 
1003PI_pilot0104, 1003PI_pilot0105, 1003PI_pilot0107) 
vec1[vec1!=]
#[1] 1003PI_pilot0101 1003PI_pilot0102 1003PI_pilot0103 1003PI_pilot0104
#[5] 1003PI_pilot0105 1003PI_pilot0107
#or
 vec1[nchar(vec1)0]
#[1] 1003PI_pilot0101 1003PI_pilot0102 1003PI_pilot0103 1003PI_pilot0104
#[5] 1003PI_pilot0105 1003PI_pilot0107


Without a reproducible example, it would be difficult to comment how you got 
that.



A.K.



Hello all, 
I am a super R novice, using  it for work. 
I loaded a seemingly normal .csv file into R, and in one of the variables, a 
null vector was added. 
this is what it looks like. 
[1]                  1003PI_pilot0101 1003PI_pilot0102 
1003PI_pilot0103 1003PI_pilot0104 1003PI_pilot0105 
1003PI_pilot0107 

However, when I check the head, it looks completely normal, and the first piece 
of data is 1003PI_pilot0101. 

How do I remove this null vector? And why is it there in the 
first place? There is nothing in the original .csv data file that 
indicates a blank or anything out of the ordinary. 
Sorry if this is a super dumb question. I just want to get my work done.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] lme: object is not a matrix

2013-08-02 Thread Bert Gunter
R is not splus. Read ?lme.

Bert

Sent from my iPhone -- please excuse typos.

On Aug 2, 2013, at 5:45 AM, Puschner, Bernd bernd.pusch...@bkh-guenzburg.de 
wrote:

 Dear all,
 
 
 
 when running in R a simple lme call (3 variables in data set) which
 works perfectly fine in S-PLUS, I keep getting the error message
 
 
 
  Error in model.frame.default(formula = ~t + can2p + code, data = list(
 : 
 
  object is not a matrix
 
 
 
 Any help would be very much appreciated.
 
 
 
 Thanks.
 
 
 
 Bernd 
 
 
 
 
[[alternative HTML version deleted]]
 
 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] R runs on Windows Server 2012?

2013-08-02 Thread Chris Solomon
Hi Jeff-

Thanks for your input. I will try to provide a little more detail.

First, it is useful to know that I know very little about high-performance 
computing with R or in general. 

We occasionally run models that take a lot of processor time. In the past I 
have used quad-core desktops and the foreach package to speed up the 
computation on parallelizable parts of these models. My goal with the sever is 
to be able to speed up computation some (a lot) more.

I am envisioning that we would mostly use the server as a compute node, but it 
seems possible that we might occasionally want to interact directly with R as 
installed on the server itself (including graphics) via Remote Desktop.

Really what I am looking for is for someone who has experience with R on 
servers, with Windows Server 2012 and maybe other operating systems, to give me 
some guidance on the kinds of capabilities and limitations that you lay out 
hypothetically - e.g. it will work fine with WS2012 as long as you don't try 
to work with graphics, or it works just as it would on Windows7, or there 
are lots of issues, you may want to rethink your OS, or whatever.

Thanks
Chris



-Original Message-
From: Jeff Newmiller [mailto:jdnew...@dcn.davis.ca.us] 
Sent: Friday, August 02, 2013 11:30 AM
To: Chris Solomon; r-help@r-project.org
Subject: Re: [R] R runs on Windows Server 2012?

The FAQ may seem vague to you, but your question seems vague to me. I don't run 
R on any Windows Server, so I cannot answer your question, but there is more 
than one way to run R on any server and you have not mentioned how you want it 
to run. For example, you might run it via Remote Terminal in interactive 
mode, in which case the video settings of the client may affect graphics 
functionality. Or, you may want to use it as a compute node for parallel 
computation, leaving graphics generation to your client node. Or, you may want 
to use it as a network service that generates graphics files non-interactively 
and serves them via a web page. I suggest you clarify your definition of run 
to prompt a more helpful response from the list.
---
Jeff NewmillerThe .   .  Go Live...
DCN:jdnew...@dcn.davis.ca.usBasics: ##.#.   ##.#.  Live Go...
  Live:   OO#.. Dead: OO#..  Playing
Research Engineer (Solar/BatteriesO.O#.   #.O#.  with
/Software/Embedded Controllers)   .OO#.   .OO#.  rocks...1k
---
Sent from my phone. Please excuse my brevity.

Chris Solomon chris.solo...@mcgill.ca wrote:
Hi-

Can someone confirm whether R runs on the Windows Server 2012 OS, and 
if so whether there are any significant differences from running on 
e.g. Windows 7 that I ought to be aware of?

The R for Windows FAQ (URL below) seems to indicate that running on 
Windows Server 2012 is possible, but the text is a little vague and I 
haven't been able to find any clear answers on the mailing list 
archives. We are considering spending a chunk of money on a small 
server and I want to be very sure that R will run before we do.

URL for relevant FAQ:
http://cran.r-project.org/bin/windows/base/rw-FAQ.html#How-do-I-install
-R-for-Windows_003f

Thanks
Chris


*
Dr. Chris Solomon
Dept. of Natural Resource Sciences
McGill University

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] could I remove or move points in locator() based on plot()?

2013-08-02 Thread David Carlson
You cannot move or edit them interactively, but you can save
the locations of those points by using:

 a - locator(type=o)

# e.g. click on three locations

 a
$x
[1] 0.8559376 1.1778126 1.2340626

$y
[1] 1.2256976 1.2501162 0.8402324

You could now delete or modify the points and then use lines()
or points() to add them to a new graph.

 plot(1, 1)
 lines(a, type=o)
 points(a, pch=16, col=red)

-
David L Carlson
Associate Professor of Anthropology
Texas AM University
College Station, TX 77840-4352

-Original Message-
From: r-help-boun...@r-project.org
[mailto:r-help-boun...@r-project.org] On Behalf Of Daniel
Guetta
Sent: Friday, August 2, 2013 12:23 PM
To: David Winsemius
Cc: R-help@r-project.org
Subject: Re: [R] could I remove or move points in locator()
based on plot()?

Depending on the complexity of your graphic, you could also
just re-draw
the entire thing every time you want to make a change.

Daniel


On Fri, Aug 2, 2013 at 10:17 AM, David Winsemius
dwinsem...@comcast.netwrote:


 On Aug 2, 2013, at 2:26 AM, Klot Lee wrote:

  Hi,
  The function locator() allows me to add points by mouse on
function
 plot()
  I have draft. But the points can not be edit once I have
made the click.
  How can I remove or just move the points I made on the
draft?

 You cannot. The plotting model for base graphics is
indelible ink. The
 best you could do would be to plot white on top of black.

 --
 David.
 
  I use the locator function like this:
 
  plot(1,1)
  locator(type=o)
 
 
  Thanks.
 
[[alternative HTML version deleted]]
 
  __
  R-help@r-project.org mailing list
  https://stat.ethz.ch/mailman/listinfo/r-help
  PLEASE do read the posting guide
 http://www.R-project.org/posting-guide.html
  and provide commented, minimal, self-contained,
reproducible code.

 David Winsemius
 Alameda, CA, USA

 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide
 http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible
code.


[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible
code.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] could I remove or move points in locator() based on plot()?

2013-08-02 Thread Greg Snow
The function put.points.demo in the TeachingDemos package allows you to
add points, delete points, and move points on a scatterplot (and also
computes some summaries based on the points).

It actually uses locator behind the scenes and redraws the plot each
time, but it gives the effect.  If that does not do what you want, you may
be able to modify the function (pure R code) to  do what you need.


On Fri, Aug 2, 2013 at 3:26 AM, Klot Lee fff200...@gmail.com wrote:

 Hi,
 The function locator() allows me to add points by mouse on function plot()
 I have draft. But the points can not be edit once I have made the click.
 How can I remove or just move the points I made on the draft?

 I use the locator function like this:

  plot(1,1)
  locator(type=o)


  Thanks.

 [[alternative HTML version deleted]]

 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide
 http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.




-- 
Gregory (Greg) L. Snow Ph.D.
538...@gmail.com

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] CSPADE error: system invocation error

2013-08-02 Thread Cen Guo
Hi Sue  Michael,

I'm running into the same situation, i first tried everything with my own
data and it didn't work, and then i tried with zaki.txt and i got the same
error
Here is my sessioninfo:
 sessionInfo()
R version 3.0.1 (2013-05-16)
Platform: i386-w64-mingw32/i386 (32-bit)

locale:
[1] LC_COLLATE=French_France.1252  LC_CTYPE=French_France.1252
LC_MONETARY=French_France.1252 LC_NUMERIC=C
[5] LC_TIME=French_France.1252

attached base packages:
[1] stats graphics  grDevices utils datasets  methods   base

other attached packages:
[1] arulesSequences_0.2-4 arules_1.0-14 Matrix_1.0-12
lattice_0.20-15

loaded via a namespace (and not attached):
[1] grid_3.0.1  tools_3.0.1

Have you guys resolved the problem? Do you know where does it come from?
Thank you in advance,
Cen

-- 


 

Privileged/Confidential Information may be contained in this message. If
you are not the addressee indicated in this message, you should destroy
this message. For more information on WPP's business ethical standards
and corporate responsibility policies, please refer to WPP's website.

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] R Job taking longer in Linux than in Windows

2013-08-02 Thread alina andrei
Hello,
 
I am running an R job on a Windows 7 machine, having 4 cores and 16GB RAM , R 
3.0.1, and it takes 1.5 hours to complete.
I am running the same job in R on a Linux enviroment (Platform: 
x86_64-redhat-linux-gnu (64-bit))
with huge amounts of memory: 40 cores and .5 TB RAM., and the job takes 3h and 
15min
to complete (no other concurrent jobs).  The job uses the glmnet package to 
perform model selection on a simulated data set having 1 million records and 
150 variables.
My questions are:
1. Why R doesn't take advantage of the avaialble RAM?
2. Are there any changes that we can apply to the R configuration file in order 
to see superior performance? My expectations are that the Linux enviroment 
would performe a lot better when compared to the Windows enviroment.
 
Any help in sorting out these issues is much appreciated.
 
Thank you in advance!
Alina 
[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] problem about mean function in ffbase package

2013-08-02 Thread Milan Bouchet-Valat
Le jeudi 01 août 2013 à 00:10 +0800, Chaos Chen a écrit :
 Hi all,
 
 I experienced some unmatched result using mean function in ffbase package
 and cannot figure out what's wrong.
 
 I have a simulated ff vector with 10 numbers inside and want to
 calculate its mean. But the results are quite different.
 
 With mean( ) function in ffbase package, the mean is 152.6858.
 But with R's mean( ) or adding sum from chunks directly, I got 667.5595
 
 any idea ? Thank you in advance!
Could you provide a fully reproducible example with a shorter vector (I
cannot create such a large vector on my box)? Use set.seed() so that
runif() gives exactly the same values.

From quick tests here, the problem does not appear.

Regards

 Bayes Chen
 
 # F1 is an ffdf , F1$X1 is an ff vector
  length(F1$X1)
 [1] 10
 
 # Use mean() function in ffbase package
  mean(F1$X1)
 [1] 152.6858
 
  X2 = F1$X1[]  #X2 is now an non-ff vector
  length(X2)
 [1] 10
  mean(X2) # R's original mean function for ordinary vectors
 [1] 667.5595
 
 # calculate sum and then mean by chunks
  chunks = chunk(F1$X1, by=500)
  sumx = 0
  for (i in chunks) {
 +   sumx = sumx + sum(F1$X1[i])
 + }
  sumx/length(F1$X1)
 [1] 667.5595
 
 --- below are some other trials
  X2 = F1$X1[1:100]
  mean(X2)
 [1] 59.43149
  mean(as.ff(X2))
 [1] 59.43149
 
  X2 = F1$X1[1:1]
  mean(X2)
 [1] 59.41978
  mean(as.ff(X2))
 [1] 59.42128
 
  X2 = F1$X1[1:5]
  mean(X2)
 [1] 60.53615
  mean(as.ff(X2))
 [1] 57.72168
 
  X2 = F1$X1[1:75000]
  mean(X2)
 [1] 59.37562
  mean(as.ff(X2))
 [1] 57.81179
 
  X2 = F1$X1[1:9]
  mean(X2)
 [1] 57.0867
  mean(as.ff(X2))
 [1] 57.44862
 
  X3 = F1$X1[9:10]
  mean(X3)
 [1] 6161.814
  mean(as.ff(X3))
 [1] 6161.797
   [[alternative HTML version deleted]]
 
 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] How to index each loop results

2013-08-02 Thread Dadong Zhang
*Hi R Users,

*
*I was trying to write a simple function for data imputation. I need to
index the results from each step and combine it with some data of the
original dataset for the next step, until the end. I attached a sample data
and the work-well R code function I wrote, but the function is rather
applied easily for all kind of data. Can somebody generalize my 'pace.imp'
function?
*
*
run the attached sample data using the following function:
pred-matrix(c(rep(0, 11), rep(1,7), rep(0, 72)), 9, 9, byrow=T)
rownames(pred)-colnames(pred)-paste(PR, 1:9)
impace-function(data, time, imp, i, pred, m){
library(mice)
if (sum(is.na(data[data[, time]=i, imp]))=1)
{compl-complete(mice(data[data[, time]=i, ], pred=pred, m=m))}
else {compl=data[data[, time]=i, ]}
return(compl)
}
pace.imp-function(data, time, imp, pred, m){
C1-impace(data, time, imp, 1, pred, m)
R1-rbind(C1, data[data[, time]==(1+1),])
C2-impace(R1, time, imp, 2, pred, m)
R2-rbind(C2, data[data[, time]==(1+2),])
C3-impace(R2, time, imp, 3, pred, m)
R3-rbind(C3, data[data[, time]==(1+3),])
C4-impace(R3, time, imp, 4, pred, m)
R4-rbind(C4, data[data[, time]==(1+4),])
C5-impace(R4, time, imp, 5, pred, m)
R5-rbind(C5, data[data[, time]==(1+5),])
C6-impace(R5, time, imp, 6, pred, m)
R6-rbind(C6, data[data[, time]==(1+6),])
C7-impace(R6, time, imp, 7, pred, m)
R7-rbind(C7, data[data[, time]==(1+7),])
C8-impace(R7, time, imp, 8, pred, m)
R8-rbind(C8, data[data[, time]==(1+8),])
C9-impace(R8, time, imp, 9, pred, m)
R9-rbind(C9, data[data[, time]==(1+9),])
C10-impace(R9, time, imp, 10, pred, m)
R10-rbind(C10, data[data[, time]==(1+10),])
C11-impace(R10, time, imp, 11, pred, m)
return(C11)
}
Pace-pace.imp(test, time=4, imp=2, pred, 10)

*
*Thanks,

*
*David
*
PR 1 PR 2 PR 3 PR 4 PR 5 PR 6 PR 7 PR 8 PR 9
694 1196 1 2 1 237 3 4 3 4
731 1225 NA 1 1 281 1 2 2 3
739 1228 0 2 1 261 2 2 1 1
758 1024 NA 1 1 462 1 2 1 1
766 1083 0 1 1 307 2 3 2 2
88 1067 NA 1 2 412 2 2 1 1
119 1090 NA 1 2 347 1 2 1 1
196 1132 0 2 2 319 3 2 1 1
222 1139 0 1 2 318 3 3 2 2
251 1153 0 2 2 329 2 2 2 2
358 1199 NA 2 2 201 1 2 1 1
397 1214 NA 1 2 290 1 2 1 1
458 1007 NA 2 2 317 1 2 2 3
479 1018 1 1 2 259 2 3 3 4
496 1022 0 1 2 410 1 1 1 1
528 1045 NA 1 2 304 1 2 1 1
571 1085 NA 1 2 308 1 2 2 3
593 1117 0 1 2 444 2 2 1 1
601 1119 0 2 2 344 3 2 1 1
644 1147 0 1 2 253 4 4 1 1
659 1167 0 1 2 224 2 2 1 1
680 1181 0 1 2 303 3 2 3 2
695 1196 NA 2 2 252 1 3 1 1
732 1225 NA 1 2 321 1 2 1 1
740 1228 0 2 2 348 2 2 1 1
759 1024 0 1 2 482 2 2 3 2
767 1083 NA 1 2 356 1 2 1 1
120 1090 0 1 3 446 4 2 2 2
197 1132 0 2 3 330 3 2 1 1
223 1139 0 1 3 332 2 4 3 3
252 1153 0 2 3 348 1 2 1 1
359 1199 NA 2 3 235 1 2 3 2
398 1214 0 1 3 332 1 2 1 1
459 1007 0 2 3 326 2 3 1 1
480 1018 0 1 3 272 2 2 3 3
497 1022 NA 1 3 431 1 1 1 1
529 1045 0 1 3 377 1 2 1 1
572 1085 0 1 3 326 2 2 1 1
602 1119 0 2 3 375 2 2 1 1
645 1147 0 1 3 303 1 2 1 1
660 1167 1 1 3 246 2 3 1 1
681 1181 NA 1 3 366 2 2 1 1
696 1196 0 2 3 274 3 2 1 1
741 1228 0 2 3 368 1 2 1 1
768 1083 0 1 3 375 1 2 2 2
198 1132 NA 2 4 422 1 2 1 1
224 1139 NA 1 4 345 1 2 1 1
253 1153 0 2 4 386 1 2 2 2
360 1199 NA 2 4 258 1 2 1 1
399 1214 0 1 4 348 1 2 1 1
460 1007 NA 2 4 335 1 3 2 4
481 1018 0 1 4 319 2 2 2 2
498 1022 0 1 4 467 1 2 1 1
530 1045 NA 1 4 500 2 2 2 2
573 1085 0 1 4 383 1 2 1 1
603 1119 0 2 4 457 2 2 1 1
646 1147 0 1 4 326 2 3 1 1
661 1167 0 1 4 255 1 3 1 1
697 1196 NA 2 4 288 1 2 1 1
769 1083 1 1 4 479 1 2 1 1
225 1139 NA 1 5 442 1 2 1 1
254 1153 0 2 5 406 2 2 1 1
361 1199 NA 2 5 280 1 2 1 1
400 1214 NA 1 5 357 1 2 1 1
461 1007 0 2 5 340 2 3 2 2
482 1018 0 1 5 326 1 2 1 1
574 1085 0 1 5 472 4 2 1 1
647 1147 0 1 5 387 2 3 1 1
662 1167 0 1 5 284 2 3 1 1
698 1196 0 2 5 296 2 2 1 1
362 1199 0 2 6 304 3 2 2 2
462 1007 1 2 6 396 2 3 3 2
483 1018 0 1 6 344 4 3 4 2
663 1167 0 1 6 296 2 2 1 1
699 1196 NA 2 6 311 1 2 1 1
363 1199 NA 2 7 334 1 2 1 1
484 1018 0 1 7 367 1 4 3 2
664 1167 0 1 7 314 2 2 1 1
700 1196 0 2 7 373 2 2 1 1
485 1018 0 1 8 386 2 2 1 1
665 1167 0 1 8 359 2 2 1 1
701 1196 NA 2 8 386 1 2 1 1
486 1018 0 1 9 411 2 2 1 1
666 1167 NA 1 9 401 1 2 1 1
487 1018 0 1 10 432 2 2 3 3
488 1018 0 1 11 500 2 2 1 1
__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] Error executing R CMD check --as-cran caused by missing Maintainer field

2013-08-02 Thread Stefano Costa
Hello,
while checking a small package I wrote
(http://cran.r-project.org/web/packages/tipom/) before submitting a new
version, I was blocked by an error in the checking CRAN incoming feasibility
section of R CMD check --as-cran, as pasted below:

steko@ganymede:~/code$ LC_ALL=C R CMD check --as-cran tipom
* using log directory '/home/steko/code/tipom.Rcheck'
* using R version 3.0.1 (2013-05-16)
* using platform: i486-pc-linux-gnu (32-bit)
* using session charset: ASCII
* checking for file 'tipom/DESCRIPTION' ... OK
* checking extension type ... Package
* this is package 'tipom' version '1.0.1'
* checking CRAN incoming feasibility ...Error in if (!all(m_m_1 == m_d_1)) { :
  missing value where TRUE/FALSE needed
Execution halted

The error occurs using R 3.0.1 on both Debian and Fedora (distribution
packages). I understand it is caused by some missing information in the
DESCRIPTION file. With some trial and error, following some clues found at
https://github.com/hadley/devtools/issues/209, I could figure out it was
missing the Maintainer field. However, in the Writing R extensions manual I
read that

 Fields ‘Author’ and ‘Maintainer’ can be auto-generated from ‘Authors@R’, and
may be omitted if the latter is provided

I am indeed using Authors@R so in the end I am slightly confused. What is the
correct way to deal with these fields? Thank you in advance

Stefano

--
Stefano Costa
http://www.iosa.it/ Open Archaeology

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] problem about mean function in ffbase package

2013-08-02 Thread Milan Bouchet-Valat

Le jeudi 01 août 2013 à 00:10 +0800, Chaos Chen a écrit :
 Hi all,
 
 I experienced some unmatched result using mean function in ffbase package
 and cannot figure out what's wrong.
 
 I have a simulated ff vector with 10 numbers inside and want to
 calculate its mean. But the results are quite different.
 
 With mean( ) function in ffbase package, the mean is 152.6858.
 But with R's mean( ) or adding sum from chunks directly, I got 667.5595
 
 any idea ? Thank you in advance!
Could you provide a fully reproducible example with a shorter vector (I
cannot create such a large vector on my box)? Use set.seed() so that
runif() gives exactly the same values.

From quick tests here, the problem does not appear.

Regards

 Bayes Chen
 
 # F1 is an ffdf , F1$X1 is an ff vector
  length(F1$X1)
 [1] 10
 
 # Use mean() function in ffbase package
  mean(F1$X1)
 [1] 152.6858
 
  X2 = F1$X1[]  #X2 is now an non-ff vector
  length(X2)
 [1] 10
  mean(X2) # R's original mean function for ordinary vectors
 [1] 667.5595
 
 # calculate sum and then mean by chunks
  chunks = chunk(F1$X1, by=500)
  sumx = 0
  for (i in chunks) {
 +   sumx = sumx + sum(F1$X1[i])
 + }
  sumx/length(F1$X1)
 [1] 667.5595
 
 --- below are some other trials
  X2 = F1$X1[1:100]
  mean(X2)
 [1] 59.43149
  mean(as.ff(X2))
 [1] 59.43149
 
  X2 = F1$X1[1:1]
  mean(X2)
 [1] 59.41978
  mean(as.ff(X2))
 [1] 59.42128
 
  X2 = F1$X1[1:5]
  mean(X2)
 [1] 60.53615
  mean(as.ff(X2))
 [1] 57.72168
 
  X2 = F1$X1[1:75000]
  mean(X2)
 [1] 59.37562
  mean(as.ff(X2))
 [1] 57.81179
 
  X2 = F1$X1[1:9]
  mean(X2)
 [1] 57.0867
  mean(as.ff(X2))
 [1] 57.44862
 
  X3 = F1$X1[9:10]
  mean(X3)
 [1] 6161.814
  mean(as.ff(X3))
 [1] 6161.797
   [[alternative HTML version deleted]]
 
 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] lme: object is not a matrix

2013-08-02 Thread zelfortin
Hi, 

make sure your data is in a data frame:

Data - data.frame(t,can2p,code)

just specify in which object you find those specific variables by using 
object$ before each one.

I hope this solve the problem. If not, post your script, it's really hard 
to work with only an error message!

Cheers

JM
__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] Removing null vector that is not in .csv file data

2013-08-02 Thread zelfortin
Hi,

you could try going in your spreadsheet and delete columns/rows that are 
seemingly empty (delete a lot a of them), then try again. Sometimes in your 
spreadsheet you enter values then you delete them. This leaves the cells 
active and when you save the csv file, it writes some commas with nothing 
between them to account for those active cells. If you delete the 
rows/columns with possible active cells (which you can't know because they 
are empty, hence the need to delete a lot of them) you remove them from the 
data and the csv file doesn't have to account for those empty cells.

I hope this helps for future files!

Cheers 

JM
__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] R Job taking longer in Linux than in Windows

2013-08-02 Thread Uwe Ligges



On 02.08.2013 22:14, alina andrei wrote:

Hello,

I am running an R job on a Windows 7 machine, having 4 cores and 16GB RAM , R 
3.0.1, and it takes 1.5 hours to complete.
I am running the same job in R on a Linux enviroment (Platform: 
x86_64-redhat-linux-gnu (64-bit))
with huge amounts of memory: 40 cores and .5 TB RAM., and the job takes 3h and 
15min
to complete (no other concurrent jobs).  The job uses the glmnet package to 
perform model selection on a simulated data set having 1 million records and 
150 variables.
My questions are:
1. Why R doesn't take advantage of the avaialble RAM?
2. Are there any changes that we can apply to the R configuration file in order 
to see superior performance? My expectations are that the Linux enviroment 
would performe a lot better when compared to the Windows enviroment.



Probably the problem has not been parallelized and uses only 1 core? And 
1 core on your Linux machine is probably slower than one core of your 
Windows machine? Or the different machines have different loads?


Uwe Ligges



Any help in sorting out these issues is much appreciated.

Thank you in advance!
Alina
[[alternative HTML version deleted]]



__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.



__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] How to download this data?

2013-08-02 Thread Ron Michael
Hi all,
 
I need to download the data from this web page:
 
https://www.theice.com/productguide/ProductSpec.shtml?specId=219#expiry
 
I used the function readHTMLTable() from package XML, however could not 
download that.
 
Can somebody help me how to get the data onto my R window?
 
Thank you.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] using rollapply to calculate a moving sum or running sum?

2013-08-02 Thread Anika Masters
This is not critical, but I am curious to learn. Are there any
suggestions for speeding up the process to calculate a moving row sum?
(Ideally from within R, as opposed to suing C, etc.)
Using rollapply on a matrix of 45,000 rows and 400 columns takes 83 minutes.

date()
mymatrix - matrix(data=1:45000, nrow=45000, ncol=400)
temp - t(rollapply(t(mymatrix), width=12, FUN=sum, by.column=T,
fill=NA, partial=FALSE, align=left))
date()

On Thu, Jun 27, 2013 at 2:41 PM, arun smartpink...@yahoo.com wrote:
 Hi,
 Try:
 library(zoo)

 rollapply(t(mymatrix),width=12,FUN=sum,by.column=T,fill=NA,partial=FALSE,align=left)
  # [,1] [,2] [,3] [,4] [,5]
  #[1,]  342  354  366  378  390
  #[2,]  402  414  426  438  450
  #[3,]  462  474  486  498  510
  #[4,]  522  534  546  558  570
  #[5,]  582  594  606  618  630
  #[6,]  642  654  666  678  690
  #[7,]  702  714  726  738  750
  #[8,]  762  774  786  798  810
  #[9,]  822  834  846  858  870
 #[10,]   NA   NA   NA   NA   NA
 #[11,]   NA   NA   NA   NA   NA
 #[12,]   NA   NA   NA   NA   NA
 #[13,]   NA   NA   NA   NA   NA
 #[14,]   NA   NA   NA   NA   NA
 #[15,]   NA   NA   NA   NA   NA
 #[16,]   NA   NA   NA   NA   NA
 #[17,]   NA   NA   NA   NA   NA
 #[18,]   NA   NA   NA   NA   NA
 #[19,]   NA   NA   NA   NA   NA
 #[20,]   NA   NA   NA   NA   NA
 A.K.



 - Original Message -
 From: Anika Masters anika.mast...@gmail.com
 To: R help r-help@r-project.org
 Cc:
 Sent: Thursday, June 27, 2013 3:00 PM
 Subject: [R] using rollapply to calculate a moving sum or running sum?

 #using rollapply to calculate a moving sum or running sum?

 #I am tryign to use rollapply to calcualte a moving sum? #I tried
 rollapply and get the error message
 #Error in seq.default(start.at, NROW(data), by = by) :
 #  wrong sign in 'by' argument

 #example:

 mymatrix - ( matrix(data=1:100, nrow=5, ncol=20) )
 mymatrix_cumsum  - ( matrix(data=NA, nrow=5, ncol=20) )
 w=12
 for(i in 1: (ncol(mymatrix)-w+1) ) {
 mymatrix_cumsum[ , i]  - apply(X=mymatrix[, i:(i+w-1)] , MARGIN=1,
 FUN=sum, na.rm=T)
 }

 #How might I use the rollapply function instead?

 rollapply(mymatrix, 12, sum)

 rollapply(data = mymatrix, width = 12, FUN=sum, by.column =T, fill =
 NA, partial = FALSE, align = left )

 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.


__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] using rollapply to calculate a moving sum or running sum?

2013-08-02 Thread William Dunlap
Try the filter() function.

Bill Dunlap
Spotfire, TIBCO Software
wdunlap tibco.com


 -Original Message-
 From: r-help-boun...@r-project.org [mailto:r-help-boun...@r-project.org] On 
 Behalf
 Of Anika Masters
 Sent: Friday, August 02, 2013 2:48 PM
 To: arun
 Cc: R help
 Subject: Re: [R] using rollapply to calculate a moving sum or running sum?
 
 This is not critical, but I am curious to learn. Are there any
 suggestions for speeding up the process to calculate a moving row sum?
 (Ideally from within R, as opposed to suing C, etc.)
 Using rollapply on a matrix of 45,000 rows and 400 columns takes 83 minutes.
 
 date()
 mymatrix - matrix(data=1:45000, nrow=45000, ncol=400)
 temp - t(rollapply(t(mymatrix), width=12, FUN=sum, by.column=T,
 fill=NA, partial=FALSE, align=left))
 date()
 
 On Thu, Jun 27, 2013 at 2:41 PM, arun smartpink...@yahoo.com wrote:
  Hi,
  Try:
  library(zoo)
 
 
 rollapply(t(mymatrix),width=12,FUN=sum,by.column=T,fill=NA,partial=FALSE,align=left
 )
   # [,1] [,2] [,3] [,4] [,5]
   #[1,]  342  354  366  378  390
   #[2,]  402  414  426  438  450
   #[3,]  462  474  486  498  510
   #[4,]  522  534  546  558  570
   #[5,]  582  594  606  618  630
   #[6,]  642  654  666  678  690
   #[7,]  702  714  726  738  750
   #[8,]  762  774  786  798  810
   #[9,]  822  834  846  858  870
  #[10,]   NA   NA   NA   NA   NA
  #[11,]   NA   NA   NA   NA   NA
  #[12,]   NA   NA   NA   NA   NA
  #[13,]   NA   NA   NA   NA   NA
  #[14,]   NA   NA   NA   NA   NA
  #[15,]   NA   NA   NA   NA   NA
  #[16,]   NA   NA   NA   NA   NA
  #[17,]   NA   NA   NA   NA   NA
  #[18,]   NA   NA   NA   NA   NA
  #[19,]   NA   NA   NA   NA   NA
  #[20,]   NA   NA   NA   NA   NA
  A.K.
 
 
 
  - Original Message -
  From: Anika Masters anika.mast...@gmail.com
  To: R help r-help@r-project.org
  Cc:
  Sent: Thursday, June 27, 2013 3:00 PM
  Subject: [R] using rollapply to calculate a moving sum or running sum?
 
  #using rollapply to calculate a moving sum or running sum?
 
  #I am tryign to use rollapply to calcualte a moving sum? #I tried
  rollapply and get the error message
  #Error in seq.default(start.at, NROW(data), by = by) :
  #  wrong sign in 'by' argument
 
  #example:
 
  mymatrix - ( matrix(data=1:100, nrow=5, ncol=20) )
  mymatrix_cumsum  - ( matrix(data=NA, nrow=5, ncol=20) )
  w=12
  for(i in 1: (ncol(mymatrix)-w+1) ) {
  mymatrix_cumsum[ , i]  - apply(X=mymatrix[, i:(i+w-1)] , MARGIN=1,
  FUN=sum, na.rm=T)
  }
 
  #How might I use the rollapply function instead?
 
  rollapply(mymatrix, 12, sum)
 
  rollapply(data = mymatrix, width = 12, FUN=sum, by.column =T, fill =
  NA, partial = FALSE, align = left )
 
  __
  R-help@r-project.org mailing list
  https://stat.ethz.ch/mailman/listinfo/r-help
  PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
  and provide commented, minimal, self-contained, reproducible code.
 
 
 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] How to download this data?

2013-08-02 Thread Duncan Temple Lang

That URL is an HTTPS (secure HTTP), not an HTTP.
The XML parser cannot retrieve the file.
Instead, use the RCurl package to get the file.

However, it is more complicated than that. If
you look at source of the HTML page in a browser,
you'll see a jsessionid and that is a session identifier.

The following retrieves the content of your URL and then
parses it and extracts the value of the jsessionid.
Then we create the full URL to the actual data page (which is actually in the 
HTML
content but in JavaScript code)

library(RCurl)
library(XML)

rawOrig = 
getURLContent(https://www.theice.com/productguide/ProductSpec.shtml?specId=219#expiry;)
rawDoc = htmlParse(rawOrig)
tmp = getNodeSet(rawDoc, //@href[contains(.,\040'jsessionid=')])[[1]]
jsession = gsub(.*jsessionid=([^?]+)?.*, \\1, tmp)

u = 
sprintf(https://www.theice.com/productguide/ProductSpec.shtml;jsessionid=%s?expiryDates=specId=219;,
 jsession)

doc = htmlParse(getURLContent(u))
tbls = readHTMLTable(doc)
data = tbls[[1]]

dim(data)


I did this quickly so it may not be the best way or completely robust, but 
hopefully
it gets the point across and does get the data.

  D.

On 8/2/13 2:42 PM, Ron Michael wrote:
 Hi all,
  
 I need to download the data from this web page:
  
 https://www.theice.com/productguide/ProductSpec.shtml?specId=219#expiry
  
 I used the function readHTMLTable() from package XML, however could not 
 download that.
  
 Can somebody help me how to get the data onto my R window?
  
 Thank you.
 
 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.


__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] (no subject)

2013-08-02 Thread Jim Lemon

On 08/02/2013 01:29 PM, Babu Guha wrote:

I have a comma delimited file with 62 fields of which some are comments.
There are about 1.5 million records/lines. Sme of the fields which has
comments and which i do not need have 40 characters. Of the 62 fields, I
will need at most 12 fields. What's best way to read in the fields I need.
If I read the entire file at once I will run out of memory. Could anyone
please suggest some solution?


Hi Babu,
Assuming that you know which fields you want, you could process the file 
line by line:


# say your file is mydata.csv and you want lines 1 to 12
mycon-file(mydata.csv,open=r)
# assume you have exactly 1.5 million lines
mydata-matrix(NA,nrow=150,ncol=12)
inputline-start
lineindex-1
while(nchar(inputline)) {
# read a line
 inputline-readLines(mycon,1)
 if(nchar(inputline)) {
  mydata[lineindex,]-
   unlist(sapply(strsplit(inputline,,),[,1:12))
  lineindex-lineindex+1
 }
}
close(mycon)

Jim

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] access the tcl history stream in tcltk

2013-08-02 Thread Christopher Marcum
Hello,

Does anyone have a clue about how dump tcl's history stream out to a file
from R pointers to tcl? This should be accessible via tcl(history,...)
but the stream seems to be always empty.

library(tcltk) #Load tcltk
tcl(history,nextid) #should be 1, and it is
a1-tclVar(1)
tclvalue(a1)-2
tcl(history,nextid) #Should be 3, but alas, it is 1.
tcl(history,info)#Sadly, tcl has no history
.Tcl(history nextid) #No joy here either.

Thanks, in advance, for any tips or clues.

Best,
Chris Marcum
-- 
Staff Scientist - Methodologist
Social Network Methods Section
National Human Genome Research Institute
National Institutes of Health

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] Internalization of help pages

2013-08-02 Thread Tomáš Greif
Is it possible to translate help files? I see there are some localization
options for GUI, but not for help. I think this would be really helpful for
users who don't have English as their primary language.

Because all the online help is created from text files, it should be not
that difficult to maintain different language versions (e.g. to mark them
as not valid when primary documentation in English changes).

Regards,

Tomas Greif

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] Internalization of help pages

2013-08-02 Thread Bert Gunter
Tomáš

1.  Your concern is valid, especially now that R has become so widely
used throughout the world. But language translation is hard.

2. Warning and error messages are short, and relatively trivial to translate.

3. There are tens of thousands of Help pages in thousands of packages,
most separately maintained.

I would guess that the best option would be to try to run the files
through a mature, open source translator, if such exists. However, I'm
ignorant of such matters. And my understanding is that at present,
even the best may not be adequate (Help files have to accurate in
exact detail).



Best,
Bert

On Fri, Aug 2, 2013 at 2:54 PM, Tomáš Greif
tomas.gr...@collectionspro.eu wrote:
 Is it possible to translate help files? I see there are some localization
 options for GUI, but not for help. I think this would be really helpful for
 users who don't have English as their primary language.

 Because all the online help is created from text files, it should be not
 that difficult to maintain different language versions (e.g. to mark them
 as not valid when primary documentation in English changes).

 Regards,

 Tomas Greif

 [[alternative HTML version deleted]]

 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.



-- 

Bert Gunter
Genentech Nonclinical Biostatistics

Internal Contact Info:
Phone: 467-7374
Website:
http://pharmadevelopment.roche.com/index/pdb/pdb-functional-groups/pdb-biostatistics/pdb-ncb-home.htm

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] could I remove or move points in locator() based on plot()?

2013-08-02 Thread Klot Lee
 Maybe I have to white a function for the purpose base on loacator. Thanks
for the reply.


2013/8/3 David Carlson dcarl...@tamu.edu

 You cannot move or edit them interactively, but you can save
 the locations of those points by using:

  a - locator(type=o)

 # e.g. click on three locations

  a
 $x
 [1] 0.8559376 1.1778126 1.2340626

 $y
 [1] 1.2256976 1.2501162 0.8402324

 You could now delete or modify the points and then use lines()
 or points() to add them to a new graph.

  plot(1, 1)
  lines(a, type=o)
  points(a, pch=16, col=red)

 -
 David L Carlson
 Associate Professor of Anthropology
 Texas AM University
 College Station, TX 77840-4352

 -Original Message-
 From: r-help-boun...@r-project.org
 [mailto:r-help-boun...@r-project.org] On Behalf Of Daniel
 Guetta
 Sent: Friday, August 2, 2013 12:23 PM
 To: David Winsemius
 Cc: R-help@r-project.org
 Subject: Re: [R] could I remove or move points in locator()
 based on plot()?

 Depending on the complexity of your graphic, you could also
 just re-draw
 the entire thing every time you want to make a change.

 Daniel


 On Fri, Aug 2, 2013 at 10:17 AM, David Winsemius
 dwinsem...@comcast.netwrote:

 
  On Aug 2, 2013, at 2:26 AM, Klot Lee wrote:
 
   Hi,
   The function locator() allows me to add points by mouse on
 function
  plot()
   I have draft. But the points can not be edit once I have
 made the click.
   How can I remove or just move the points I made on the
 draft?
 
  You cannot. The plotting model for base graphics is
 indelible ink. The
  best you could do would be to plot white on top of black.
 
  --
  David.
  
   I use the locator function like this:
  
   plot(1,1)
   locator(type=o)
  
  
   Thanks.
  
 [[alternative HTML version deleted]]
  
   __
   R-help@r-project.org mailing list
   https://stat.ethz.ch/mailman/listinfo/r-help
   PLEASE do read the posting guide
  http://www.R-project.org/posting-guide.html
   and provide commented, minimal, self-contained,
 reproducible code.
 
  David Winsemius
  Alameda, CA, USA
 
  __
  R-help@r-project.org mailing list
  https://stat.ethz.ch/mailman/listinfo/r-help
  PLEASE do read the posting guide
  http://www.R-project.org/posting-guide.html
  and provide commented, minimal, self-contained, reproducible
 code.
 

 [[alternative HTML version deleted]]

 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide
 http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible
 code.

 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide
 http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.




-- 
Stand Alone Complex

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] Singular fit error with R rlm function

2013-08-02 Thread Krishnanand Khambadkone
Has anyone used the rlm regression function.   I am using a factor variable
as part of this regression.  If the number of occurrences of any factor is
0 or 1 it complains with the error that

'x' is singular: singular fits are not implemented in 'rlm'

The droplevels function removes 0 occurrence factors, is there a way to
eliminate ones that have occurrence of 1.

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] could I remove or move points in locator() based on plot()?

2013-08-02 Thread Klot Lee
Thanks. I have tried put.points.demo, it helps, maybe some more modify then
it would be suitable for me. Thank you again.


2013/8/3 Greg Snow 538...@gmail.com

 The function put.points.demo in the TeachingDemos package allows you to
 add points, delete points, and move points on a scatterplot (and also
 computes some summaries based on the points).

 It actually uses locator behind the scenes and redraws the plot each
 time, but it gives the effect.  If that does not do what you want, you may
 be able to modify the function (pure R code) to  do what you need.


 On Fri, Aug 2, 2013 at 3:26 AM, Klot Lee fff200...@gmail.com wrote:

 Hi,
 The function locator() allows me to add points by mouse on function plot()
 I have draft. But the points can not be edit once I have made the click.
 How can I remove or just move the points I made on the draft?

 I use the locator function like this:

  plot(1,1)
  locator(type=o)


  Thanks.

 [[alternative HTML version deleted]]

 __
 R-help@r-project.org mailing list
 https://stat.ethz.ch/mailman/listinfo/r-help
 PLEASE do read the posting guide
 http://www.R-project.org/posting-guide.html
 and provide commented, minimal, self-contained, reproducible code.




 --
 Gregory (Greg) L. Snow Ph.D.
 538...@gmail.com




-- 
Stand Alone Complex

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.