! Wiki page R trial

-= example with just =-
With data between r tags, attId=1
{R()}1:10{R}
---
-= example with csv=-
attId=2. csv file with csv extension. data separated with commas

-= example with csv=-
{CODE()}
{R(attId=2,type="text/csv")}summary(data)
x <- t(data[4]);
y <- t(data[5]);
x
y
# plot(x,y);
{R}
{CODE}

{R(attId=2,type="text/csv")}summary(data)
x <- t(data[4]);
y <- t(data[5]);
x
y
# plot(x,y);
{R}

---
-= example with xml=-
attId=6. xml file with xml extension. 

{CODE()}
{R(attId=6,type="text/xml")}# n_calibrations <- length(which(data[ "event/@action" ] == "Trap Calibrated"))
data
# n_calibrations <- length(which(data[ "event/@action" ] == "Trap Calibrated"))

# n_calibrations

{R}
{CODE}

{R(attId=6,type="text/xml")}# n_calibrations <- length(which(data[ "event/@action" ] == "Trap Calibrated"))
data
# n_calibrations <- length(which(data[ "event/@action" ] == "Trap Calibrated"))

# n_calibrations

{R}

!!- xml file contents
{CODE(colors=>XML)}
<log>
<event application="Tweezers" action="Tweezers_init" user="xavi" session="tweezers_2009-07-06 15:39:46" time="2009-07-06 15:39:46" time_ms="1246887586632" number="1">
<param name="version" value="1.0 (May 28th, 2009)"/>
<description>The Tweezers applet (1.0 (May 28th, 2009)) is started.</description>
</event>
	<event application="Tweezers-applet" action="Applet started" user="xavi" session="2009_07_06-15_39_42" time="1246887592241" number="1">
		<param name="power" value="0.049499999999999995"/>
		<param name="Wavelength" value="5.5E-7"/>
		<param name="N1" value="1.33"/>
		<param name="N2" value="1.58"/>
		<param name="NA" value="1.3"/>
		<param name="w0" value="5.318223636855334E-7"/>
		<param name="R" value="5.0E-6"/>
		<param name="Viscosity" value="6.000000000000001E-4"/>
		<param name="Temperature" value="320.0"/>
		<param name="Regime" value="0.0"/>
		<param name="Pupil2waist" value="1.0"/>
		<param name="Zoom" value="0.6"/>
		<param name="Dt" value="1.0E-4"/>
		<param name="K (Stiffness)" value="0.0"/>
	</event>
	<event application="Tweezers-applet" action="Power changed" user="xavi" session="2009_07_06-15_39_42" time="1246887631617" number="2">
		<param name="Power (mW)" value="0.051519999999999996"/>
	</event>
	<event application="Tweezers-applet" action="Change in Wavelength" user="xavi" session="2009_07_06-15_39_42" time="1246887649570" number="3">
		<param name="Wavelength (nm)" value="5.550000000000001E-7"/>
	</event>
	<event application="Tweezers-applet" action="n1 changed" user="xavi" session="2009_07_06-15_39_42" time="1246887721269" number="4">
		<param name="n1" value="1.36"/>
	</event>
	<event application="Tweezers-applet" action="Overfilling changed" user="xavi" session="2009_07_06-15_39_42" time="1246887788954" number="5">
		<param name="Overfilling (EP/input beam waist)" value="1.5"/>
	</event>
	<event application="Tweezers-applet" action="n1 changed" user="xavi" session="2009_07_06-15_39_42" time="1246887824040" number="6">
		<param name="n1" value="1.3800000000000001"/>
	</event>
	<event application="Tweezers-applet" action="Power changed" user="xavi" session="2009_07_06-15_39_42" time="1246887843558" number="7">
		<param name="Power (mW)" value="0.05455"/>
	</event>
	<event application="Tweezers-applet" action="Animation button clicked" user="xavi" session="2009_07_06-15_39_42" time="1246888658258" number="8">
		<param name="power" value="0.05455"/>
		<param name="Wavelength" value="5.550000000000001E-7"/>
		<param name="N1" value="1.39"/>
		<param name="N2" value="1.58"/>
		<param name="NA" value="1.3"/>
		<param name="w0" value="5.287475148115857E-7"/>
		<param name="R" value="5.0E-6"/>
		<param name="Viscosity" value="6.000000000000001E-4"/>
		<param name="Temperature" value="320.0"/>
		<param name="Regime" value="0.0"/>
		<param name="Pupil2waist" value="1.5"/>
		<param name="Zoom" value="0.6"/>
		<param name="Dt" value="1.0E-4"/>
		<param name="K (Stiffness)" value="0.0"/>
	</event>
	<event application="Tweezers-applet" action="Power changed" user="xavi" session="2009_07_06-15_39_42" time="1246888700743" number="9">
		<param name="Power (mW)" value="0.05959999999999999"/>
	</event>
	<event application="Tweezers-applet" action="Animation button clicked" user="xavi" session="2009_07_06-15_39_42" time="1246888710369" number="10">
		<param name="power" value="0.05959999999999999"/>
		<param name="Wavelength" value="5.550000000000001E-7"/>
		<param name="N1" value="1.39"/>
		<param name="N2" value="1.58"/>
		<param name="NA" value="1.3"/>
		<param name="w0" value="5.287475148115857E-7"/>
		<param name="R" value="5.0E-6"/>
		<param name="Viscosity" value="6.000000000000001E-4"/>
		<param name="Temperature" value="320.0"/>
		<param name="Regime" value="0.0"/>
		<param name="Pupil2waist" value="1.5"/>
		<param name="Zoom" value="0.6"/>
		<param name="Dt" value="1.0E-4"/>
		<param name="K (Stiffness)" value="0.0"/>
	</event>
	<event application="Tweezers-applet" action="Tab changed" user="xavi" session="2009_07_06-15_39_42" time="1246888866863" number="11">
	</event>
	<event application="Tweezers-applet" action="Show Net force arrow true" user="xavi" session="2009_07_06-15_39_42" time="1246888866864" number="12">
	</event>
	<event application="Tweezers-applet" action="Selected: Net force" user="xavi" session="2009_07_06-15_39_42" time="1246888866871" number="13">
	</event>
	<event application="Tweezers-applet" action="Show scattering force arrow:true" user="xavi" session="2009_07_06-15_39_42" time="1246888866871" number="14">
	</event>
	<event application="Tweezers-applet" action="Selected: Scattering force" user="xavi" session="2009_07_06-15_39_42" time="1246888866872" number="15">
	</event>
	<event application="Tweezers-applet" action="Show gradient force arrow:true" user="xavi" session="2009_07_06-15_39_42" time="1246888866882" number="16">
	</event>
	<event application="Tweezers-applet" action="Selected: Gradient force" user="xavi" session="2009_07_06-15_39_42" time="1246888866894" number="17">
	</event>
	<event application="Tweezers-applet" action="Calculation of force field and force curves" user="xavi" session="2009_07_06-15_39_42" time="1246888869305" number="18">
	</event>
	<event application="Tweezers-applet" action="Z equilibrium changed" user="xavi" session="2009_07_06-15_39_42" time="1246888869305" number="19">
		<param name="Z equilibrium (m)" value="9.291539817380744E-7"/>
	</event>
	<event application="Tweezers-applet" action="Show Net force arrow true" user="xavi" session="2009_07_06-15_39_42" time="1246889142631" number="20">
	</event>
	<event application="Tweezers-applet" action="Selected: Net force" user="xavi" session="2009_07_06-15_39_42" time="1246889142641" number="21">
	</event>
	<event application="Tweezers-applet" action="Show Net force arrow true" user="xavi" session="2009_07_06-15_39_42" time="1246889145513" number="22">
	</event>
	<event application="Tweezers-applet" action="Selected: Net force" user="xavi" session="2009_07_06-15_39_42" time="1246889145529" number="23">
	</event>
	<event application="Tweezers-applet" action="Trap Calibrated" user="xavi" session="2009_07_06-15_39_42" time="1246889148429" number="24">
		<param name="power" value="0.05959999999999999"/>
		<param name="Wavelength" value="5.550000000000001E-7"/>
		<param name="N1" value="1.39"/>
		<param name="N2" value="1.58"/>
		<param name="NA" value="1.3"/>
		<param name="w0" value="5.287475148115857E-7"/>
		<param name="R" value="5.0E-6"/>
		<param name="Viscosity" value="6.000000000000001E-4"/>
		<param name="Temperature" value="320.0"/>
		<param name="Regime" value="0.0"/>
		<param name="Pupil2waist" value="1.5"/>
		<param name="Zoom" value="0.6000000000000001"/>
		<param name="Dt" value="1.0E-4"/>
		<param name="Total force" value="1.0"/>
		<param name="Scattering force" value="1.0"/>
		<param name="Gradient force" value="1.0"/>
		<param name="Ztrap found" value="1.0"/>
		<param name="Ztrap" value="9.291539817380744E-7"/>
		<param name="K (Stiffness)" value="0.0"/>
	</event>
	<event application="Tweezers-applet" action="Show gradient force arrow:true" user="xavi" session="2009_07_06-15_39_42" time="1246889535974" number="25">
	</event>
	<event application="Tweezers-applet" action="Selected: Gradient force" user="xavi" session="2009_07_06-15_39_42" time="1246889535984" number="26">
	</event>
	<event application="Tweezers-applet" action="Show gradient force arrow:true" user="xavi" session="2009_07_06-15_39_42" time="1246889539004" number="27">
	</event>
	<event application="Tweezers-applet" action="Selected: Gradient force" user="xavi" session="2009_07_06-15_39_42" time="1246889539030" number="28">
	</event>
	<event application="Tweezers-applet" action="Tweezers applet closed" user="xavi" session="2009_07_06-15_39_42" time="1246889542029" number="28">
	</event>
</log>
{CODE}
!!
---
without data. attId=3, same as att2 but renamed as txt?
{R(attId=3)}summary(data){R}
---
without data. attId=4. semicolon instead of commas
{R(attId=4)}summary(data){R}
---
without data. attId=5. simple r syntax 1:20
{R(attId=5)}summary(data){R}

---

{CODE()}
{R()}
# Summit Cr. fluvial geomorph data sumcr.csv (external link) — download and save to working directory

sumcr <- read.csv("http://localhost/trunk/tiki-download_item_attachment.php?attId=3&display")

# get some summary statistics for the data set

summary(sumcr)

# plot water-surface width vs. cumulative length downstream

#attach(sumcr)
#plot(CumLen, WidthWS)

# add a summarizing curve

#lines(lowess(CumLen, WidthWS), col="red")

{R}

{CODE}