Hello World

Hello World!

library(dplyr)
# This is a new example:
histData <- head(mutate(
  iris, 
  Petal.Ratio = Petal.Length / Petal.Width
))
calcExample <- (132 * 2) ^ 2
myFun <- function(x, y) {
  if (x > 0)
    return(TRUE)
  else
    return(y)
}
histData$Petal.Ratio %>% 
  hist(col = "green", main = "Histogram of petal.ratio", xlab = "petal.ratio")
  • More examples to follow
  • Comments to be provided through new news-comments email link
head(mutate(
  iris, 
  Petal.Ratio = Petal.Length / Petal.Width
))$Petal.Ratio %>% 
  hist(col = "green", main = "Histogram of petal.ratio", xlab = "petal.ratio")

With line-numbers:

1
2
3
4
5
6
7
8
try(detach("package:dplyr"), silent = TRUE)
library(data.table, quietly = TRUE)
library(magrittr)
dTab <- data.table(iris)
head(
  dTab[, Petal.Ratio := Petal.Length / Petal.Width]
)$Petal.Ratio %>% 
  hist(col = "blue", main = "Histogram of petal.ratio", xlab = "petal.ratio")