## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## -----------------------------------------------------------------------------
library(PlotBivInvGaus)

## ----fig.dim=c(7,4)-----------------------------------------------------------
x=seq(1,10,0.2)
y=seq(1,10,0.2)
v=0.2
r=0.5
l1=2
l2=3
u1=4
u2=3
PlotBivInvGaus(x,y,u1,u2,l1,l2,r,v)
    

## ----fig.dim=c(7,4)-----------------------------------------------------------
x=seq(1,10,0.2)
y=seq(1,10,0.2)
v=0.3
r=0.6
l1=10
l2=10
u1=3
u2=3
PlotBivInvGaus(x,y,u1,u2,l1,l2,r,v)