Since you are new, let us show you how Trendy works.

Close-button

Price of a dozen roses

  • Created by: Matt Tearle
  • Last ran: about 20 hours ago.
  • Auto-run in: about 4 hours.
  • Created on: 16 Feb 2012

885

data points

Description:

Average price of roses, taken from a few different online florists.

Recently Collected Data (last 5 of 885) Show All Data

Time Recorded (time1443) Data (data1443)
28 Dec 2014 09:15:12 [53.73]
27 Dec 2014 09:15:16 [53.73]
26 Dec 2014 09:15:13 [53.73]
25 Dec 2014 09:15:13 [53.73]
24 Dec 2014 09:15:16 [54.98]
dstring = '\s*\$(\d+\.*\d*)';
price = NaN(4,1);

url = 'http://products.proflowers.com/roses/One-Dozen-Red-Roses-4537';
x = regexp(regexprep(regexprep(urlread(url),'<.*?>',''),'\s+',' '),['One Dozen Red Roses',dstring],'tokens');
if ~isempty(x)
    price(1) = str2double(x{1});
end

url = 'http://ww12.1800flowers.com/product.do?baseCode=1120&dataset=10590&dataset=12219&cm_cid=d10590';
x = regexp(regexprep(regexprep(urlread(url),'<.*?>',''),'\s+',' '),['12 Stem Red Roses (',dstring],'tokens');
if ~isempty(x)
    price(2) = str2double(x{1});
end

url = 'http://www.teleflora.com/flowers/bouquet/telefloras-rose-classique--dozen-red-roses-372754p.asp';
x = regexp(regexprep(regexprep(urlread(url),'<.*?>',''),'\s+',' '),['Standard',dstring],'tokens');
if ~isempty(x)
    price(3) = str2double(x{1});
end

url = 'http://www.ftdfloristsonline.com/flowers/product/1-dozen-roses/display';
x = regexp(regexprep(regexprep(urlread(url),'<.*?>',''),'\s+',' '),['1 Dozen Roses[^$]*?US',dstring],'tokens');
if ~isempty(x)
price(4) = str2double(x{1});
end

price(~isfinite(price)) = [];

updatetrend(mean(price));
Tags:

Add Tags


0 comments