A program to recognize and reward our most engaged community members
<?xml version="1.0" encoding="UTF-8" standalone="no"?><process version="6.4.000"> <context> <input/> <output/> <macros/> </context> <operator activated="true" class="process" compatibility="6.4.000" expanded="true" name="Process"> <process expanded="true"> <operator activated="true" class="r_scripting:execute_r" compatibility="6.4.000" expanded="true" height="76" name="Execute R" width="90" x="179" y="30"> <parameter key="script" value="rm_main = function() { 	 	x <- seq(from= -5, to= 5, length.out =1000) 	 	dn <- dnorm(x) 	de <- dexp(x) 	dc <- dcauchy(x) 	dn3 <- dnorm(x, sd=3) 	result <- data.frame( 		id =x, 		StandardNormalDistribution = dn, 		NormalDistribution = dn3, 		ExponentialDistribution =de, 		CauchyDistribution= dc 	) 	return(result) } "/> </operator> <connect from_op="Execute R" from_port="output 1" to_port="result 1"/> <portSpacing port="source_input 1" spacing="0"/> <portSpacing port="sink_result 1" spacing="0"/> <portSpacing port="sink_result 2" spacing="0"/> </process> </operator></process>