Hello,
The "apply" function seems to behave oddly with my code below
NB : H1 is a data frame. (data in the attached file.)
# the first lines are:
1 02/01/2008 0.000000 0 0 0.000000 0
2 03/01/2008 0.000000 0 0 0.000000 0
3 04/01/2008 0.000000 0 0 0.000000 0
4 07/01/2008 0.000000 0 0 0.000000 0
5 08/01/2008 0.000000 0 0 0.000000 0
6 09/01/2008 0.000000 0 0 0.000000 0
7 10/01/2008 0.000000 0 0 0.000000 0
8 11/01/2008 1.010391 0 0 1.102169 0
...
The aim of the code is to extract those lines for which there is a strictly
positive value in the second column AND in one of the others:
reper=function(x){as.numeric(x[2]>1 & any(x[3:length(x)]>1))}
TAB1= H1[which(apply(H1,1,reper)>0),]
Strangely, this is OK for all the lines, except for the last one. In fact, in
H1, the last 2 lines are:
258 29/12/2008 1.476535 1.187615 0 0.000000 0
259 30/12/2008 0.000000 1.147888 0 0.000000 0
Obviously, line 258 should be the last line of TAB1, but it is not the case (it
does not appear at all) and I really don't understand why. This is all the
more strange since applying the function "reper" only to this line 258 gives a
"1" as expected...
Can someone help ?
Thanks,
Henri
"do[, 1]" "V3" "V5" "V7" "V13" "V31"
"1" "02/01/2008" 0 0 0 0 0
"2" "03/01/2008" 0 0 0 0 0
"3" "04/01/2008" 0 0 0 0 0
"4" "07/01/2008" 0 0 0 0 0
"5" "08/01/2008" 0 0 0 0 0
"6" "09/01/2008" 0 0 0 0 0
"7" "10/01/2008" 0 0 0 0 0
"8" "11/01/2008" 1.01039075593190 0 0 1.10216867469880 0
"9" "14/01/2008" 0 0 0 0 0
"10" "15/01/2008" 0 0 0 0 0
"11" "16/01/2008" 0 0 0 0 0
"12" "17/01/2008" 0 0 0 0 0
"13" "18/01/2008" 0 0 0 0 0
"14" "21/01/2008" 0 1.91598986420635 0 0 0
"15" "22/01/2008" 0 0 0 1.67943418163028 0
"16" "23/01/2008" 0 1.72752274788613 0 0 0
"17" "24/01/2008" 0 0 0 0 0
"18" "25/01/2008" 0 0 0 0 0
"19" "28/01/2008" 0 1.58121398689715 0 0 0
"20" "29/01/2008" 0 0 0 0 0
"21" "30/01/2008" 0 0 0 0 0
"22" "31/01/2008" 0 0 0 0 0
"23" "01/02/2008" 0 0 0 0 0
"24" "04/02/2008" 0 0 0 0 0
"25" "05/02/2008" 0 0 0 0 0
"26" "06/02/2008" 0 0 0 0 0
"27" "07/02/2008" 0 0 0 0 0
"28" "08/02/2008" 2.14000732355798 1.69766978689504 0 1.75685318945262 0
"29" "11/02/2008" 0 0 0 0 0
"30" "12/02/2008" 0 0 0 0 0
"31" "13/02/2008" 0 0 0 0 0
"32" "14/02/2008" 1.46825855993268 1.01452104942038 0 1.36151226158038 0
"33" "15/02/2008" 0 0 0 0 0
"34" "18/02/2008" 1.23828782287823 1.85457398206402 0 1.01737020551797 0
"35" "19/02/2008" 0 0 0 0 0
"36" "20/02/2008" 0 0 0 1.16595050312755 0
"37" "21/02/2008" 0 0 0 0 0
"38" "22/02/2008" 0 0 0 0 0
"39" "25/02/2008" 0 0 0 0 0
"40" "26/02/2008" 0 0 0 0 0
"41" "27/02/2008" 0 0 0 1.14892847454562 0
"42" "28/02/2008" 0 0 0 0 0
"43" "29/02/2008" 0 0 0 1.08156034746327 0
"44" "03/03/2008" 0 0 0 0 0
"45" "04/03/2008" 0 0 0 0 0
"46" "05/03/2008" 0 0 0 0 0
"47" "06/03/2008" 0 0 0 0 0
"48" "07/03/2008" 0 0 0 0 0
"49" "10/03/2008" 0 0 0 0 0
"50" "11/03/2008" 0 0 0 0 0
"51" "12/03/2008" 0 0 0 0 0
"52" "13/03/2008" 0 0 0 0 0
"53" "14/03/2008" 0 0 0 0 0
"54" "17/03/2008" 4.35512801471512 5.36991654793405 0 6.16519844357977 0
"55" "18/03/2008" 2.79350502621745 2.11529748269272 0 3.52300391995049 0
"56" "19/03/2008" 2.71891047108730 2.44490502825019 0 2.88516037009928 0
"57" "20/03/2008" 0 0 0 0 0
"58" "21/03/2008" 0 0 0 0 0
"59" "24/03/2008" 5.54031680331131 5.79959578768216 0 6.7272138683414 0
"60" "25/03/2008" 0 0 0 0 0
"61" "26/03/2008" 0 0 0 0 0
"62" "27/03/2008" 0 0 0 0 0
"63" "28/03/2008" 0 0 0 0 0
"64" "31/03/2008" 1.36298613237674 1.93688809995221 0 1.62820120724346 0
"65" "01/04/2008" 0 0 0 0 0
"66" "02/04/2008" 0 1.50365203568443 0 1.41661422278162 0
"67" "03/04/2008" 0 0 0 0 0
"68" "04/04/2008" 0 0 0 0 0
"69" "07/04/2008" 0 0 0 0 0
"70" "08/04/2008" 0 0 0 0 0
"71" "09/04/2008" 0 0 0 0 0
"72" "10/04/2008" 0 0 0 0 0
"73" "11/04/2008" 0 0 0 0 0
"74" "14/04/2008" 0 0 0 0 0
"75" "15/04/2008" 0 1.12993898169451 0 0 0
"76" "16/04/2008" 0 1.64919239565466 0 0 0
"77" "17/04/2008" 1.85794201323402 2.32701547844896 0 2.13671788020485 0
"78" "18/04/2008" 0 0 0 0 0
"79" "21/04/2008" 0 0 0 0 0
"80" "22/04/2008" 0 0 0 0 0
"81" "23/04/2008" 0 0 0 0 0
"82" "24/04/2008" 0 0 0 0 0
"83" "25/04/2008" 0 0 0 0 0
"84" "28/04/2008" 0 0 0 0 0
"85" "29/04/2008" 1.41455686561253 1.23468581006293 0 1.41084889962815 0
"86" "30/04/2008" 0 0 0 0 0
"87" "01/05/2008" 0 1.5699823478825 0 0 0
"88" "02/05/2008" 0 0 0 0 0
"89" "05/05/2008" 0 0 0 0 0
"90" "06/05/2008" 0 0 0 0 0
"91" "07/05/2008" 0 0 0 0 0
"92" "08/05/2008" 0 0 0 0 0
"93" "09/05/2008" 0 0 0 0 0
"94" "12/05/2008" 0 0 0 0 0
"95" "13/05/2008" 0 0 0 0 0
"96" "14/05/2008" 0 0 0 0 0
"97" "15/05/2008" 0 0 0 0 0
"98" "16/05/2008" 0 0 0 0 0
"99" "19/05/2008" 0 0 0 0 0
"100" "20/05/2008" 0 0 0 0 0
"101" "21/05/2008" 0 0 0 0 0
"102" "22/05/2008" 0 0 0 0 0
"103" "23/05/2008" 0 0 0 0 0
"104" "26/05/2008" 0 0 0 0 0
"105" "27/05/2008" 0 0 0 0 0
"106" "28/05/2008" 0 0 0 0 0
"107" "29/05/2008" 0 0 0 0 0
"108" "30/05/2008" 0 0 0 0 0
"109" "02/06/2008" 0 0 0 0 0
"110" "03/06/2008" 0 0 0 0 0
"111" "04/06/2008" 0 0 0 0 0
"112" "05/06/2008" 0 0 0 0 0
"113" "06/06/2008" 0 0 0 0 0
"114" "09/06/2008" 0 0 0 0 0
"115" "10/06/2008" 0 0 0 0 0
"116" "11/06/2008" 0 0 0 0 0
"117" "12/06/2008" 0 0 0 0 0
"118" "13/06/2008" 0 0 0 0 0
"119" "16/06/2008" 0 0 0 0 0
"120" "17/06/2008" 0 0 0 0 0
"121" "18/06/2008" 0 0 0 0 0
"122" "19/06/2008" 0 0 0 0 0
"123" "20/06/2008" 0 0 0 0 0
"124" "23/06/2008" 0 0 0 0 0
"125" "24/06/2008" 0 0 0 0 0
"126" "25/06/2008" 0 0 0 0 0
"127" "26/06/2008" 0 0 0 0 0
"128" "27/06/2008" 0 0 0 0 0
"129" "30/06/2008" 0 0 0 0 0
"130" "01/07/2008" 0 0 0 0 0
"131" "02/07/2008" 0 0 0 0 0
"132" "03/07/2008" 0 0 0 0 0
"133" "04/07/2008" 0 0 0 0 0
"134" "07/07/2008" 0 0 0 1.04907302235142 0
"135" "08/07/2008" 1.11440769221024 11.1277272727273 0 1.48817888893202 0
"136" "09/07/2008" 0 0 0 0 0
"137" "10/07/2008" 0 0 0 0 0
"138" "11/07/2008" 0 0 0 0 0
"139" "14/07/2008" 0 0 0 0 0
"140" "15/07/2008" 0 0 0 0 0
"141" "16/07/2008" 0 0 0 0 0
"142" "17/07/2008" 0 0 0 0 0
"143" "18/07/2008" 0 1.38753097167347 0 0 0
"144" "21/07/2008" 0 0 0 0 0
"145" "22/07/2008" 0 1.52124241955711 0 0 0
"146" "23/07/2008" 0 0 0 0 0
"147" "24/07/2008" 0 0 0 0 0
"148" "25/07/2008" 0 0 0 0 0
"149" "28/07/2008" 2.15339828436129 2.37592291327744 0 2.11167361524717 0
"150" "29/07/2008" 0 0 0 0 0
"151" "30/07/2008" 0 0 0 0 0
"152" "31/07/2008" 0 0 0 0 0
"153" "01/08/2008" 0 0 0 0 0
"154" "04/08/2008" 1.39382922435200 1.21301610661434 0 1.37679102591520 0
"155" "05/08/2008" 0 0 0 0 0
"156" "06/08/2008" 0 0 0 0 0
"157" "07/08/2008" 0 0 0 0 0
"158" "08/08/2008" 2.21711549970078 1.95034403842390 0 1.65676567656766 0
"159" "11/08/2008" 0 0 0 0 0
"160" "12/08/2008" 0 0 0 0 0
"161" "13/08/2008" 0 0 0 0 0
"162" "14/08/2008" 0 0 0 0 0
"163" "15/08/2008" 0 0 0 0 0
"164" "18/08/2008" 0 0 0 0 0
"165" "19/08/2008" 0 0 0 0 0
"166" "20/08/2008" 0 0 0 0 0
"167" "21/08/2008" 0 2.12149832189297 0 0 0
"168" "22/08/2008" 0 0 0 0 0
"169" "25/08/2008" 0 0 0 1.08300134172773 0
"170" "26/08/2008" 0 0 0 0 0
"171" "27/08/2008" 0 1.18379229704577 0 0 0
"172" "28/08/2008" 0 0 0 0 0
"173" "29/08/2008" 0 0 0 1.25435540069686 0
"174" "01/09/2008" 0 1.12897268927981 0 1.49790555296982 0
"175" "02/09/2008" 0 0 0 0 0
"176" "03/09/2008" 0 0 0 0 0
"177" "04/09/2008" 0 0 0 0 0
"178" "05/09/2008" 1.90402075226978 2.29674294630087 0 2.00061386307443 0
"179" "08/09/2008" 1.25697560975610 0 0 0 0
"180" "09/09/2008" 0 5.9779324282478 0 0 0
"181" "10/09/2008" 0 0 0 0 0
"182" "11/09/2008" 0 0 0 0 0
"183" "12/09/2008" 0 0 0 0 0
"184" "15/09/2008" 0 0 0 0 0
"185" "16/09/2008" 0 0 0 0 0
"186" "17/09/2008" 1.02438459459807 1.22619711576767 0 1.04552840543275 0
"187" "18/09/2008" 0 0 0 1.79109082323312 0
"188" "19/09/2008" 0 0 0 0 0
"189" "22/09/2008" 0 0 0 0 0
"190" "23/09/2008" 0 0 0 0 0
"191" "24/09/2008" 0 0 0 0 0
"192" "25/09/2008" 0 0 0 0 0
"193" "26/09/2008" 0 0 0 0 0
"194" "29/09/2008" 0 0 0 0 0
"195" "30/09/2008" 0 0 0 0 0
"196" "01/10/2008" 0 0 0 0 0
"197" "02/10/2008" 0 0 0 0 0
"198" "03/10/2008" 0 0 0 0 0
"199" "06/10/2008" 2.04154293345903 3.05202506298043 0 1.9358798791799 0
"200" "07/10/2008" 0 1.47498830721037 0 1.17955935361063 0
"201" "08/10/2008" 0 14.9324145742873 0 0 0
"202" "09/10/2008" 0 0 0 0 0
"203" "10/10/2008" 0 1.76151628047376 0 0 0
"204" "13/10/2008" 2.12060784682594 2.49342359510135 0 1.38079703611416 0
"205" "14/10/2008" 0 0 0 0 0
"206" "15/10/2008" 0 0 0 0 0
"207" "16/10/2008" 0 0 0 0 0
"208" "17/10/2008" 0 0 0 0 0
"209" "20/10/2008" 2.77910778558280 2.06124765078126 0 2.21517096315418 0
"210" "21/10/2008" 0 0 0 0 0
"211" "22/10/2008" 0 0 0 0 0
"212" "23/10/2008" 0 0 0 0 0
"213" "24/10/2008" 2.03821775205229 2.82019621109608 0 0 0
"214" "27/10/2008" 3.35605657573701 2.58850948325969 0 2.10165079543433 0
"215" "28/10/2008" 0 0 0 1.17948249062814 0
"216" "29/10/2008" 0 0 0 0 0
"217" "30/10/2008" 0 0 0 0 0
"218" "31/10/2008" 0 0 0 0 0
"219" "03/11/2008" 2.12275114220175 1.64840977569468 0 2.18090752979133 0
"220" "04/11/2008" 0 0 0 0 0
"221" "05/11/2008" 0 0 0 0 0
"222" "06/11/2008" 0 0 0 0 0
"223" "07/11/2008" 0 0 0 1.04020285955785 0
"224" "10/11/2008" 0 0 0 1.12617576253940 0
"225" "11/11/2008" 0 0 0 0 0
"226" "12/11/2008" 0 0 0 0 0
"227" "13/11/2008" 0 0 0 0 0
"228" "14/11/2008" 0 0 0 0 0
"229" "17/11/2008" 0 0 0 0 0
"230" "18/11/2008" 0 0 0 0 0
"231" "19/11/2008" 0 0 0 0 0
"232" "20/11/2008" 0 0 0 1.08701374223365 0
"233" "21/11/2008" 1.43986147868686 1.88360546886790 0 1.35937156983459 0
"234" "24/11/2008" 1.21654815772463 1.48079706281135 0 1.04938974892120 0
"235" "25/11/2008" 1.14449163560718 0 0 0 0
"236" "26/11/2008" 0 0 0 0 0
"237" "27/11/2008" 0 0 0 0 0
"238" "28/11/2008" 0 0 0 0 0
"239" "01/12/2008" 0 0 0 0 0
"240" "02/12/2008" 0 0 0 0 0
"241" "03/12/2008" 0 0 0 0 0
"242" "04/12/2008" 0 0 0 0 0
"243" "05/12/2008" 0 2.45300081961929 0 0 0
"244" "08/12/2008" 0 1.65550416607824 0 0 0
"245" "09/12/2008" 0 0 0 0 0
"246" "10/12/2008" 0 0 0 0 0
"247" "11/12/2008" 0 0 0 0 0
"248" "12/12/2008" 0 0 0 0 0
"249" "15/12/2008" 0 0 0 0 0
"250" "16/12/2008" 0 0 0 0 0
"251" "17/12/2008" 0 1.09819626488819 0 1.06337404554644 0
"252" "18/12/2008" 0 0 0 0 0
"253" "19/12/2008" 0 0 0 0 0
"254" "22/12/2008" 0 0 0 0 0
"255" "23/12/2008" 0 0 0 0 0
"256" "24/12/2008" 0 0 0 0 0
"257" "26/12/2008" 0 1.52617304832172 0 0 0
"258" "29/12/2008" 1.47653485909423 1.18761521387457 0 0 0
"259" "30/12/2008" 0 1.14788774002954 0 0 0
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
