HIndivabs {Laterality}

HIndivabs: this function calculates the absolute Handedness Index of each individual for each activity and plots the corresponding histogram.

Description

Calculates the absolute Handedness Index of each individual regarding to each task performed and plots the corresponding histogram for each individual. The results can be saved in a .csv file.

Usage

  HIndivabs(data, catch = "Food", hand = "Hand", indiv = "Indiv", 
  RightHand = "R", LeftHand = "L", col = 1:length(levels
  (data[[catch]])), ylab = "Absolute handedness index", 
  main = "Hand preference regarding to the performed task by each individual",
  cex.main = 1, legend.text = FALSE, beside = TRUE, 
  ylim = c(0, 1), vlines = TRUE, hlines = TRUE, legendlocation = TRUE, 
  cex = 1, pt.cex = 2, pch = 15, savetable = FALSE, 
  file = "HIperIndivabs.csv")

Arguments

data

The object (data.frame) containing your data with at least the qualitative variables concerning the hand used (hand), the individuals (indiv) and the activity performed (catch).

catch

The name/header of the column concerning the activity carried out (by default "Food"), if you made individuals catching different objects (ob1, ob2, ob3, ob4) and named the variale "ObjectCatched", write catch = "ObjectCatched".

hand

The name/header of the column concerning the hand used (by default "Hand").

indiv

The name/header of the column concerning the individuals (by default "Indiv").

RightHand

The code used in the database (and particularly in the "hand" variable) for "RightHand". If "RightHand" is coded as "Right" write RightHand = "Right" (by default "R").

LeftHand

The code used in the database (and particularly in the "hand" variable) for "LeftHand". If "LeftHand" is coded as "Left" write LeftHand = "Left" (by default "L").

col

A list of color for the bars of the histogram. By default it will automatically find the number of colors you need but it's using the 8 colors of the default palette of R. If you need more don't forget to select another palette or to name the color you want to add.

ylab

A title for the y axis.

main

The main title of the graph.

cex.main

A numeric giving the size of the main title characters.

legend.text

If legend.text = TRUE, the legend will be automatically placed on the graph. If legend.text = FALSE, no legend will appear except if legendlocation = TRUE.

beside

If FALSE, the columns of height are portrayed as stacked bars, and if TRUE the columns are portrayed as juxtaposed bars.

ylim

The minimum and maximum value of the y axis. For example ylim = c(0,500). By default (ylim = NULL) the values are automatically selected.

vlines

If vlines = TRUE (by default), vertical lines are drawn between the histogram of each individual.

hlines

If hlines = TRUE (by defaut), horizontal lines are drawn at y = 0 for each histogram.

legendlocation

If TRUE you will have to click where you want to place the legend after the plot is done.

cex

A numeric giving the size of the legend characters.

pt.cex

A numeric giving the size of the legend points.

pch

This can either be a single character or an integer code for one of a set of graphics symbols. This will be applied to the legend. (By default pch = 15 which is square).

savetable

This arguments permits to save directly the results of the function in a .csv file in the workspace of R. If savetable = "csv" there will be "." for the decimal point and a "," for the separator. If savetable = "csv2" there will be "," for the decimal point and a ";" for the separator. (by default savetable = FALSE)

file

This argument will work if savetable = "csv" or "csv2". It gives the name of the csv file saved (by default file = "HIperIndivabs.csv")

Value

The function returns results of class "matrix".

Author(s)

Borel A., Pouydebat E., Reghem E. <[e-mail]>

Examples

  ## With arguments corresponding to the default ones:
  data(laterdata)
  str(laterdata)
  Data<-laterdata
  HIndivabs(Data, catch="Food", hand="Hand", indiv = "Indiv", 
  RightHand = "R", LeftHand = "L", legendlocation=FALSE, legend.text=TRUE)
  ## or
  HIndivabs(Data, legendlocation=FALSE, legend.text=TRUE)
  

  ## With arguments different from the default ones:
  data(lateradata)
  str(lateradata)
  Data<-lateradata
  HIndivabs(Data, catch="Act", hand="HandPref", indiv = "Individual", 
  RightHand = "Right",   LeftHand = "Left", legendlocation=FALSE, legend.text=TRUE)