Date

Today’s date is 28 May, 2017.

Torus Knots

library(plotly)

## Loading required package: ggplot2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

set.seed(2017-05-15)
t <- 1:100
p <- 3
q <- 2
angleVals <- ((t-1)/100)*2*pi
r <- cos(q*angleVals) + 2
xVals <- (cos(q*angleVals) + 2)*cos(p*angleVals)
yVals <- (cos(q*angleVals) + 2)*sin(p*angleVals)
zVals <- -sin(q*angleVals)

Fancy Plot