History: Profile_r_test3_template01

            {wiki}Values for X:
min: {$f_$profileobject:r_test_xmin$}
max: {$f_$profileobject:r_test_xmax$}

__Those are the results__:{/wiki}

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

cat("\nResults from {$f_$profileobject:r_test_xmin$}*{$f_$profileobject:r_test_xmax$}: ")
results <- {$f_$profileobject:r_test_xmin$}*{$f_$profileobject:r_test_xmax$} 
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}