require(plotrix)

#data(soils)
# im Verzeichnis Daten steht der dataframe

soildata <- read.table("Textur.txt")
soil.texture()
#
main.title<-"SOIL TEXTURE PLOT"
soil.texture(soildata,
             main=main.title,
             show.lines=TRUE,
             show.names=TRUE,
             pch=15)
#
# 1. Lesen Sie den Dataframe textur.txt ein (header = TRUE)
# 2. Was macht der Befehl soil.texture() ohne Argumente?
# 3. Erkunden Sie die library plotrix (help.start())
# 4. Analysieren Sie den Quellcode von soil.texture()
# 5. Welches Texturdreieck wurde hier verwendet: WRB, DIN, KA5, ..?
#