Displaying 1 result from an estimated 1 matches for "borehole_nam".
Did you mean:
borehole_num
2013 Nov 24
1
create a new dataframe with intervals and computing a weighted average for each of its rows
...le dataframe.
skeleton<-function(DF,LEN){ # define function to create a new skeleton divide.int<-function(FROM,TO,div){ n=as.integer((FROM-TO)/div)+1 from=seq(FROM,(FROM-(n-1)*div),-div) to=seq(FROM-(n-(n-1))*div,FROM-(n-1)*div,-div) to[n]=TO range<-data.frame(BHID=borehole_names[i,1],FROM=from,TO=to) # create a data.frame class object range<-range[!(range$FROM==range$TO),] # erase the last value } # subset the data set for every borehole borehole_names<-unique(DF["BHID"]) # collars id with cores borehole_number<-nrow(borehole_names) # c...