--- loncom/homework/templates/SimpleMathResponseR.problem	2009/04/18 23:43:54	1.1
+++ loncom/homework/templates/SimpleMathResponseR.problem	2009/07/06 17:12:47	1.2
@@ -1,4 +1,5 @@
 <problem>
+
 <script type="loncapa/perl">
 $mean=&random(4,9,0.1);
 @args=$mean;
@@ -10,11 +11,11 @@ Provide a list of 3 numbers (separated b
 <endouttext />
 
 <mathresponse answerdisplay="$answer" cas="R" args="@args">
-
-<answer>x<-c(RESPONSE[1],RESPONSE[2],RESPONSE[3]);
+    <answer>
+x<-c(RESPONSE[1],RESPONSE[2],RESPONSE[3]);
 abs(mean(x)-LONCAPALIST[1])<0.001
-</answer>
-
-<textline readonly="no" size="50" />
+    </answer>
+    <textline readonly="no" size="50" />
 </mathresponse>
+
 </problem>