Skip to content

Commit 0418d27

Browse files
committed
bug fix
1 parent fe0b411 commit 0418d27

File tree

5 files changed

+43
-39
lines changed

5 files changed

+43
-39
lines changed

R/package.R

Lines changed: 0 additions & 13 deletions
This file was deleted.

R/structr-package.R

Lines changed: 12 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,16 @@
1-
#' @keywords internal
1+
#' @title library(structr)
2+
#'
3+
#' @description Free and open-source R package for analyzing and visualizing
4+
#' orientation and stress data for structural geology.
5+
#'
6+
#' @details A list of documented functions may be viewed by typing
7+
#' \code{help(package='structr')}.
8+
#'
9+
#' @name structr
10+
#' @docType package
11+
#' @aliases structr-package
212
"_PACKAGE"
13+
#> [1] "_PACKAGE"
314

415
## usethis namespace: start
516
#' @importFrom pracma acosd

man/structr-package.Rd

Lines changed: 0 additions & 24 deletions
This file was deleted.

man/structr.Rd

Lines changed: 1 addition & 1 deletion
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

vignettes/Statistics.Rmd

Lines changed: 30 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -303,6 +303,36 @@ planes).
303303
fault plane solutions. Bulletin of the Seismological Society of
304304
America, 54(5A), 1519–1528. <https://doi.org/10.1785/BSSA05405A1519>
305305

306+
The orientation tensor of orientation tensor is calculated by `ortensor()`:
307+
308+
```{r ort}
309+
ortensor(planes)
310+
```
311+
312+
The Eigenvalues from orientation data can be computed through `ot_eigen()`
313+
314+
```{r oteigen}
315+
planes_eigen <- ot_eigen(planes)
316+
print(planes_eigen)
317+
```
318+
To visualize the orientation of the Eigen-vectors and their -values, you can call the vectors and values of the object returned by `ot_eigen()`:
319+
320+
```{r oteigen}
321+
stereoplot()
322+
points(example_planes, col = "grey", pch = 16, cex = .7)
323+
lines(planes_eigen$vectors,
324+
col = c("#000004", "#B63679FF", "#FEC287FF"),
325+
lwd = rev(assign_cex(planes_eigen$values, range = c(.5, 2))))
326+
points(planes_eigen$vectors,
327+
col = c("#000004", "#B63679FF", "#FEC287FF"),
328+
cex = assign_cex(planes_eigen$values, range = c(.5, 2)),
329+
pch = 16)
330+
legend('right',
331+
legend = c("Eigen-1", "Eigen-2", "Eigen-3"),
332+
col = c("#000004", "#B63679FF", "#FEC287FF"), pch = 16, lty = 1)
333+
```
334+
335+
306336
#### Shape parameters
307337

308338
There are more shape parameters using different algorithms based on the

0 commit comments

Comments
 (0)