Displaying 1 result from an estimated 1 matches for "borehole_numb".
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
...=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) # collar number #define an empty data.frame borehole_Out<-data.frame(BHID=integer(),FROM=numeric(),TO=numeric()) # initialize the counter i=1 # from this point starts the loop--------------- while(i<=borehole_number){ DFi <- subset(DF, BHID...