From da9a40643a60c14e91997e4636bd61cf1acf1d96 Mon Sep 17 00:00:00 2001 From: Mark Heckmann Date: Sat, 20 Jul 2024 13:57:11 +0200 Subject: [PATCH] remove check_win_devel NOTES --- R/calc.r | 6 +- R/zzz.r | 6 +- TODO.md | 4 +- man/clusterBoot.Rd | 4 +- man/stats.Rd | 2 +- vignettes/web/basic_operations.Rmd | 57 ++++++++++--------- vignettes/web/clustering.Rmd | 30 +++++----- vignettes/web/constructs-correlation.Rmd | 14 ++--- vignettes/web/constructs-distances.Rmd | 12 ++-- vignettes/web/constructs-pca.Rmd | 24 ++++---- vignettes/web/datasets.Rmd | 4 +- vignettes/web/descriptives.Rmd | 6 +- vignettes/web/elements-correlation.Rmd | 12 ++-- .../web/elements-distances-standardized.Rmd | 21 +++---- vignettes/web/elements-distances.Rmd | 12 ++-- vignettes/web/installation.Rmd | 2 +- vignettes/web/intro.Rmd | 2 +- vignettes/web/loading.Rmd | 42 +++++++------- vignettes/web/measures-conflict.Rmd | 6 +- vignettes/web/measures-dispersion.Rmd | 12 ++-- vignettes/web/measures-implicative.Rmd | 18 +++--- vignettes/web/measures-intensity.Rmd | 4 +- vignettes/web/measures-pvaff.Rmd | 4 +- vignettes/web/reordering.Rmd | 10 ++-- vignettes/web/settings.Rmd | 10 ++-- vignettes/web/visualization-bertin.Rmd | 22 +++---- vignettes/web/visualization-biplot.Rmd | 54 +++++++++--------- 27 files changed, 203 insertions(+), 197 deletions(-) diff --git a/R/calc.r b/R/calc.r index f064bdee..28ae6cae 100644 --- a/R/calc.r +++ b/R/calc.r @@ -6,7 +6,7 @@ #' @param index Whether to print the number of the element. #' @param trim The number of characters an element or a construct is trimmed to (default is `20`). If `NA` no trimming #' occurs. Trimming simply saves space when displaying correlation of constructs or elements with long names. -#' @return A dataframe containing the following measures is returned invisibly (see [describe()]): +#' @return A dataframe containing the following measures is returned invisibly (see [psych::describe()]): #' #' - item name #' - item number @@ -1280,8 +1280,8 @@ align <- function(x, along = 0, dmethod = "euclidean", #' @inheritParams pvclust::pvclust #' @param seed Random seed for bootstrapping. Can be set for reproducibility (see #' [set.seed()]). Usually not needed. -#' @param ... Arguments to pass on to [pvclust()]. -#' @return A pvclust object as returned by the function [pvclust()] +#' @param ... Arguments to pass on to [pvclust::pvclust()]. +#' @return A pvclust object as returned by the function [pvclust::pvclust()] #' @export #' @examples \dontrun{ #' diff --git a/R/zzz.r b/R/zzz.r index c23f7f6b..7566ae91 100644 --- a/R/zzz.r +++ b/R/zzz.r @@ -24,11 +24,9 @@ assign("settings", list(), envir = .OpenRepGridEnv) .onAttach <- function(lib, pkg) { packageStartupMessage( "------------------------------------------------", - "\n OpenRepGrid Version ", utils::packageDescription("OpenRepGrid", fields = "Version"), + "\n OpenRepGrid v", utils::packageDescription("OpenRepGrid", fields = "Version"), "\n Tools for the analysis of repertory grid data", - "\n For an introduction visit: www.openrepgrid.org", - "\n CAUTION: The package is in alpha phase.", - "\n Design changes may still occur.", + "\n See: https://docs.openrepgrid.org/", "\n------------------------------------------------", appendLF = TRUE ) diff --git a/TODO.md b/TODO.md index 5688936f..df1a679c 100644 --- a/TODO.md +++ b/TODO.md @@ -1,7 +1,5 @@ # TODOs - * move documentation to pkgdown - * use linter / styler package for code formatting * switch to cli package for console output? * make some function generic so they accept repgridlists as well (index functions) * Format scripts with RStudio comment headers to make them more readable @@ -13,4 +11,4 @@ * intensity for elements does not yet match * add tests for reorder * build bipolar variant of construct matches? (similar to IC) - \ No newline at end of file + diff --git a/man/clusterBoot.Rd b/man/clusterBoot.Rd index 60829c76..56c75dc8 100644 --- a/man/clusterBoot.Rd +++ b/man/clusterBoot.Rd @@ -45,10 +45,10 @@ type \code{?dist}.} \item{seed}{Random seed for bootstrapping. Can be set for reproducibility (see \code{\link[=set.seed]{set.seed()}}). Usually not needed.} -\item{...}{Arguments to pass on to \code{\link[=pvclust]{pvclust()}}.} +\item{...}{Arguments to pass on to \code{\link[pvclust:pvclust]{pvclust::pvclust()}}.} } \value{ -A pvclust object as returned by the function \code{\link[=pvclust]{pvclust()}} +A pvclust object as returned by the function \code{\link[pvclust:pvclust]{pvclust::pvclust()}} } \description{ p-values are calculated for each branch of the cluster dendrogram to indicate the stability of a specific partition. diff --git a/man/stats.Rd b/man/stats.Rd index 316a615b..54569efc 100644 --- a/man/stats.Rd +++ b/man/stats.Rd @@ -18,7 +18,7 @@ statsConstructs(x, index = T, trim = 20) occurs. Trimming simply saves space when displaying correlation of constructs or elements with long names.} } \value{ -A dataframe containing the following measures is returned invisibly (see \code{\link[=describe]{describe()}}): +A dataframe containing the following measures is returned invisibly (see \code{\link[psych:describe]{psych::describe()}}): \itemize{ \item item name \item item number diff --git a/vignettes/web/basic_operations.Rmd b/vignettes/web/basic_operations.Rmd index 3c103fa1..172e979f 100644 --- a/vignettes/web/basic_operations.Rmd +++ b/vignettes/web/basic_operations.Rmd @@ -14,8 +14,8 @@ vignette: > ```{r include = FALSE, echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") library(OpenRepGrid) -options(width=120) -settings(show.scale=FALSE, show.meta=FALSE, show.cut=30) +options(width = 120) +settings(show.scale = FALSE, show.meta = FALSE, show.cut = 30) ``` @@ -56,7 +56,7 @@ Negative indexes indicate that a row and/or column is to be deleted. In order to ```{r eval=FALSE} bell2010[-1, ] -bell2010[ , -c(1,2)] +bell2010[, -c(1, 2)] ``` @@ -71,7 +71,7 @@ bell2010[9:1, ] Likewise we can rearrange the order of the elements. In order to facilitate a comparison between the elements self, unhappiest person you know and mother (elements 1, 3 and 6) we may want to rearrange them next to each other. ```{r} -bell2010[ , c(1,3,6,2,4,5, 7:10)] +bell2010[, c(1, 3, 6, 2, 4, 5, 7:10)] ``` @@ -80,7 +80,7 @@ bell2010[ , c(1,3,6,2,4,5, 7:10)] Several tasks concerning reordering will be used repeatedly, like e. g. moving a construct upwards. While the extract function can fulfill this task, the code quickly becomes tedious. Hence, specialized functions are available for standard actions. E.g. to move construct 2 upwards the following two lines of code are equivalent. ```{r eval=FALSE} -bell2010[c(2,1, 3:9), ] +bell2010[c(2, 1, 3:9), ] up(bell2010, 2) ``` @@ -111,22 +111,24 @@ swapPoles(bell2010, 1:3) To change single ratings of elements on constructs also the extract function can be used. In this context, the square brackets are used to determine the part of the grid that is assigned new scores. To change the rating in cell `(1,1)` of the dataset `bell2010` to `1` type ```{r} -bell2010[1,1] <- 1 +bell2010[1, 1] <- 1 ``` Likewise, new scores can be assigned to a number of cells in the grid, to whole rows, to whole columns or to the entire grid. The following code gives some examples. ```{r} -x <- bell2010[1:4, 1:5] # subset of the Bell2010 data set with four rows and five columns -x[1:3, 1] <- c(1,4,3) # rows 1 to 3 in column 1 -x[1, c(1,4)] <- c(2,2) # columns 1 and 4 in row 1 -x[1, ] <- c(2,2,1,4,3) # all columns in row one -x[ ,1] <- c(2,2,1,4) # all rows in column one -x[ , ] <- c(1,2,3,4, # whole grid column wise - 1,2,3,4, - 1,2,3,4, - 1,2,3,4, - 1,2,3,4) +x <- bell2010[1:4, 1:5] # subset of the Bell2010 data set with four rows and five columns +x[1:3, 1] <- c(1, 4, 3) # rows 1 to 3 in column 1 +x[1, c(1, 4)] <- c(2, 2) # columns 1 and 4 in row 1 +x[1, ] <- c(2, 2, 1, 4, 3) # all columns in row one +x[, 1] <- c(2, 2, 1, 4) # all rows in column one +x[, ] <- c( + 1, 2, 3, 4, # whole grid column wise + 1, 2, 3, 4, + 1, 2, 3, 4, + 1, 2, 3, 4, + 1, 2, 3, 4 +) ``` @@ -141,7 +143,7 @@ setConstructAttr(boeker, 1, "new left pole", "new right pole") To change element the label of the first element, proceed likewise. ```{r} -setElementAttr(boeker, 1, "new name") +setElementAttr(boeker, 1, "new name") ``` @@ -150,13 +152,13 @@ setElementAttr(boeker, 1, "new name") Sometimes it is necessary to add an element or a construct. This can be achieved by modifying the input file itself. Another option is to use the functions addConstruct and addElement. The following call will add a construct and the corresponding ratings to the bell2010 dataset. The left and right pole are labeled “left pole” and “right pole” respectively. ```{r} -addConstruct(bell2010, "left pole", "pole right", c(3,1,3,2,5,4,6,3,7,1)) +addConstruct(bell2010, "left pole", "pole right", c(3, 1, 3, 2, 5, 4, 6, 3, 7, 1)) ``` The following code will add an element with the label “new element” to the dataset. ```{r} -addElement(bell2010, "new element", c(1,2,5,4,3,6,5,2,7)) +addElement(bell2010, "new element", c(1, 2, 5, 4, 3, 6, 5, 2, 7)) ``` @@ -166,13 +168,16 @@ The import functions make use of internal functions to construct a grid from scr ```{r} args <- list( - name= c("element 1", "element 2", "element 3", "element 4", "element 5"), - l.name= c("left pole 1", "left pole 2", "left pole 3", "left pole 4"), - r.name= c("right pole 1", "right pole 2", "right pole3 ", "right pole 4"), - scores= c(4,4,6,5,1, - 2,7,6,5,2, - 6,3,1,6,4, - 6,7,5,6,3)) + name = c("element 1", "element 2", "element 3", "element 4", "element 5"), + l.name = c("left pole 1", "left pole 2", "left pole 3", "left pole 4"), + r.name = c("right pole 1", "right pole 2", "right pole3 ", "right pole 4"), + scores = c( + 4, 4, 6, 5, 1, + 2, 7, 6, 5, 2, + 6, 3, 1, 6, 4, + 6, 7, 5, 6, 3 + ) +) newGrid <- makeRepgrid(args) newGrid <- setScale(newGrid, 1, 7) newGrid diff --git a/vignettes/web/clustering.Rmd b/vignettes/web/clustering.Rmd index fca04b29..4410a06e 100644 --- a/vignettes/web/clustering.Rmd +++ b/vignettes/web/clustering.Rmd @@ -13,7 +13,7 @@ vignette: > ```{r setup, echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") library(OpenRepGrid) -settings(show.scale=FALSE, show.meta=FALSE) +settings(show.scale = FALSE, show.meta = FALSE) ``` ### Description @@ -58,28 +58,28 @@ cluster(bell2010) The function also returns the reordered matrix invisibly. To see the reordered grid save it into a new object. To oppress the creation of a graphic set `print = FALSE`. ```{r message=FALSE, warning=FALSE} -x <- cluster(bell2010, print=FALSE) +x <- cluster(bell2010, print = FALSE) x ``` The function also allows to only cluster constructs or elements. To only cluster the constructs us the following code. Again a dendrogram is drawn and a grid with reordered constructs is returned. ```{r message=FALSE, warning=FALSE} -x <- cluster(bell2010, along=1, print=FALSE) +x <- cluster(bell2010, along = 1, print = FALSE) x ``` To only cluster the elements set `along=2`. ```{r message=FALSE, warning=FALSE} -x <- cluster(bell2010, along=2, print=FALSE) +x <- cluster(bell2010, along = 2, print = FALSE) x ``` To apply different distance measures and cluster methods us the arguments `dmethod` and `cmethod` (here `manhattan` distance and `single` linkage clustering). ```{r message=FALSE, warning=FALSE} -x <- cluster(bell2010, dmethod="manh", cmethod="single", print=FALSE) +x <- cluster(bell2010, dmethod = "manh", cmethod = "single", print = FALSE) x ``` @@ -87,22 +87,24 @@ To apply different methods to the constructs and the rows, use a two-step approa ```{r message=FALSE, warning=FALSE} # cluster constructs using default methods -x <- cluster(bell2010, along=1, print=FALSE) +x <- cluster(bell2010, along = 1, print = FALSE) # cluster elements using manhattan distance and single linkage clustering -x <- cluster(x, along=2, dm="manh", cm="single", print=FALSE) +x <- cluster(x, along = 2, dm = "manh", cm = "single", print = FALSE) x ``` Some other options can be set. Paste the code into the R console to try it out. See `?cluster` for more information. ```{r eval=FALSE} -cluster(bell2010, main="My cluster analysis") # new title -cluster(bell2010, type="t") # different drawing style -cluster(bell2010, dmethod="manhattan") # using manhattan metric -cluster(bell2010, cmethod="single") # do single linkage clustering -cluster(bell2010, cex=1, lab.cex=1) # change appearance -cluster(bell2010, lab.cex=.7, # advanced appearance changes - edgePar = list(lty=1:2, col=2:1)) +cluster(bell2010, main = "My cluster analysis") # new title +cluster(bell2010, type = "t") # different drawing style +cluster(bell2010, dmethod = "manhattan") # using manhattan metric +cluster(bell2010, cmethod = "single") # do single linkage clustering +cluster(bell2010, cex = 1, lab.cex = 1) # change appearance +cluster(bell2010, + lab.cex = .7, # advanced appearance changes + edgePar = list(lty = 1:2, col = 2:1) +) ``` #### Bootsrapped clustering diff --git a/vignettes/web/constructs-correlation.Rmd b/vignettes/web/constructs-correlation.Rmd index 4f4e90ff..d051c207 100644 --- a/vignettes/web/constructs-correlation.Rmd +++ b/vignettes/web/constructs-correlation.Rmd @@ -13,8 +13,8 @@ vignette: > ```{r echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") library(OpenRepGrid) -options(width=120) -settings(show.scale=FALSE, show.meta=FALSE) +options(width = 120) +settings(show.scale = FALSE, show.meta = FALSE) ``` @@ -42,20 +42,20 @@ As suggested by Hinkle (1965) the relationships between constructs may take seve #### Correlation measures ```{r} -constructCor(mackay1992) +constructCor(mackay1992) ``` you can select between the different types of correlation by setting the argument `method` to `"pearson"`, `"kendall"` or `"spearman"`. To request a Spearman rank correlation type ```{r} -constructCor(mackay1992, method="spearman") +constructCor(mackay1992, method = "spearman") ``` To format the output several arguments are available. See `?print.constructCor` for more printing options. ```{r} r <- constructCor(mackay1992) -print(r, digits=5, col.index=F) +print(r, digits = 5, col.index = F) ``` @@ -64,7 +64,7 @@ print(r, digits=5, col.index=F) To calulate the RMS correlation ```{r} -constructRmsCor(fbb2003) +constructRmsCor(fbb2003) ``` #### Somers' D @@ -78,7 +78,7 @@ constructD(fbb2003) To set the rows as dependent, type ```{r eval=FALSE} -constructD(fbb2003, dep="r") +constructD(fbb2003, dep = "r") ``` diff --git a/vignettes/web/constructs-distances.Rmd b/vignettes/web/constructs-distances.Rmd index 2b4e5f9c..73c412fb 100644 --- a/vignettes/web/constructs-distances.Rmd +++ b/vignettes/web/constructs-distances.Rmd @@ -13,8 +13,8 @@ vignette: > ```{r echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") library(OpenRepGrid) -options(width=120) -settings(show.scale=FALSE, show.meta=FALSE) +options(width = 120) +settings(show.scale = FALSE, show.meta = FALSE) ``` @@ -43,20 +43,20 @@ distance(fbb2003) Distance for elements: ```{r} -distance(fbb2003, along=2) +distance(fbb2003, along = 2) ``` To change the distance measure supply any unambigous string of the available distance methods to the argument dmethod. E.g. for the manhattan distance bewteen constructs: ```{r} -distance(fbb2003, dmethod="manhattan") +distance(fbb2003, dmethod = "manhattan") ``` For other distance metrics: ```{r results='hide'} -distance(fbb2003, dm="canb") # canberra distance for constructs -distance(fbb2003, dm="mink", p=3) # minkowski metric to the power of 3 for constructs +distance(fbb2003, dm = "canb") # canberra distance for constructs +distance(fbb2003, dm = "mink", p = 3) # minkowski metric to the power of 3 for constructs ``` If the distances are calculated for further processing, the printing to the console can be surpressed distance and the results can be saved into an object (here d). diff --git a/vignettes/web/constructs-pca.Rmd b/vignettes/web/constructs-pca.Rmd index 094a2fd4..5d39a90a 100644 --- a/vignettes/web/constructs-pca.Rmd +++ b/vignettes/web/constructs-pca.Rmd @@ -13,8 +13,8 @@ vignette: > ```{r echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") library(OpenRepGrid) -options(width=120) -settings(show.scale=FALSE, show.meta=FALSE) +options(width = 120) +settings(show.scale = FALSE, show.meta = FALSE) ``` ### Description @@ -32,36 +32,36 @@ constructPca(fbb2003) You can specify the number of components to extract. The following code yields the examples from Fransella et al. (2003, p.87). Two components are extracted using varimax rotation. ```{r message=FALSE, warning=FALSE} -constructPca(fbb2003, nf=2) +constructPca(fbb2003, nf = 2) ``` In case the results are needed for further processing you can save the ouput. ```{r message=FALSE, warning=FALSE} -r <- constructPca(fbb2003, nf=2) +r <- constructPca(fbb2003, nf = 2) ``` To gain an easier overview of the data, a cutoff level can be set to surpress the printing of small loadings. ```{r} -print(r, cut=.3) +print(r, cut = .3) ``` Different methods of rotation can be chosen: `none`, `varimax`, `promax`, `cluster`. ```{r eval=FALSE} -constructPca(fbb2003, rotate="none") -constructPca(fbb2003, rotate="varimax") -constructPca(fbb2003, rotate="promax") -constructPca(fbb2003, rotate="cluster") +constructPca(fbb2003, rotate = "none") +constructPca(fbb2003, rotate = "varimax") +constructPca(fbb2003, rotate = "promax") +constructPca(fbb2003, rotate = "cluster") ``` As a default, the correlation matrix is calculated using product-moment correlation. The methods that can be selected are `pearson`, `kendall`, `spearman`. ```{r eval=FALSE} -constructPca(fbb2003, method="pearson") # default setting -constructPca(fbb2003, method="kendall") -constructPca(fbb2003, method="spearman") +constructPca(fbb2003, method = "pearson") # default setting +constructPca(fbb2003, method = "kendall") +constructPca(fbb2003, method = "spearman") ``` diff --git a/vignettes/web/datasets.Rmd b/vignettes/web/datasets.Rmd index 740ecd88..2b15eb34 100644 --- a/vignettes/web/datasets.Rmd +++ b/vignettes/web/datasets.Rmd @@ -13,8 +13,8 @@ vignette: > ```{r include = FALSE, echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") library(OpenRepGrid) -options(width=120) -settings(show.scale=FALSE, show.meta=FALSE, show.cut=30) +options(width = 120) +settings(show.scale = FALSE, show.meta = FALSE, show.cut = 30) ``` `OpenRepGrid` comes with several datsets already included. The data can serve as a starting point to make your first steps using the software. The following table contains the names of the datasets and a short description where the grid comes from. diff --git a/vignettes/web/descriptives.Rmd b/vignettes/web/descriptives.Rmd index 2e272dae..b65ff093 100644 --- a/vignettes/web/descriptives.Rmd +++ b/vignettes/web/descriptives.Rmd @@ -10,7 +10,7 @@ vignette: > ```{r echo=FALSE, message=FALSE, warning=FALSE} library(knitr) knitr::opts_chunk$set(collapse = TRUE, comment = "#") -options(width=120) +options(width = 120) library(OpenRepGrid) ``` @@ -52,5 +52,5 @@ statsConstructs(fbb2003, trim = 10) ``` ```{r} -statsConstructs(fbb2003, index=F) -``` \ No newline at end of file +statsConstructs(fbb2003, index = F) +``` diff --git a/vignettes/web/elements-correlation.Rmd b/vignettes/web/elements-correlation.Rmd index 677d3497..68ea3054 100644 --- a/vignettes/web/elements-correlation.Rmd +++ b/vignettes/web/elements-correlation.Rmd @@ -15,8 +15,8 @@ vignette: > ```{r echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") library(OpenRepGrid) -options(width=120) -settings(show.scale=FALSE, show.meta=FALSE) +options(width = 120) +settings(show.scale = FALSE, show.meta = FALSE) ``` ### Description @@ -31,7 +31,7 @@ As a default the construct reflection invariant correlation Cohen's rc is calcul Note how the values change when the simple product-moment correlation is used instaed of Cohen's rc. Make sure you know what you are doing when setting `rc=FALSE`. ```{r} -elementCor(mackay1992, rc=F) +elementCor(mackay1992, rc = F) ``` Although nor recommended different measures, not invariant to construct relfection, can be prompoted, when setting `rc=FALSE`. @@ -43,14 +43,14 @@ Although nor recommended different measures, not invariant to construct relfecti To request these types of correlations use the `method` argument plus `rc=FALSE`. ```{r results='hide'} -elementCor(mackay1992, rc=FALSE, meth="kendall") # Kendalls tau correlation -elementCor(mackay1992, rc=FALSE, meth="spearman") # Spearman rank correlation +elementCor(mackay1992, rc = FALSE, meth = "kendall") # Kendalls tau correlation +elementCor(mackay1992, rc = FALSE, meth = "spearman") # Spearman rank correlation ``` Several arguments to format the output are available. ```{r} -elementCor(mackay1992, index=F, trim=6) +elementCor(mackay1992, index = F, trim = 6) ``` If the correlations are calculated for further processing, the correlations can be saved. diff --git a/vignettes/web/elements-distances-standardized.Rmd b/vignettes/web/elements-distances-standardized.Rmd index 3dff9ec8..aada95b6 100644 --- a/vignettes/web/elements-distances-standardized.Rmd +++ b/vignettes/web/elements-distances-standardized.Rmd @@ -14,15 +14,16 @@ vignette: > ```{r echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") -options(width=120) +options(width = 120) library(OpenRepGrid) -settings(show.scale=FALSE, show.meta=FALSE) +settings(show.scale = FALSE, show.meta = FALSE) ``` ```{r calc-data, echo=FALSE} -do.calc <- FALSE # do longer calculations? FALSE = use saved values -if (!do.calc) - load("data/distances.Rdata") # load objects that take long time to calculate +do.calc <- FALSE # do longer calculations? FALSE = use saved values +if (!do.calc) { + load("data/distances.Rdata") +} # load objects that take long time to calculate ``` @@ -55,7 +56,7 @@ You can save the results and define the way they are displayed using the `print` ```{r} d <- distanceSlater(boeker) -print(d, cutoffs=c(.8, 1.2)) +print(d, cutoffs = c(.8, 1.2)) ``` @@ -108,11 +109,11 @@ distanceHartmann(boeker) The second option (`method="simulate"`) is to simulate the distribution of distances based on the size and scale range of the grid under investigation. A distribution of Slater distances is derived using quasis and used for the Hartmann standardization instead of the precalculated values. The following simulation is based on `reps=1000` quasis. ```{r eval=do.calc, echo=FALSE, results='hide'} -h <- distanceHartmann(boeker, method="simulate", reps=1000) +h <- distanceHartmann(boeker, method = "simulate", reps = 1000) ``` ```{r eval=FALSE} -h <- distanceHartmann(boeker, method="simulate", reps=1000) +h <- distanceHartmann(boeker, method = "simulate", reps = 1000) h ``` @@ -123,7 +124,7 @@ h If the results are saved, there are a couple of options for printing the object (see `?print.hdistance`). ```{r} -print(d, p=c(.05, .95)) +print(d, p = c(.05, .95)) ``` @@ -172,7 +173,7 @@ $Y_{i}^P = \frac{Y^{\lambda}_i - \overline Y^{\lambda}}{\sigma_{Y^{\lambda}}}$ ### Literature ```{r save-data, echo=FALSE, eval=do.calc} -save(n, h, file="data/distances.Rdata") +save(n, h, file = "data/distances.Rdata") ``` diff --git a/vignettes/web/elements-distances.Rmd b/vignettes/web/elements-distances.Rmd index 7edaacc4..a16ee55b 100644 --- a/vignettes/web/elements-distances.Rmd +++ b/vignettes/web/elements-distances.Rmd @@ -15,8 +15,8 @@ vignette: > ```{r echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") library(OpenRepGrid) -options(width=120) -settings(show.scale=FALSE, show.meta=FALSE) +options(width = 120) +settings(show.scale = FALSE, show.meta = FALSE) ``` @@ -39,20 +39,20 @@ For most grid purposes, the first two options will suffice. In `OpenRepGrid` the function `distance` calculates various types of distances for constructs and for elements (the default is `euclidean`). The argument `along` determines if distances for 1) constructs or 2) elements are calculated. The default is to calculate distances for constructs, so we always need to set `along=2` to prompt element distances. ```{r} -distance(fbb2003, along=2) # along = 2 for elements +distance(fbb2003, along = 2) # along = 2 for elements ``` To change the distance measure supply any unambigous string of the available distance methods to the argument dmethod. E.g. for the manhattan distance bewteen constructs: ```{r} -distance(fbb2003, along=2, dmethod="man") +distance(fbb2003, along = 2, dmethod = "man") ``` For other distance metrics: ```{r results='hide'} -distance(fbb2003, along=2, dm="canb") # canberra distance for constructs -distance(fbb2003, along=2, dm="mink", p=3) # minkowski metric to the power of 3 for constructs +distance(fbb2003, along = 2, dm = "canb") # canberra distance for constructs +distance(fbb2003, along = 2, dm = "mink", p = 3) # minkowski metric to the power of 3 for constructs ``` If the distances are calculated for further processing, the printing to the console can be surpressed distance and the results can be saved into an object (here d). diff --git a/vignettes/web/installation.Rmd b/vignettes/web/installation.Rmd index 3c960c76..cf8d9f3b 100644 --- a/vignettes/web/installation.Rmd +++ b/vignettes/web/installation.Rmd @@ -55,5 +55,5 @@ install.packages(c("colorspace", "plyr", "abind", "rgl", "psych", "XML")) ```{r eval=FALSE} library(devtools) -install_github("OpenRepGrid", "markheckmann") +install_github("OpenRepGrid", "markheckmann") ``` diff --git a/vignettes/web/intro.Rmd b/vignettes/web/intro.Rmd index a89feb74..a9acddde 100644 --- a/vignettes/web/intro.Rmd +++ b/vignettes/web/intro.Rmd @@ -14,7 +14,7 @@ vignette: > ```{r setup, include=FALSE} knitr::opts_chunk$set( collapse = TRUE, - echo=FALSE, + echo = FALSE, comment = "#", fig.path = "man/figures/" ) diff --git a/vignettes/web/loading.Rmd b/vignettes/web/loading.Rmd index 165a77ab..b369e132 100644 --- a/vignettes/web/loading.Rmd +++ b/vignettes/web/loading.Rmd @@ -13,7 +13,7 @@ vignette: > ```{r echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") library(OpenRepGrid) -settings(show.scale=FALSE, show.meta=FALSE) +settings(show.scale = FALSE, show.meta = FALSE) ``` @@ -87,16 +87,16 @@ x <- importTxt("example.txt") You have to make sure, that the file exists in the current working directory. If not you either have to specify the whole path to the file or you must change the R working directory. ```{r eval=FALSE} -x <- importTxt("markheckmann/data/examples.txt") # whole path to file or -getwd() # show current working directory -setwd("markheckmann/data") # change working directory to the folder markheckmann/data -x <- importTxt("example.txt") # load file that is in the current working directory +x <- importTxt("markheckmann/data/examples.txt") # whole path to file or +getwd() # show current working directory +setwd("markheckmann/data") # change working directory to the folder markheckmann/data +x <- importTxt("example.txt") # load file that is in the current working directory ``` Another option that is available for all import functions is to supply no argument inside the brackets. In this case an interactive file selection dialog will open. ```{r eval=FALSE} -x <- importTxt() # without any arguments +x <- importTxt() # without any arguments ``` This will open a dialog window which allows you to select a file manually. @@ -109,36 +109,36 @@ To import from other grid programs works the same as importing a `.txt` file. Ei #### Gridcor ```{r eval=FALSE} -x <- importGridcor("gridcor.dat") # file in current R working directory or -x <- importGridcor("markheckmann/data/gridcor.dat") # whole file path or -x <- importGridcor() # open file selection dialog +x <- importGridcor("gridcor.dat") # file in current R working directory or +x <- importGridcor("markheckmann/data/gridcor.dat") # whole file path or +x <- importGridcor() # open file selection dialog ``` #### Gridstat ```{r eval=FALSE} -x <- importGridstat("gridstat.dat") # file in current R working directory or -x <- importGridstat("markheckmann/data/gridstat.dat") # whole file path or -x <- importGridstat() # open file selection dialog +x <- importGridstat("gridstat.dat") # file in current R working directory or +x <- importGridstat("markheckmann/data/gridstat.dat") # whole file path or +x <- importGridstat() # open file selection dialog ``` #### GridSuite ```{r eval=FALSE} -x <- importGridsuite("gridsuite.xml") # file in current R working directory or -x <- importGridsuite("markheckmann/data/gridsuite.xml") # whole file path or -x <- importGridsuite() # open file selection dialog +x <- importGridsuite("gridsuite.xml") # file in current R working directory or +x <- importGridsuite("markheckmann/data/gridsuite.xml") # whole file path or +x <- importGridsuite() # open file selection dialog ``` #### sci:vesco ```{r eval=FALSE} -x <- importScivesco("scivesco.scires") # file in current R working directory or +x <- importScivesco("scivesco.scires") # file in current R working directory or x <- importScivesco("markheckmann/data/scivesco.scires") # whole file path or -x <- importScivesco() # open file selection dialog +x <- importScivesco() # open file selection dialog ``` @@ -151,8 +151,8 @@ x <- importScivesco() # open file selection d To save a grid as a `.txt` file use the function `saveAsTxt`. It will save the grid as a .txt file in format used by `OpenRepGrid`. This file format can also easily be edited by hand (see `importTxt` for a description). The function will open an interactive dialog box to let the user enter a filename if no file argument is supplied in the function call. Let's suppose we want to strore the `boeker` grid. ```{r eval=FALSE} -saveAsTxt(boeker, "boeker.txt") # save it to the file "boeker.txt" -saveAsTxt(boeker) # open a dialog box to enter the file name interactively +saveAsTxt(boeker, "boeker.txt") # save it to the file "boeker.txt" +saveAsTxt(boeker) # open a dialog box to enter the file name interactively ``` @@ -161,7 +161,7 @@ saveAsTxt(boeker) # open a dialog box to enter the file name Another option is to save the grid as an `RData` object. This is done by using the function save. ```{r eval=FALSE} -save(boeker, file="boeker.RData") # save it to the file "boeker.RData" +save(boeker, file = "boeker.RData") # save it to the file "boeker.RData" ``` -In future versions of OpenRepGrid will also support the `.xml` format once a community standard has been agreed upon. \ No newline at end of file +In future versions of OpenRepGrid will also support the `.xml` format once a community standard has been agreed upon. diff --git a/vignettes/web/measures-conflict.Rmd b/vignettes/web/measures-conflict.Rmd index b1e70ae5..88ff5fdb 100644 --- a/vignettes/web/measures-conflict.Rmd +++ b/vignettes/web/measures-conflict.Rmd @@ -14,9 +14,9 @@ vignette: > ```{r echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") -options(width=120) +options(width = 120) library(OpenRepGrid) -settings(show.scale=FALSE, show.meta=FALSE) +settings(show.scale = FALSE, show.meta = FALSE) ``` @@ -71,7 +71,7 @@ For the Bassler et al. approach use ```{r} indexConflict2(boeker) -indexConflict2(boeker, crit =.05) # change critical value +indexConflict2(boeker, crit = .05) # change critical value ``` diff --git a/vignettes/web/measures-dispersion.Rmd b/vignettes/web/measures-dispersion.Rmd index 701483cb..cde74629 100644 --- a/vignettes/web/measures-dispersion.Rmd +++ b/vignettes/web/measures-dispersion.Rmd @@ -14,9 +14,9 @@ bibliography: literature.bib ```{r echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") -options(width=120) +options(width = 120) library(OpenRepGrid) -settings(show.scale=FALSE, show.meta=FALSE, show.cut=30) +settings(show.scale = FALSE, show.meta = FALSE, show.cut = 30) ``` @@ -100,13 +100,13 @@ where: ```{r} # sample grid from Walker et al. (1988), p. 67 -file <- system.file("extdata", "dep_grid_walker_1988_2.xlsx" , package = "OpenRepGrid") +file <- system.file("extdata", "dep_grid_walker_1988_2.xlsx", package = "OpenRepGrid") x <- importExcel(file) x ``` ```{r} -indexDDI(x, ds = 2:5) +indexDDI(x, ds = 2:5) ``` #### Uncertainty Index (UI) @@ -126,13 +126,13 @@ where: ```{r} # sample grid from Bell (2001, p.231) -file <- system.file("extdata", "dep_grid_bell_2001.xlsx" , package = "OpenRepGrid") +file <- system.file("extdata", "dep_grid_bell_2001.xlsx", package = "OpenRepGrid") x <- importExcel(file) x ``` ```{r} -indexUncertainty(x) +indexUncertainty(x) ``` ### Literature diff --git a/vignettes/web/measures-implicative.Rmd b/vignettes/web/measures-implicative.Rmd index c3aefeb7..10d7e474 100644 --- a/vignettes/web/measures-implicative.Rmd +++ b/vignettes/web/measures-implicative.Rmd @@ -14,9 +14,9 @@ vignette: > ```{r echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") -options(width=120) +options(width = 120) library(OpenRepGrid) -settings(show.scale=FALSE, show.meta=FALSE) +settings(show.scale = FALSE, show.meta = FALSE) ``` ### Description @@ -61,29 +61,29 @@ A depressive person considers herself as *timid* and wished to change to the opp To detect implicative dilemma use the function `indexDilemma`. It will output an overview over the arguments used in the detection, a table of classifications of the construct and the implicative dilemmas that have been detected. ```{r} -indexDilemma(boeker, self=1, ideal=2) +indexDilemma(boeker, self = 1, ideal = 2) ``` To change the values for the classification of the constructs as congruent and discrepant use the argument `diff.congruent`. The following output is identical to the Gridstat default. ```{r} -indexDilemma(boeker, self=1, ideal=2, diff.congruent=0) +indexDilemma(boeker, self = 1, ideal = 2, diff.congruent = 0) ``` Several other argumnets can be modified. Type the following code into the R console to see the results. ```{r eval=FALSE} -indexDilemma(boeker, self=1, ideal=2, output=2) # show identified dillemas only -indexDilemma(boeker, 1, 2, diff.disc=0, diff.con=4) # set classification parameters +indexDilemma(boeker, self = 1, ideal = 2, output = 2) # show identified dillemas only +indexDilemma(boeker, 1, 2, diff.disc = 0, diff.con = 4) # set classification parameters -indexDilemma(boeker, 1, 2, index=F) # no index numbers -indexDilemma(boeker, 1, 2, trim=20) # trim construct labels +indexDilemma(boeker, 1, 2, index = F) # no index numbers +indexDilemma(boeker, 1, 2, trim = 20) # trim construct labels ``` Called for console output. Invisibly returns a list containing the result dataframes and all results from the calculations. ```{r eval=FALSE} -r <- indexDilemma(boeker, self=1, ideal=2) +r <- indexDilemma(boeker, self = 1, ideal = 2) r$res1 r$res2 r$res3 diff --git a/vignettes/web/measures-intensity.Rmd b/vignettes/web/measures-intensity.Rmd index 88c47c78..3401526a 100644 --- a/vignettes/web/measures-intensity.Rmd +++ b/vignettes/web/measures-intensity.Rmd @@ -14,9 +14,9 @@ vignette: > ```{r echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") -options(width=120) +options(width = 120) library(OpenRepGrid) -settings(show.scale=FALSE, show.meta=FALSE) +settings(show.scale = FALSE, show.meta = FALSE) ``` diff --git a/vignettes/web/measures-pvaff.Rmd b/vignettes/web/measures-pvaff.Rmd index 52c77e16..bc35511b 100644 --- a/vignettes/web/measures-pvaff.Rmd +++ b/vignettes/web/measures-pvaff.Rmd @@ -14,9 +14,9 @@ vignette: > ```{r echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") -options(width=120) +options(width = 120) library(OpenRepGrid) -settings(show.scale=FALSE, show.meta=FALSE) +settings(show.scale = FALSE, show.meta = FALSE) ``` diff --git a/vignettes/web/reordering.Rmd b/vignettes/web/reordering.Rmd index 015944b9..98bd8586 100644 --- a/vignettes/web/reordering.Rmd +++ b/vignettes/web/reordering.Rmd @@ -14,9 +14,9 @@ vignette: > ```{r echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") -options(width=120) +options(width = 120) library(OpenRepGrid) -settings(show.scale=FALSE, show.meta=FALSE, show.cut=30) +settings(show.scale = FALSE, show.meta = FALSE, show.cut = 30) ``` ### Description @@ -32,7 +32,7 @@ The direction of the constructs in a grid is arbitrary and a reflection of a sca To align a construct by preference, an ideal element has to be defined. For the following example it is element 13 (*ideal self*). ```{r} -alignByIdeal(feixas2004, 13) +alignByIdeal(feixas2004, 13) ``` Note that when midpoint ratings are present no preferred pole can be identified, as it is the case for one construct in the example above. @@ -40,13 +40,13 @@ Note that when midpoint ratings are present no preferred pole can be identified, As a default the preferred poles are assigned to the right side. You can use the argument `high=FALSE` to indicate that high ratings will correspond to the negative pole. Hence, the preferred pole will be in the left side of the grid. ```{r} -alignByIdeal(feixas2004, 13, high=F) +alignByIdeal(feixas2004, 13, high = F) ``` To save the assigned grid into a new object: ```{r} -x <- alignByIdeal(feixas2004, 13) +x <- alignByIdeal(feixas2004, 13) ``` diff --git a/vignettes/web/settings.Rmd b/vignettes/web/settings.Rmd index 0ff601fc..9141b034 100644 --- a/vignettes/web/settings.Rmd +++ b/vignettes/web/settings.Rmd @@ -13,7 +13,7 @@ vignette: > ```{r include = FALSE, echo=FALSE, message=FALSE, warning=FALSE} library(knitr) knitr::opts_chunk$set(collapse = TRUE, comment = "#") -options(width=120) +options(width = 120) library(OpenRepGrid) ``` @@ -32,7 +32,7 @@ fbb2003 To change the settings enter the new parameters as `name=value` pairs. To turn off the display of the scale and meta information type in ```{r} -settings(show.scale=FALSE, show.meta=FALSE) +settings(show.scale = FALSE, show.meta = FALSE) ``` Now all grids are displayed without this information: @@ -44,13 +44,13 @@ fbb2003 Other settings that can be modified are maximal length of the construct that is displayed. Changing `show.cut`to `40` will prevent that the names of the constructs are cut off. ```{r} -settings(show.cut=40) +settings(show.cut = 40) fbb2003 ``` In order to not print the number of constructs and elements you can turn off this options by ```{r} -settings(c.no=FALSE, e.no=FALSE) +settings(c.no = FALSE, e.no = FALSE) fbb2003 -``` \ No newline at end of file +``` diff --git a/vignettes/web/visualization-bertin.Rmd b/vignettes/web/visualization-bertin.Rmd index d60b0832..3f345230 100644 --- a/vignettes/web/visualization-bertin.Rmd +++ b/vignettes/web/visualization-bertin.Rmd @@ -12,9 +12,9 @@ vignette: > ```{r echo=FALSE, message=FALSE, warning=FALSE} knitr::opts_chunk$set(collapse = TRUE, comment = "#") -options(width=120) +options(width = 120) library(OpenRepGrid) -settings(show.scale=FALSE, show.meta=FALSE) +settings(show.scale = FALSE, show.meta = FALSE) ``` @@ -37,7 +37,7 @@ Various settings can be modified in the `bertin` function. To see the whole set E.g. to change the color of the display use the argument color. ```{r bertin-color} -bertin(boeker, color=c("white", "darkred")) +bertin(boeker, color = c("white", "darkred")) ``` **Printing of Scores** @@ -45,7 +45,7 @@ bertin(boeker, color=c("white", "darkred")) To suppress the printing of the scores and only plot the colors use ```{r bertin-color-no-values} -bertin(boeker, showvalues=FALSE) +bertin(boeker, showvalues = FALSE) ``` @@ -54,9 +54,9 @@ bertin(boeker, showvalues=FALSE) The argument `id` allows to manage the printing of an index number of the elements and constructs. ```{r eval=FALSE} -bertin(boeker, id=c(T, F)) # only index numbers for constructs -bertin(boeker, id=c(F, T)) # only index numbers for elements -bertin(boeker, id=c(F, F)) # no index numbers +bertin(boeker, id = c(T, F)) # only index numbers for constructs +bertin(boeker, id = c(F, T)) # only index numbers for elements +bertin(boeker, id = c(F, F)) # no index numbers ``` @@ -73,25 +73,25 @@ bertinCluster(feixas2004) To apply different distance and cluster methods use the arguments `dmethod` (abbreveated: `dm`) and `cmethod` (abbreveated: cm). For more information on clustering go to here. The following code uses `manhattan` distance and `single` linkage clustering. ```{r bertin-cluster-2, warning=FALSE, message=FALSE, fig.height=8} -bertinCluster(feixas2004, dmethod="manhattan", cm="single") +bertinCluster(feixas2004, dmethod = "manhattan", cm = "single") ``` Sometimes it is desirable to spot structures by eye-balling the colors. For this purpose the printing of the scores can be surpressed. ```{r bertin-no-ratings, eval=FALSE} -bertinCluster(feixas2004, showvalues=FALSE) +bertinCluster(feixas2004, showvalues = FALSE) ``` Other options include to suppress the axis of the dendrogram ```{r eval=FALSE} -bertinCluster(feixas2004, draw.axis=F) # no axis drawn for dendrogram +bertinCluster(feixas2004, draw.axis = F) # no axis drawn for dendrogram ``` or to chose a rectangular type of dendrogram. ```{r bertin-rectangular, warning=FALSE, message=FALSE, fig.height=8} -bertinCluster(feixas2004, type="rectangle") # rectangle type dendrogram +bertinCluster(feixas2004, type = "rectangle") # rectangle type dendrogram ``` diff --git a/vignettes/web/visualization-biplot.Rmd b/vignettes/web/visualization-biplot.Rmd index cebb506e..70c8864f 100644 --- a/vignettes/web/visualization-biplot.Rmd +++ b/vignettes/web/visualization-biplot.Rmd @@ -14,9 +14,9 @@ vignette: > ```{r setup, echo=FALSE, results='asis', message=FALSE, warning=FALSE} library(rgl) library(OpenRepGrid) -settings(show.scale=FALSE, show.meta=FALSE) +settings(show.scale = FALSE, show.meta = FALSE) library(knitr) -knitr::opts_chunk$set(collapse = TRUE, comment = "#", fig.height=6) +knitr::opts_chunk$set(collapse = TRUE, comment = "#", fig.height = 6) knit_hooks$set(webgl = hook_webgl) ``` @@ -46,7 +46,7 @@ All of these functions allow to change a lot of their settings. To see the whole `biplotSimple` is a graphically unsophisticated version of a biplot. It will draw elements and constructs vectors using similar arguments as `biplot2d`. It is a version for quick exploration used during development. The colors of the constructs has been set to `darkred` to make it easier to differentiate between constructs and element labels. ```{r biplot-simple} -biplotSimple(boeker, c.label.col="darkred") +biplotSimple(boeker, c.label.col = "darkred") ``` @@ -76,7 +76,7 @@ biplot3d(boeker) ```{r biplot3, echo=FALSE, webgl=TRUE, results='hide', fig.width=5, fig.height=5} biplot3d(boeker) -view3d(theta = 0, phi = 0, zoom=.75) +view3d(theta = 0, phi = 0, zoom = .75) ``` ### Pre-transformations @@ -88,15 +88,15 @@ In OpenRepGrid different options for centering and normalization (also called sc If the output is affected by pre-scaling the corresponding function in OpenRepGrid offers an argument to specify the form of pre-scaling to be used. The following figures demonstrate how different forms of pre-scaling lead to different representation. ```{r biplot2d-transforms-1} -biplot2d(boeker, center=1, normalize=0) +biplot2d(boeker, center = 1, normalize = 0) ``` ```{r biplot2d-transforms-2} -biplot2d(boeker, center=2, normalize=0) +biplot2d(boeker, center = 2, normalize = 0) ``` ```{r biplot2d-transforms-3} -biplot2d(boeker, center=1, normalize=2) +biplot2d(boeker, center = 1, normalize = 2) ``` @@ -120,7 +120,7 @@ The first version of a joint spatial representation of elements and constructs h ```{r eval=FALSE} biplotSlater2d(boeker) -biplot2d(boeker, center=1, g=1, h=1) # compare to previous plot +biplot2d(boeker, center = 1, g = 1, h = 1) # compare to previous plot biplotSlaterPseudo3d(boeker) biplotSlater3d(boeker) @@ -132,7 +132,7 @@ The ESA is a special type of biplot suggested by Raeithel (e.g. 1998). It uses m ```{r eval=FALSE} biplotEsa2d(boeker) -biplot2d(boeker, center=1, g=1, h=1) # compare to previous plot +biplot2d(boeker, center = 1, g = 1, h = 1) # compare to previous plot biplotEsaPseudo3d(boeker) biplotEsa3d(boeker) @@ -144,30 +144,32 @@ biplotEsa3d(boeker) A lot of arguments affecting the appearance of the biplot can be changed. For a full list see biplot2d. The following codes correspond to the figures in the gallery below. It gives an impression of what can be changed in `biplot2d`. Most arguments also apply to the other biplot functions (see above). ```{r eval=FALSE} -biplot2d(boeker, e.label.col="red", c.label.col="blue") # plot1: change label colors -biplot2d(boeker, e.point.col="red", c.point.col="blue") # plot2: change symbol colors +biplot2d(boeker, e.label.col = "red", c.label.col = "blue") # plot1: change label colors +biplot2d(boeker, e.point.col = "red", c.point.col = "blue") # plot2: change symbol colors -biplot2d(boeker, e.label.cex=1, c.label.cex=.5) # plot3: change label size -biplot2d(boeker, e.point.cex=1.5, c.point.cex=.5) # plot4 :change symbol size +biplot2d(boeker, e.label.cex = 1, c.label.cex = .5) # plot3: change label size +biplot2d(boeker, e.point.cex = 1.5, c.point.cex = .5) # plot4 :change symbol size -biplot2d(boeker, zoom=.5) # plot5: zoom out -biplot2d(boeker, zoom=2.5) # plot6: zoom in +biplot2d(boeker, zoom = .5) # plot5: zoom out +biplot2d(boeker, zoom = 2.5) # plot6: zoom in -biplot2d(boeker, unity=T) # plot7: scale construct & element vectors to equal length -biplot2d(boeker, unity=T, scale.e=.5) # plot8: scaling factor for element vectors +biplot2d(boeker, unity = T) # plot7: scale construct & element vectors to equal length +biplot2d(boeker, unity = T, scale.e = .5) # plot8: scaling factor for element vectors -biplot2d(boeker, e.labels.show=F) # plot9: do not show element labels -biplot2d(boeker, e.labels.show=c(1,2,4)) # plot10: show labels for elements 1, 2 and 4 -biplot2d(boeker, e.points.show=c(1,2,4)) # plot11: only show elements 1, 2 and 4 -biplot2d(boeker, c.labels.show=1:4) # plot12: show constructs labels 1 to 4 +biplot2d(boeker, e.labels.show = F) # plot9: do not show element labels +biplot2d(boeker, e.labels.show = c(1, 2, 4)) # plot10: show labels for elements 1, 2 and 4 +biplot2d(boeker, e.points.show = c(1, 2, 4)) # plot11: only show elements 1, 2 and 4 +biplot2d(boeker, c.labels.show = 1:4) # plot12: show constructs labels 1 to 4 -biplot2d(boeker, g=1, h=1, c.labels.inside=T, # plot13: different margins and element color - mai=c(0,0,0,0), e.label.col="blue") +biplot2d(boeker, + g = 1, h = 1, c.labels.inside = T, # plot13: different margins and element color + mai = c(0, 0, 0, 0), e.label.col = "blue" +) -biplot2d(boeker, flipaxes=c(T, F)) # plot14: flip x axis +biplot2d(boeker, flipaxes = c(T, F)) # plot14: flip x axis -biplot2d(boeker, outer.positioning=F) # plot15: no positioning of construct labels -biplot2d(boeker, c.labels.devangle=20) # plot16: only show constructs within 20 degree angle from xy plane +biplot2d(boeker, outer.positioning = F) # plot15: no positioning of construct labels +biplot2d(boeker, c.labels.devangle = 20) # plot16: only show constructs within 20 degree angle from xy plane ```