Re: Ignore missing data
- To: mathgroup at smc.vnet.net
- Subject: [mg118987] Re: Ignore missing data
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Thu, 19 May 2011 07:40:36 -0400 (EDT)
his = {1, 2, 3, 4, 5, 6, 7, , 9};
simcs1 = RandomReal[10, Length[his]];
simcs2 = RandomReal[10, Length[his]];
simcsi = {a1, a2}.(Pick[#, his, _?NumericQ] & /@ {simcs1, simcs2});
er = Total[(Cases[his, _?NumericQ] - simcsi)^2];
Minimize[{er, 0 <= a1 <= 1 && 0 <= a2 <= 1 && a1 + a2 == 1}, {a1, a2}]
{78.9769, {a1 -> 0.444601, a2 -> 0.555399}}
Bob Hanlon
---- dim <dimemples at gmail.com> wrote:
=============
Hello everybody!
I would like to know how to ignore missing data and to be more specific I'll give an example.
his = {1,2,3,4,5,6,7,,9};
simcs1 = RandomReal[10, 9];
simcs2 = RandomReal[10, 9];
simcsi = a1*simcs1 + a2*simcs2;
(his - simcsi)^2;
er = Plus @@ %
Minimize[{er, 0 <= a1 <= 1 && 0 <= a2 <= 1 && a1 + a2== 1}, {a1, a2}]
It doesn't work, since the 8th value of "his" is missing. Do you know how i could make Mathematica ignore also the corresponding values of simcs1 and simcs2? Namely, in my example how to ignore the 8th value of simcs1 and simcs2.
Please note that i don't want to delete the missing data, neither to make them equal to 0.
Thank you in advance!