Loading...
 
Skip to main content

History: Profile_r_test2_params

View published page Collapse Into Edit Sessions

Preview of version: 17

Testing several commands, including a dynamic display of some command based on user input through 'Pretty Tracker', and usage of several graph parameters.



Test 2a - basic R command


This code:
Copy to clipboard
{R()}1:10{R}


Produces:
 Plugin disabled
Plugin r cannot be executed.



Test 2b - basic plotting


This code:
Copy to clipboard
{R()}plot(1:10,11:20){R}


Produces:
 Plugin disabled
Plugin r cannot be executed.



Test 2c - dynamic variable usage


This code:
Copy to clipboard
{$user}
{{user}}


Produces:
{$user}
{{user}}


Test 2d - parsing html code


This code:
Copy to clipboard
{R()}cat("<b>hello</b>"){R}


Produces:
 Plugin disabled
Plugin r cannot be executed.



Test 2e - wikisyntax param

Attempt parsing with different values for wikisyntax param

Test 2e1 - no wikisyntax set


This code:
Copy to clipboard
{R()}cat("__hello__"){R}


Produces:
 Plugin disabled
Plugin r cannot be executed.



Test 2e2 - wikisyntax set to 0


This code:
Copy to clipboard
{R(wikisyntax=>0)}cat("__hello__"){R}


Produces:
 Plugin disabled
Plugin r cannot be executed.



Test 2e3 - wikisyntax set to 1


This code:
Copy to clipboard
{R(wikisyntax=>1)}cat("__hello__"){R}


Produces:
 Plugin disabled
Plugin r cannot be executed.



Test 2f - using the R workspace (param. loadandsave)


a using loadandsave=1
Copy to clipboard
{R(loadandsave="1")}
rm(list = ls()); 
ls();
a<-12;
cat("\na = 12\n");
{R}
 Plugin disabled
Plugin r cannot be executed.
b using loadandsave=1
Copy to clipboard
{R(loadandsave="1")}
ls();
b<-a*3;
cat("\nb = a*3 = ");
cat(b);
{R}
 Plugin disabled
Plugin r cannot be executed.
c using loadandsave=0
Copy to clipboard
{R(loadandsave="0")}
ls();
cat("\nc = b*2 = ");
c<-b*2;
cat(c);
{R}
 Plugin disabled
Plugin r cannot be executed.


This previous code should produce something like:

Image


Test 2i - pretty tracker through using param tplwiki in trackerlist


Showing R output through a Pretty tracker template (.tpl file) on disk. You need to create a tpl on disk under templates/r_test2_template01.tpl with the content that you will find at r_test2_template01 wiki page.

This code:
Copy to clipboard
{tracker trackerId="$profileobject:r_test_tracker1$" url="tiki-index.php?page=r_test2"}

{TRACKERLIST(trackerId=>$profileobject:r_test_tracker1$, showlinks=>y, tplwiki=>$profileobject:r_test2_template01_page$)} 
{TRACKERLIST}


Produces:
You do not have permission to insert an item




Test 2j - plotting some other graphs with some more data and functions, with different parameters

res 72 dpi

Test 2j1 - Using default: res 72, pointsize 12,

Width 500px and rest by default: res 72, pointsize 12, bg "transparent"

This code:
Copy to clipboard
^{R(width=500)}data(cars)
plot( cars$dist ~ cars$speed )
title('Test 2j1 - By default, res 72, pointsize 12, bg transparent')
m <- lm( cars$dist ~ cars$speed )
k <- coef(m)
curve( k[1] + k[2]*x , from=min(cars$speed) , to=max(cars$speed) , add=TRUE ){R}^


Produces:
 Plugin disabled
Plugin r cannot be executed.

  
res 120 dpi

Test 2j2 - res 120 & pointsize 12 & bg yellow

If not pointsize is set, default value (12) is used.

This code:
Copy to clipboard
^{R(width=500 res=120 units=px bg=yellow)}data(cars)
plot( cars$dist ~ cars$speed )
title('Test 2j2 - res 120 & pointsize 12 & bg yellow')
m <- lm( cars$dist ~ cars$speed )
k <- coef(m)
curve( k[1] + k[2]*x , from=min(cars$speed) , to=max(cars$speed) , add=TRUE ){R}^


Produces:
 Plugin disabled
Plugin r cannot be executed.

Test 2j3 - res 72 & pointsize 16


This code:
Copy to clipboard
^{R(width=500 res=72 pointsize=16 units=px)}data(cars)
plot( cars$dist ~ cars$speed )
title('Test 2j3 - res 72 & pointsize 16')
m <- lm( cars$dist ~ cars$speed )
k <- coef(m)
curve( k[1] + k[2]*x , from=min(cars$speed) , to=max(cars$speed) , add=TRUE ){R}^


Produces:
 Plugin disabled
Plugin r cannot be executed.

  

Test 2j4 - res 120 & pointsize 16


This code:
Copy to clipboard
^{R(width=500 res=120 pointsize=16 units=px)}data(cars)
plot( cars$dist ~ cars$speed )
title('Test 2j4 - res 120 & pointsize 16')
m <- lm( cars$dist ~ cars$speed )
k <- coef(m)
curve( k[1] + k[2]*x , from=min(cars$speed) , to=max(cars$speed) , add=TRUE ){R}^


Produces:
 Plugin disabled
Plugin r cannot be executed.





History

Information Version
Fri 11 of Oct, 2013 09:00 GMT-0000 Xavier de Pedro replaced print with cat 20
Sun 24 of Mar, 2013 23:43 GMT-0000 Xavier de Pedro simplified 19
Sun 07 of Aug, 2011 15:52 GMT-0000 Xavier de Pedro updated 18
Tue 26 of Jul, 2011 21:13 GMT-0000 Xavier de Pedro oups forgot one old reference 17
Tue 26 of Jul, 2011 21:12 GMT-0000 Xavier de Pedro updated to tplwiki param for trackerlist 16
Mon 18 of Jul, 2011 08:18 GMT-0000 Xavier de Pedro added missing closing tag and mismatch in template name 15
Mon 07 of Feb, 2011 14:50 GMT-0000 Xavier de Pedro added image reference to doc.t.o 14
Mon 07 of Feb, 2011 14:48 GMT-0000 Xavier de Pedro fixed 13
Mon 07 of Feb, 2011 14:46 GMT-0000 Xavier de Pedro added a new example (with param loadandsave) 12
Mon 28 of Jun, 2010 22:03 GMT-0000 Xavier de Pedro 11
Wed 09 of Jun, 2010 09:43 GMT-0000 Xavier de Pedro 10
Wed 09 of Jun, 2010 09:39 GMT-0000 Xavier de Pedro table of 2x2 graphs with different params ('mandala'-like) 9
Wed 09 of Jun, 2010 05:58 GMT-0000 Xavier de Pedro 8
Tue 08 of Jun, 2010 15:21 GMT-0000 Xavier de Pedro added new plot with linear regression line 7
Tue 08 of Jun, 2010 07:49 GMT-0000 Xavier de Pedro 6
Mon 07 of Jun, 2010 17:16 GMT-0000 Xavier de Pedro 5
Mon 07 of Jun, 2010 17:15 GMT-0000 Xavier de Pedro renamed pages in url's or wiki or tpl params from object references to direct names 4
Sun 06 of Jun, 2010 16:29 GMT-0000 Xavier de Pedro 3
Sun 06 of Jun, 2010 16:25 GMT-0000 Xavier de Pedro 2
Fri 04 of Jun, 2010 18:11 GMT-0000 Xavier de Pedro 1