Message-ID: <58d8e5c5-3cc6-40ce-8167-865838ca4e43@email.android.com>
Date: 2012-10-10T01:23:44Z
From: Jeff Newmiller
Subject: How to write out this regression equation in R?
In-Reply-To: <A4E5A0B016B8CB41A485FC629B633CED47A5B6F3AF@GOLD.corp.lgc-group.com>
But sprintf is itself vectorized. If you give it vectors, it returns vectors. So you could obtain that apply-result more efficiently by passing a bunch of column vectors of data. There happens to be a convenient object called a data frame that holds a bunch of similar-length vectors.
DF <- data.frame( m=c(1,2), b=c(-3,4) )
result <- sprintf( "y=(%d)*x+(%d)", DF$m, DF$b)
cat(paste(result, collapse="\n"))
---------------------------------------------------------------------------
Jeff Newmiller The ..... ..... Go Live...
DCN:<jdnewmil at dcn.davis.ca.us> Basics: ##.#. ##.#. Live Go...
Live: OO#.. Dead: OO#.. Playing
Research Engineer (Solar/Batteries O.O#. #.O#. with
/Software/Embedded Controllers) .OO#. .OO#. rocks...1k
---------------------------------------------------------------------------
Sent from my phone. Please excuse my brevity.
S Ellison <S.Ellison at LGCGroup.com> wrote:
>
>
>> How to make R write out:
>>
>> Balance = 2 + 3 * IntGDP + 5 * IntUnemployment + 0.3 * d1
>>
>> from the table below:
>>
>> Balance Intercept IntGDP GDPNum IntUnemployment
>> IntInflation d1 d2 d3
>> 30000 2 3 5
>> 0.3 0 0
>
>
>Maybe ?sprintf would help?
>
>And if you wrap that in a function that takes a vector, using apply()
>on the table would give you one string per row,
>
>*******************************************************************
>This email and any attachments are confidential. Any
>use...{{dropped:8}}
>
>______________________________________________
>R-help at 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.