Advanced R - Installation Test

<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 {

• Unknown macro: { background}

body

a, a:visited

hr

pre, blockquote

tr, img

img

@page :left

@page :right

p, h2, h3

h2, h3

}
--></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

pre .literal

pre .number

pre .comment

pre .keyword

pre .identifier

pre .string

--></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")

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

<H4>Python test</H4>

<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>