From pinard at iro.umontreal.ca  Sun Jul 16 03:34:40 2006
From: pinard at iro.umontreal.ca (=?iso-8859-1?Q?Fran=E7ois?= Pinard)
Date: Sat, 15 Jul 2006 21:34:40 -0400
Subject: [Rd] Matrices given to pt? [was: [R] for loops and counters]
Message-ID: <20060716013440.GA7167@phenix.progiciels-bpi.ca>

Hi, people.

I was a bit intrigued by the message quoted below.  Indeed, if pt() is 
given a matrix, it returns a matrix.  Should this feature be documented?
?pt speaks about "a vector of quantiles", and says nothing about the 
type of what it returns.

The same might presumably apply to other distribution-related functions.

----- Forwarded message from Martyn Plummer <plummer at iarc.fr> -----

From: Martyn Plummer <plummer at iarc.fr>
Date: Thu Apr 10 10:07:01 2003
Subject: [R] for loops and counters

Peter, 

You didn't say what goes wrong, but you mind find this version more useful

tstat <- (matrix(means, k,k, byrow=TRUE) - matrix(means, k,k,byrow=FALSE))/rms
pvalue <- 2*(1-pt(abs(tstat), df=df))
pvalue[upper.tri(pvalue)]

S is designed to allow you to work with "whole objects", which means that
for loops can (and should) be avoided.

Martyn

On 05-Oct-99 Peter B. Mandeville wrote:
> I am trying to assign values to a vector (pvalue). Similar code works in C
> but not in R. What am I doing wrong?

>       r <- pvalue <- 0
>       for(i in (1:(k-1))){
>               for(j in (i+1):k){
>                       r <- r+1
>                       tstat <- (means[i]-means[j])/rms
>                       pvalue[r] <- 2*(1-pt(abs(tstat),df))
>               }
>       }
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

----- End forwarded message -----

-- 
Fran?ois Pinard   http://pinard.progiciels-bpi.ca



[Rd] Matrices given to pt? [was: [R] for loops and counters]
=?iso-8859-1?Q?Fran=E7ois?= Pinard