# 2D Example
D <-c(0,0,0)
ext<-4
min.ax<- 5
max.ax<- 5
draw.thyper(D,ext,min.ax,max.ax,plot=TRUE)
# 3D Example
D <-c(0,0,0,0)
ext<-4
min.ax<- 5
max.ax<- 5
draw.thyper(D,ext,min.ax,max.ax,plot=TRUE)
draw.thyper(D,ext,min.ax,max.ax,plot=TRUE,tadd=min)
Run the code above in your browser using DataLab