Nothing
## ----echo=FALSE----------------------------------------------------------
results='show';echo=TRUE
## ----setup, include=FALSE, cache=FALSE-----------------------------------
library(knitr)
options(replace.assign=FALSE,width=50)
## ------------------------------------------------------------------------
library("nclRcourses")
## ------------------------------------------------------------------------
x1 = GetNumericVector()
## ----echo=echo, results=results------------------------------------------
length(x1)
## ----echo=echo, results=results------------------------------------------
x1[55]
## ----echo=echo, results=results------------------------------------------
x1[length(x1)]
tail(x1, 1)
## ----echo=echo, results=results------------------------------------------
mean(x1)
## ----echo=echo, results=results------------------------------------------
min(x1)
## ----echo=echo, results=results------------------------------------------
q1 = quantile(x1)[2]
med = median(x1)
length(x1[x1 > q1 & x1 < med])
##Or
sum(x1 > q1 & x1 < med)
## ----echo=echo, results=results------------------------------------------
m = mean(x1)
s = sd(x1)
sum(x1 > (m + 2*s))
## ----echo=echo, results=results------------------------------------------
sort(x1)[50]
## ------------------------------------------------------------------------
y = GetDataFrame()
## ----echo=echo, results=results------------------------------------------
dim(y)[1]
## ----echo=echo, results=results------------------------------------------
dim(y)[2]
## ----echo=echo, results=results------------------------------------------
unique(y$type)
## ----echo=echo, results=results------------------------------------------
sum(y$type == "mutant")
## ----echo=echo, results=results------------------------------------------
sum(y$value < 5)
## ----echo=echo, results=results------------------------------------------
sum(y$tps == 0)
## ----echo=echo, results=results------------------------------------------
sum(y$tps == 0 & y$type == "mutant")
## ------------------------------------------------------------------------
x2 = GetCharacterVector()
## ----echo=echo, results=results------------------------------------------
length(x2[x2=="A"])
##Or
sum(x2=="A")
## ----echo=echo, results=results------------------------------------------
sort(table(x2), decreasing=TRUE)[1]
## ----echo=echo, results=results------------------------------------------
l = length(x2)
x2_a = x2[1:(l-1)]; x2_b = x2[2:l];
sum(x2_a == x2_b)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.