Displaying 1 result from an estimated 1 matches for "borehole_out".
2013 Nov 24
1
create a new dataframe with intervals and computing a weighted average for each of its rows
...lass 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 %in% borehole_names[i,1]) # Individual data frame for each boreholes # take the beginnin...