Displaying 1 result from an estimated 1 matches for "endbh".
Did you mean:
lndbh
2013 Nov 24
1
create a new dataframe with intervals and computing a weighted average for each of its rows
...# initialize the counter i=1 # from this point starts the loop--------------- while(i<=borehole_number){ DFi <- subset(DF, BHID %in% borehole_names[i,1]) # Individual data frame for each boreholes # take the beginning and end of every BOREHOLE startBH<-head(DFi$FROM,1) endBH<-tail(DFi$TO,1) # create the normalized intervals borehole_i<-divide.int(FROM=startBH,TO=endBH,div=LEN) borehole_Out<-rbind(borehole_Out,borehole_i) i=i+1 } borehole_Out } # TEST------------------------------------------ TEST<-skeleton(DF=DF,LEN=3.0) TEST$L...