Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Date based calculations

  • To: mathgroup at smc.vnet.net
  • Subject: [mg119806] Re: Date based calculations
  • From: Michael Stern <nycstern at gmail.com>
  • Date: Thu, 23 Jun 2011 07:25:32 -0400 (EDT)
  • References: <201106220744.DAA06132@smc.vnet.net>

priyanData = {{"03-May-11", -0.0400698, -0.00671613, -0.0333613}, \
{"04-May-11", 0, -0.00355872, -0.0169521}, {"05-May-11", 0.0453721,
    0.0128572, -0.0248498}, {"06-May-11", 0.0052084, -0.00317346,
    0.00290203}, {"09-May-11", -0.0155441, 0.0254686,
    0.0597703}, {"10-May-11",
    0.0315789, -0.0051742, -0.0179181}, {"11-May-11", -0.0323129,
    0.00450769, -0.0346655}, {"12-May-11", 0,
    0.0200207, -0.0200701}, {"13-May-11", -0.00702991, 0,
    0.0400441}, {"16-May-11", 0, 0.00203048, -0.0121865}, {"19-May-11",
    0.0318584, 0.00979397, 0.0229752}, {"20-May-11", 0.00343055, -0.00401342,
    0.000611685}, {"23-May-11", -0.025641,
    0.0020148, -0.0259388}, {"24-May-11", -0.00526314, 0.00435663,
    0.00376576}, {"25-May-11", 0.0194003,
    0.00133465, -0.0125949}, {"26-May-11", -0.0190311,
    0.00533158, -0.00958927}, {"27-May-11", 0.0282187, -0.007955,
    0.0026488}, {"30-May-11", -0.0291595,
    0.00233883, -0.00291514}, {"31-May-11", 0.0212014, 0, -0.0383737}};

averageReturns[data_, date1_, date2_] :=
 Drop[Mean[
   Select[data,
    AbsoluteTime[date1] <= AbsoluteTime[#[[1]]] <= AbsoluteTime[date2] &]], 1]

covarianceReturns[data_, date1_, date2_] :=
 Covariance[Map[Drop[#, 1] &,
  Select[data,
   AbsoluteTime[date1] <= AbsoluteTime[#[[1]]] <= AbsoluteTime[date2] &]]]

averageReturns[priyanData, "May 9, 2011", "May 19, 2011"]

covarianceReturns[priyanData, "May 9, 2011", "May 19, 2011"]



My results on the covariance matrix don't match your sample, but I'm pretty sure my code is good.



On Jun 22, 2011, at 3:44 AM, Priyan Fernando wrote:

>
> I have the following time series data (19 rows by 4 columns):
>
> {{"03-May-11", -0.0400698, -0.00671613, -0.0333613}, {"04-May-11",
>  0, -0.00355872, -0.0169521}, {"05-May-11", 0.0453721,
>  0.0128572, -0.0248498}, {"06-May-11", 0.0052084, -0.00317346,
>  0.00290203}, {"09-May-11", -0.0155441, 0.0254686,
>  0.0597703}, {"10-May-11",
>  0.0315789, -0.0051742, -0.0179181}, {"11-May-11", -0.0323129,
>  0.00450769, -0.0346655}, {"12-May-11", 0,
>  0.0200207, -0.0200701}, {"13-May-11", -0.00702991, 0,
>  0.0400441}, {"16-May-11", 0, 0.00203048, -0.0121865}, {"19-May-11",
>  0.0318584, 0.00979397, 0.0229752}, {"20-May-11",
>  0.00343055, -0.00401342, 0.000611685}, {"23-May-11", -0.025641,
>  0.0020148, -0.0259388}, {"24-May-11", -0.00526314, 0.00435663,
>  0.00376576}, {"25-May-11", 0.0194003,
>  0.00133465, -0.0125949}, {"26-May-11", -0.0190311,
>  0.00533158, -0.00958927}, {"27-May-11", 0.0282187, -0.007955,
>  0.0026488}, {"30-May-11", -0.0291595,
>  0.00233883, -0.00291514}, {"31-May-11", 0.0212014, 0, -0.0383737}}
>
>
> The 1st Column is a date while Columns 2,3,4 represent the returns of stocks
> A,B and C respectively. Could you please help me extract information based
> on the date. E.g. date1 and date2 are variables inputted by the user.
>
> Example 1: Average returns of stocks A,B,C between 9-May-11 and 19-May-11
> (dates inclusive) are:
> 0.001221494    0.008092462    0.005421325
>
> Example 2: Variance/Covariance Matrix between of stocks A,B,C between
> 9-May-11 and 19-May-11 (dates inclusive) is
> 0.0004767002    -0.0000660161    0.0000041896
> -0.0000660161    0.0001054570    0.0001357245
> 0.0000041896    0.0001357245    0.0010817457
>
> This is easy to do in Excel, but I'm finding it hard to locate the correct
> functions in Mathematica. Any suggestions are much appreciated.
>
> Thank you.
>
>



  • Prev by Date: Re: Date based calculations
  • Next by Date: Re: Again : Is there a BNF for Mathematica?
  • Previous by thread: Re: Date based calculations
  • Next by thread: Re: Date based calculations