Mercurial > repos > greg > insect_phenology_model

comparison insect_phenology_model.R @ 51:3f827fe31756 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Wed, 08 Aug 2018 14:16:32 -0400
parents 927321ed0322
children b7c9837047d9
comparison
equal deleted inserted replaced
50:927321ed0322 51:3f827fe31756
562 process_adults = FALSE; 562 process_adults = FALSE;
563 process_previttelogenic_adults = FALSE; 563 process_previttelogenic_adults = FALSE;
564 process_vittelogenic_adults = FALSE; 564 process_vittelogenic_adults = FALSE;
565 process_diapausing_adults = FALSE; 565 process_diapausing_adults = FALSE;
566 process_total_adults = FALSE; 566 process_total_adults = FALSE;
567 process_total = FALSE;
567 for (life_stage in life_stages) { 568 for (life_stage in life_stages) {
568 if (life_stage=="Total") { 569 if (life_stage=="Total") {
569 process_eggs = TRUE; 570 process_eggs = TRUE;
570 process_nymphs = TRUE; 571 process_nymphs = TRUE;
571 process_adults = TRUE; 572 process_adults = TRUE;
573 process_total = TRUE;
572 } else if (life_stage=="Egg") { 574 } else if (life_stage=="Egg") {
573 process_eggs = TRUE; 575 process_eggs = TRUE;
574 } else if (life_stage=="Nymph") { 576 } else if (life_stage=="Nymph") {
575 process_nymphs = TRUE; 577 process_nymphs = TRUE;
576 } else if (life_stage=="Adult") { 578 } else if (life_stage=="Adult") {
1433 temperature_data_frame_F1 = append_vector(temperature_data_frame_F1, F1_total_adults.std_error, "TOTALADULT.F1.SE"); 1435 temperature_data_frame_F1 = append_vector(temperature_data_frame_F1, F1_total_adults.std_error, "TOTALADULT.F1.SE");
1434 F2_total_adults = m_se[[5]]; 1436 F2_total_adults = m_se[[5]];
1435 F2_total_adults.std_error = m_se[[6]]; 1437 F2_total_adults.std_error = m_se[[6]];
1436 temperature_data_frame_F2 = append_vector(temperature_data_frame_F2, F2_total_adults, "TOTALADULT.F2"); 1438 temperature_data_frame_F2 = append_vector(temperature_data_frame_F2, F2_total_adults, "TOTALADULT.F2");
1437 temperature_data_frame_F2 = append_vector(temperature_data_frame_F2, F2_total_adults.std_error, "TOTALADULT.F2.SE"); 1439 temperature_data_frame_F2 = append_vector(temperature_data_frame_F2, F2_total_adults.std_error, "TOTALADULT.F2.SE");
1440 }
1441 if (process_total) {
1442 temperature_data_frame_P = append_vector(temperature_data_frame_P, P, "ALL.TOTAL.P");
1443 temperature_data_frame_P = append_vector(temperature_data_frame_P, P.std_error, "ALL.TOTAL.P.SE");
1444 temperature_data_frame_F1 = append_vector(temperature_data_frame_F1, F1, "ALL.TOTAL.F1");
1445 temperature_data_frame_F1 = append_vector(temperature_data_frame_F1, F1.std_error, "ALL.TOTAL.F1.SE");
1446 temperature_data_frame_F2 = append_vector(temperature_data_frame_F2, F2, "ALL.TOTAL.F2");
1447 temperature_data_frame_F2 = append_vector(temperature_data_frame_F2, F2.std_error, "ALL.TOTAL.F2.SE");
1438 } 1448 }
1439 } 1449 }
1440 1450
1441 # Save the analyzed data for combined generations. 1451 # Save the analyzed data for combined generations.
1442 file_path = paste("output_data_dir", "04_combined_generations.csv", sep="/"); 1452 file_path = paste("output_data_dir", "04_combined_generations.csv", sep="/");