<programme nom="stats">
	<instruction nom="_menu_">
		<argument nom="R:summary" valeur="resumé"></argument>
		<argument nom="" valeur="univarié numérique">
			<instruction nom="_menu_">
				<argument nom="R:mean" valeur="moyenne"></argument>
				<argument nom="R:sd" valeur="ecart-type"></argument>
			</instruction>
		</argument>
		<argument nom="" valeur="univarié textuel">
			<instruction nom="_menu_">
				<argument nom="R:count" valeur="effectifs"></argument>
				<argument nom="R:freq" valeur="fréquences"></argument>
			</instruction>
		</argument>
		<argument nom="" valeur="simulations">
			<instruction nom="_menu_">
				<argument nom="R:rnorm" valeur="loi normale"></argument>
			</instruction>
		</argument>
	</instruction>
	<operation nom="R:summary">
		<argument nom="object" valeur="" type=""></argument>
		<return valeur="" type="" mode="PRINT"/>
		<instruction nom="_select_">
			<si condition="R">
<code><![CDATA[
{{return}} summary({{object}})
]]></code>
			</si>
			<si condition="sas_base">
<code><![CDATA[
proc means;
run;
proc freq;
run;
]]></code>
			</si>
		</instruction>
	</operation>
	<operation nom="R:mean">
		<argument nom="x" valeur="" type=""></argument>
		<argument nom="na.rm" valeur="T" type=""></argument>
		<return valeur="" type="REEL" mode="PRINT"/>
		<instruction nom="_select_">
			<si condition="R">
<code><![CDATA[
{{return}} mean({{x}}, na.rm={{na.rm}})
]]></code>
			</si>
			<si condition="sas_base">
<code><![CDATA[
proc means MEAN;
	var {{x}};
run;
]]></code>
			</si>
		</instruction>
	</operation>
	<operation nom="R:sd">
		<argument nom="x" valeur="" type=""></argument>
		<return valeur="" type="" mode="PRINT"/>
		<instruction nom="_select_">
			<si condition="R">
<code><![CDATA[
{{return}} sd({{x}}, na.rm={{na.rm}})
]]></code>
			</si>
			<si condition="sas_base">
<code><![CDATA[
proc means SD;
	var {{x}};
run;
]]></code>
			</si>
		</instruction>
	</operation>
	<operation nom="R:count">
		<argument nom="x" valeur="" type=""></argument>
		<return valeur="" type="" mode="PRINT"/>
		<instruction nom="_select_">
			<si condition="R">
<code><![CDATA[
{{return}} table({{x}})
]]></code>
			</si>
			<si condition="sas_base">
<code><![CDATA[
proc freq;
	tables  {{x}};
run;
]]></code>
			</si>
		</instruction>
	</operation>
	<operation nom="R:freq">
		<argument nom="x" valeur="" type=""></argument>
		<return valeur="" type="" mode="PRINT"/>
		<instruction nom="_select_">
			<si condition="R">
<code><![CDATA[
{{return}} table({{x}}) / sum(table({{x}}))
]]></code>
			</si>
			<si condition="sas_base">
<code><![CDATA[
proc freq;
	tables  {{x}};
run;
]]></code>
			</si>
		</instruction>
	</operation>
	<operation nom="R:rnorm">
		<option nom="sas_data"></option>
		<argument nom="n" valeur="" type=""></argument>
		<argument nom="mean" valeur="0" type=""></argument>
		<argument nom="sd" valeur="1" type=""></argument>
		<return valeur="" type="" mode="PRINT"/>
		<instruction nom="_select_">
			<si condition="R">
<code><![CDATA[
{{return}} rnorm({{n}}, mean={{mean}}, sd={{sd}})
]]></code>
			</si>
			<si condition="sas_base">
<code><![CDATA[
do II=1 to {{n}};
	{{return}} {{mean}} + {{sd}}*rannor(0);
	output; 
end;
]]></code>
			</si>
		</instruction>
	</operation>
</programme>