r - How do I calculate a percent change of a zoo object using sapply? -

-

i have list of zoo objects. core data adjusted close of several stock symbols, monthly data. each list object separate time series each ticker. i'd calculate monthly change each month, in each object. if helps, here's gets me desired calculation:

path = 'c:/sectorrotationsymblist072013.csv' symbs = read.csv(path, header = false, stringsasfactors = false) symbs = symbs[, 1] importdata = vector('list', length(symbs))  #get monthly pricing data. (sidx in 1:length(symbs)){     #import data each symbol list.     importdata[[sidx]] = get.hist.quote(instrument= symbs[sidx],         start="2000-01-01", end="2013-07-15", quote="adjclose",         provider="yahoo", origin="1970-01-01",         compression="m", retclass="zoo") }  names(importdata) = symbs

i can month on month change each object using sapply follows:

monthlygainslosses = sapply(importdata, diff)

i want relative change, though (%). i've tried every variation can think of on simple calculation, including:

monthlygainslosses = sapply(importdata, diff / importdata) monthlygainslosses = sapply(importdata, diff / coredata(importdata))

none of work. latter (which seems logical me) error:

non- numeric argument binary operator. can help?

sapply expects function second argument , diff / coredate(importdata) not function in r expression.

you can supply lambda correct it.

monthlygainslosses = sapply(importdata, function(x) diff(x) / (x))

or if want avoid lambda, in 2 steps.

perc <- function(x) diff(x) / x monthlygainslosses = sapply(importdata, perc)

Comments

Post a Comment

Popular posts from this blog

html5 - What is breaking my page when printing? -

-
Image
i have questioner , don't know why when printing it's creating break before first question. live demo (link) i able resolve issue removing fieldset container had wrapped in.. having fieldset element causing of fields grouped together, , since not fit on first page, being pushed second page. removing fieldset element, able firefox print first 2 questions on page 1 identically chrome. it seems not new problem firefox , fieldset not playing nice found old bugzilla ticket 2008 has persisted , still being commented on in 2014 (link) if retaining fieldset important, found solution else came here (link) <script type='text/javascript'> $(window).bind('beforeprint', function(){ $('fieldset').each( function(item) { $(this).replacewith($('<div class="fieldset">' + this.innerhtml + '</div>')); } ) }); $(window).bind(
Read more

c# - must be a non-abstract type with a public parameterless constructor in redis -

-
when save object, got below error must non-abstract type public parameterless constructor in order use parameter 't' in generic type or method 'servicestack.redis.redisclient.store<t>(t) redisclass.getinstnace().store(msg); // error here redisclass.getinstnace().save(); as third party's class, can not edit how save object? could create wrapper around third party object call constructor, store wrapper? e.g. public class mywrapper { public thirdpartyobject thirdpartyinstance { get; set; } public mywrapper() { thirdpartyinstance = new thirdpartyobject("constructors"); } }
Read more

ajax - PHP/JSON Login script (Twitter style) not setting sessions -

-
i'm having trouble getting twitter style login work properly, reason gets stuck at session_register("useremail"); session_register("userpass"); and doesn't redirect after it. if enter wrong account data, works , appropriate error message pops up. this full code: <?php if(empty($_post['email']) || empty($_post['password'])) { die(msg(0,"all fields required")); } if(!(preg_match("/^[\.a-z0-9_\-\+]+[@][a-z0-9_\-]+([.][a-z0-9_\-]+)+[a-z]{1,4}$/", $_post['email']))) die(msg(0,"you haven't provided valid e-mail")); $host="localhost"; $username="root"; $password="x"; $db_name="x"; $tbl_name="x"; mysql_connect("$host", "$username", "$password")or die("cannot connect"); mysql_select_db("$db_name")or die("cannot select db"); $useremail=$_post['email']; $userpass=
Read more