This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
library(volesti)
## Loading required package: Rcpp
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
library("plot3D")
P = GenCube(3, "V")
points = sample_points(P, N=1000, WalkType = "BW", walk_step = 5)
dt=t(points)
colnames(dt) = c("x", "y", "z")
dt=data.frame(dt)
fig <- plot_ly(dt,type="scatter3d", x = ~x, y = ~y, z = ~z, mode="markers",colors = c('#BF382A'))
fig
P = GenRandHpoly(3, 100)
points = sample_points(P, N=5000, WalkType = "BW", walk_step = 5)
dt=t(points)
colnames(dt) = c("x", "y", "z")
dt=data.frame(dt)
fig <- plot_ly(dt,type="scatter3d", x = ~x, y = ~y, z = ~z, mode="markers",colors = c('#BF382A'),sizes=c(0.05, 0.05))
fig