{html}<MCE:STYLE type="text/css"></MCE:STYLE><MCE:STYLE mce_bogus="1" type="text/css"></MCE:STYLE><MCE:STYLE mce_bogus="1" type="text/css"></MCE:STYLE><STYLE mce_bogus="1" type="text/css"><!--
body, td {
   font-family: sans-serif;
   background-color: white;
   font-size: 12px;
   margin: 8px;
}

tt, code, pre {
   font-family: 'DejaVu Sans Mono', 'Droid Sans Mono', 'Lucida Console', Consolas, Monaco, monospace;
}

h1 {
   font-size:2.2em;
}

h2 {
   font-size:1.8em;
}

h3 {
   font-size:1.4em;
}

h4 {
   font-size:1.0em;
}

h5 {
   font-size:0.9em;
}

h6 {
   font-size:0.8em;
}

a:visited {
   color: rgb(50%, 0%, 50%);
}

pre {
   margin-top: 0;
   max-width: 95%;
   border: 1px solid #ccc;
   white-space: pre-wrap;
}

pre code {
   display: block; padding: 0.5em;
}

code.r, code.cpp {
   background-color: #F8F8F8;
}

table, td, th {
  border: none;
}

blockquote {
   color:#666666;
   margin:0;
   padding-left: 1em;
   border-left: 0.5em #EEE solid;
}

hr {
   height: 0px;
   border-bottom: none;
   border-top-width: thin;
   border-top-style: dotted;
   border-top-color: #999999;
}

@media print {
   * {
      background: transparent !important;
      color: black !important;
      filter:none !important;
      -ms-filter: none !important;
   }

   body {
      font-size:12pt;
      max-width:100%;
   }

   a, a:visited {
      text-decoration: underline;
   }

   hr {
      visibility: hidden;
      page-break-before: always;
   }

   pre, blockquote {
      padding-right: 1em;
      page-break-inside: avoid;
   }

   tr, img {
      page-break-inside: avoid;
   }

   img {
      max-width: 100% !important;
   }

   @page :left {
      margin: 15mm 20mm 15mm 10mm;
   }

   @page :right {
      margin: 15mm 10mm 15mm 20mm;
   }

   p, h2, h3 {
      orphans: 3; widows: 3;
   }

   h2, h3 {
      page-break-after: avoid;
   }
}
--></STYLE>


<MCE:STYLE type="text/css"></MCE:STYLE><MCE:STYLE mce_bogus="1" type="text/css"></MCE:STYLE><MCE:STYLE mce_bogus="1" type="text/css"></MCE:STYLE><STYLE mce_bogus="1" type="text/css"><!--
   pre .operator,
   pre .paren {
     color: rgb(104, 118, 135)
   }

   pre .literal {
     color: rgb(88, 72, 246)
   }

   pre .number {
     color: rgb(0, 0, 205);
   }

   pre .comment {
     color: rgb(76, 136, 107);
   }

   pre .keyword {
     color: rgb(0, 0, 255);
   }

   pre .identifier {
     color: rgb(0, 0, 0);
   }

   pre .string {
     color: rgb(3, 106, 7);
   }
--></STYLE>


<MCE:SCRIPT type="mce-text/javascript"></MCE:SCRIPT>







<H1>R test</H1><P>Run the following scripts in RStudio and save the output text and plots. Upload a document with the outputs to Stellar.</P><H4>R test script 1</H4>

<PRE><CODE class="r">library("ggplot2")
c <- ggplot(mtcars, aes(qsec, wt))
c + stat_smooth()</CODE></PRE><H4>R test script 2</H4>

<PRE><CODE class="r">library("googleVis")
## Scatter chart
Scatter <- gvisScatterChart(women, options = list(legend = "none", lineWidth = 2,
    pointSize = 0, hAxis.title = "weight", title = "Women", vAxis = "{title:'height'}",
    hAxis = "{title:'weight'}", width = 300, height = 300))
plot(Scatter)
cat(createGoogleGadget(Scatter), file = "scatterchart.xml")
</CODE></PRE>

<H4>Python test</H4>
{html}

{html}
<PRE><CODE class="r">from pyper import *</CODE><CODE class="r">import sys</CODE><CODE class="r">print(sys.version)

outputs = runR("a <- 3; print(a + 5)")
print outputs
</CODE></PRE>
{html}