knitr::opts_chunk$set( collapse = TRUE, comment = "#>", dev = "png", dev.args = list(type = "cairo-png") )
Traveling systems use a single large sprinkler (typically called a "gun-type" sprinkler) attached to a cart that is pulled either by a cable or by the supply hose along a straight line for a distance as far as the length of the supply hose. Cable systems pull the cart by winding in the cable attached to the gun cart, while hose-pull systems use the hose to pull the cart and gun towards the reel from which the hose is wound. Hose-type systems are far more common than cable-tow systems. To achieve overlap and thus acceptable uniformity, "travel lanes" are established such that adjacent pulls result in application overlap. Evaluation of uniformity for such systems differs from linear-move or solid-set systems in that a single row (transect) of catch containers are used rather than a grid. The catch can transect is aligned perpendicular to the gun travel direction. During an evaluation test, the sprinkler is moved through the catch can transect beginning with the sprinkler gun positioned beyond the transect, so that it throws short of the catch can transect, until it no longer contributes to the catch cans on the other side of the transect. Overlap for the test is then achieved by superimposing the catch data according to the adjacent travel lane distances (adjacent pulls).
Data for this example are taken from the
catchcan dataset. The raw data and stationing, and a plot of the raw data are given below:
data(catchcan) cc.data<-catchcan$traveler knitr::kable(t(cc.data),format="html",caption="Raw data")
We now can use the
travunif function to both overlap the data and return uniformity measures. This function in turn calls
DU.lh to return those measures of uniformity. Two plots, a plan view of the catch can data, and a plot of the overlapped depths will also be generated (unless plot="F").
lcdata<-cc.data[1:8,2] #left data is first 8 observations rcdata<-cc.data[9:16,2]#right data is last 8 observations out<-travunif(ls=224,cs=20,lcdata,rcdata)#omit site name, and allow plot
The uniformity measures for this example are:
header<-c(names(out),names(out),names(out))#extract names of returned list values<-c(out$CU,out$DUlh,out$DU) #explicitly extract numeric values knitr::kable(t(round(values,1)),format="html",col.names=header,caption="Uniformity measures")
We can also determine PELQ using the catch can data and the applied depth of water. We'll use the overlapped catch data returned from
#overlapped depths are first in list returned from #`travunif` PELQT(out$o.depths,SI=FALSE,rate=197,ls=224,ts=1.75)
Evans, R.O., Barker J.C., Smith J.T., Sheffield R.E. 1997b. Field calibration procedures for animal wastewater application equipment, hard hose and cable tow traveler irrigation system. NC Cooperative Extension Service publication AG-553-2. Raleigh, NC (https://p2infohouse.org/ref/32/31084/ag-553-2.pdf)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.