Tiki & PluginR training

{wiki}Values for X:
min: {$f_5}
max: {$f_6}

Those are the results:{/wiki}

{wikiplugin _name=r width="400" height="200"}
x<-{$f_5}:{$f_6}
y<-x*x
plot(x,y)
title('Graph with xmin {$f_5} & xmax {$f_6} and y=x^2')

cat("\nResults from {$f_5}*{$f_6}: ")
results <- {$f_5}*{$f_6}
cat(results)
cat("\n")

if ( exists("file_type") ) {
cat("\nFile type from this attachment: ")
cat(file_type)
cat("\nContents of the attachment to this dataset:\n")
print(data)
} else {
cat("No attachment to display in this raw dataset")
}

{/wikiplugin}