--- loncom/homework/default_homework.lcpm	2009/02/06 10:43:48	1.143
+++ loncom/homework/default_homework.lcpm	2009/04/17 01:00:15	1.144
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # used by lonxml::xmlparse() as input variable $safeinit to Apache::run::run()
 #
-# $Id: default_homework.lcpm,v 1.143 2009/02/06 10:43:48 riegler Exp $
+# $Id: default_homework.lcpm,v 1.144 2009/04/17 01:00:15 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -436,6 +436,8 @@ sub cas {
     my $output;
     if ($system eq 'maxima') {
        $output=&maxima_eval($input,$library);
+    } elsif ($system eq 'R') {
+       $output=&r_eval($input,$library);
     } else {
        $output='Error: unrecognized CAS';
     }