I want to create DateListPlot that compares prices of cellphone manufacturers' stocks over the last 13 years. Stocks include Nokia, Blackberry, Samsung, LG, Motorola, and Sony-Ericsson. The problem is Samsung's and LG's stocks are in Korean Wons. I wrote a function that applies a UnitConvert to the price, it works with the a singular example, and small batches of data, but it refuses to run through the entire dataset. What could be the issue? Some errors in data? Should I clean it? Code:
sams1 = FinancialData["KS:005930", {2006, 1, 1}];
Convert[n_] := UnitConvert[Quantity[n, "KoreanWon"], "USDollars"]
ApplyFormat[list_] := {list[[1]], Convert[list[[2]]]}
ApplyFormat[sams1[[1]]]
ApplyFormat /@ sams1 (* This one refuses to work *)
Cases[sams1, {{a__}, b_} -> {{a}, Convert@b}]
$\endgroup$ – Jerry Jan 30 at 17:27