Beispielskript ADI

#-----------------   Achtung -----------------------------
# neue Library laden siehe  Package_Dominance

# data_ADI auch ohne laden des Exelfiles als DEMO Daten verfügbar
# Demo Exelfile siehe: Demodaten ADI
library(Dominance) #ADI Social Network Graph

#---------------------------------------   Laden der Excel Datei Anfang  --------------------------------------------------------

library(XLConnect) #read.xls
setwd('path to demo_adi.xls') #set path
excelfile<-"demo_ADI.xls"  #change filename
wb <- loadWorkbook(excelfile)
data_ADI <- readWorksheet(wb, sheet = "testdata1")  #change sheet name
# possible parameters: startRow = 1, startCol = 3,endRow = 15, endCol = 8

#---------------------------------------   Laden der Excel Datei Ende     --------------------------------------------------------
bytes= "001111111"  # all  encounters  without leading and folling

ADI <- ADI(data_ADI,bytes )
ADI   # ADI ausgeben