【R】データ集計(未編集)

h_num_list<-(1:100)

#start_MOR
start_MOR<-data.frame()

for (list_num in h_num_list) {

h_num_data<-table[table$h_num==h_num,]
h_num_data_start<-h_num_data[1,]$MOR
start_tmp<-data.frame(list_num)
colnames(start_tmp)<-c("start")
start_MOR<-rbind(start_MOR,start_tmp)
}

#end_MOR
end_MOR<-data.frame()

for (list_num in h_num_list) {

h_num_data<-table[table$h_num==h_num,]
end_row<-nrow(h_num_data)
h_num_data_start<-h_num_data[end_row,]$MOR
end_tmp<-data.frame(list_num)
colnames(end_tmp)<-c("end")
}

#start_O
start_O<-data.frame()

for (list_num in h_num_list) {

h_num_data<-table[table$h_num==h_num,]
h_num_data_start<-h_num_data[1,]$MOR
start_tmp<-data.frame(list_num)
colnames(start_tmp)<-c("start")
}

for (h_data in h_list) {

}

h_start<-
h_cp<-
h_cp_data<-rbind(h_start,h_cp)
row_num<-nrow(h_cp_data)

o_diff<-data.frame()

for(h_list in 1:(row_num-1){

diff<-h_cp_data[(h_list+1),]$O-h_cp_data[h_list,]$O　

data.frame(diff)
cbind()

}
bind_rows()