Nothing

```
normalvector <-
function(slope,aspect) {
if (nargs() < 2 ) {cat("USAGE: normalvector(slope,aspect) \n"); return()}
sloper = radians(slope)
aspectr = radians(aspect)
nvx = sin(aspectr)*sin(sloper)
nvy = -cos(aspectr)*sin(sloper)
nvz = cos(sloper)
return(cbind(nvx,nvy,nvz))
}
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.