That’s what I was wanting was nice output, I suppose I framed my query wrong, 
but this is what I wanted! Thank you.

Joe King
206-913-2912
[email protected]
"Never throughout history has a man who lived a life of ease left a name worth 
remembering." --Theodore Roosevelt



-----Original Message-----
From: Joshua Wiley [mailto:[email protected]] 
Sent: Friday, October 08, 2010 7:17 PM
To: Joe P King
Cc: [email protected]
Subject: Re: [R] saving object function

Hi Joe,

There is an important distinction between working with data and presenting 
data.  You do not want to change or get rid of the missing values in the actual 
data.  Believe it or not, this buys you something important.  Since appearance 
only matters for presentation, you can fudge what the data is, and it is fine 
if it is character data _for printing_.  Here is one possibility where I define 
a custom printing function (uninventively, myprinter() ):

# Some data
dat <- matrix(c(1:8, NA), ncol = 3)

# Define a function that removes row and column names, changes NA values to ""
# and prints the matrix without quotes
myprinter <- function(x) {
  dat <- x
  dimnames(dat) <- list(rep("", nrow(x)), rep("", ncol(x)))
  dat[is.na(dat)] <- ""
  noquote(format(dat, justify="right"))
}

myprinter(dat)

Ultimately your original data is unchanged, but you get some nice output.

HTH,

Josh

On Fri, Oct 8, 2010 at 6:42 PM, Joe P King <[email protected]> wrote:
> I did what you said and it worked perfectly, but I have tried to save some of 
> my objects using paste because I want to limit the number of significant 
> digits and one matrix has some empty spaces I use NA in, and I want those 
> left blank, but when I paste into an object it doesn’t hold that formatting, 
> any suggestions? How can I have a matrix that isn’t full to have empty 
> spaces? If I just tell it " ", it turns the entire matrix into characters.
>
> Joe King
> 206-913-2912
> [email protected]
> "Never throughout history has a man who lived a life of ease left a 
> name worth remembering." --Theodore Roosevelt
>
>
>
> -----Original Message-----
> From: Joshua Wiley [mailto:[email protected]]
> Sent: Thursday, October 07, 2010 11:43 PM
> To: Joe P King
> Cc: [email protected]
> Subject: Re: [R] saving object function
>
> Hi Joe,
>
> You can just put the results into a named list, for example:
>
> functest<-function(x){
>  a <- x + 1
>  b <- x + 2
>  c <- x + 3
>  results <- list("a" = a, "b" = b, "c" = c)
>  return(results)
> }
>
> functest(1)$a
>
> It is important to name the list or you would have to refer to it as:
> functest(1)[[1]]  for the first element and so on.
>
> HTH,
>
> Josh
>
> On Thu, Oct 7, 2010 at 11:30 PM, Joe P King <[email protected]> wrote:
>> Ok so if I have a function:
>>
>>
>>
>> functest<-function(x){
>>
>>            a<-x+1
>>
>>            b<-x+2
>>
>>            c<-x+3
>>
>> paste(a)
>>
>> paste(b)
>>
>> paste(c)
>>
>> }
>>
>>
>>
>> Now I know I can do cat(), or return() on one of them but if I was to 
>> run the function with any number, how could I create objects to save 
>> so I could do, I am wondering if I have more than one object within my 
>> function.
>>
>>
>>
>> functest$a and get the result. I hope this is clear.
>>
>>
>>
>> -------------------------------------------
>>
>> Joe King, M.A.
>>
>> Ph.D. Student
>>
>> University of Washington - Seattle
>>
>> 206-913-2912
>>
>>  <mailto:[email protected]> [email protected]
>>
>> -------------------------------------------
>>
>> "Never throughout history has a man who lived a life of ease left a 
>> name worth remembering." --Theodore Roosevelt
>>
>>
>>
>>
>>        [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> [email protected] 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.
>>
>
>
>
> --
> Joshua Wiley
> Ph.D. Student, Health Psychology
> University of California, Los Angeles
> http://www.joshuawiley.com/
>
> ______________________________________________
> [email protected] 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.
>



--
Joshua Wiley
Ph.D. Student, Health Psychology
University of California, Los Angeles
http://www.joshuawiley.com/

______________________________________________
[email protected] 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.

Reply via email to