From bc3825ae2d12c18ea3d3caf17eb23c93fef180b8 Mon Sep 17 00:00:00 2001
From: Johannes Ranke
#> parent_0 k_parent_sink sigma -#> 82.4921598 0.3060633 4.6730124parms(fit, transformed = TRUE)#> parent_0 log_k_parent_sink sigma -#> 82.492160 -1.183963 4.673012+parms(fit)#> parent_0 k_parent sigma +#> 82.4921598 0.3060633 4.6730124parms(fit, transformed = TRUE)#> parent_0 log_k_parent sigma +#> 82.492160 -1.183963 4.673012# mmkin objects ds <- lapply(experimental_data_for_UBA_2019[6:10], function(x) subset(x$data[c("name", "time", "value")])) names(ds) <- paste("Dataset", 6:10) # \dontrun{ -fits <- mmkin(c("SFO", "FOMC", "DFOP"), ds, quiet = TRUE, cores = 1) -parms(fits["SFO", ])#> Dataset 6 Dataset 7 Dataset 8 Dataset 9 Dataset 10 -#> parent_0 88.52275400 82.666781678 86.8547308 91.7779306 82.14809450 -#> k_parent_sink 0.05794659 0.009647805 0.2102974 0.1232258 0.00720421 -#> sigma 5.15274487 7.040168584 3.6769645 6.4669234 6.50457673parms(fits[, 2])#> $SFO -#> Dataset 7 -#> parent_0 82.666781678 -#> k_parent_sink 0.009647805 -#> sigma 7.040168584 +fits <- mmkin(c("SFO", "FOMC", "DFOP"), ds, quiet = TRUE, cores = 1)#> Warning: Shapiro-Wilk test for standardized residuals: p = 0.0195#> Warning: Shapiro-Wilk test for standardized residuals: p = 0.00408#> Warning: Shapiro-Wilk test for standardized residuals: p = 0.0492#> Warning: Shapiro-Wilk test for standardized residuals: p = 0.00985#> Warning: Shapiro-Wilk test for standardized residuals: p = 0.00815#> Warning: Shapiro-Wilk test for standardized residuals: p = 0.011parms(fits["SFO", ])#> Dataset 6 Dataset 7 Dataset 8 Dataset 9 Dataset 10 +#> parent_0 88.52275400 82.666781678 86.8547308 91.7779306 82.14809450 +#> k_parent 0.05794659 0.009647805 0.2102974 0.1232258 0.00720421 +#> sigma 5.15274487 7.040168584 3.6769645 6.4669234 6.50457673parms(fits[, 2])#> $SFO +#> Dataset 7 +#> parent_0 82.666781678 +#> k_parent 0.009647805 +#> sigma 7.040168584 #> #> $FOMC #> Dataset 7 @@ -221,10 +220,10 @@ such matrices is returned. #> g 0.526942415 #> sigma 2.221302196 #>parms(fits)#> $SFO -#> Dataset 6 Dataset 7 Dataset 8 Dataset 9 Dataset 10 -#> parent_0 88.52275400 82.666781678 86.8547308 91.7779306 82.14809450 -#> k_parent_sink 0.05794659 0.009647805 0.2102974 0.1232258 0.00720421 -#> sigma 5.15274487 7.040168584 3.6769645 6.4669234 6.50457673 +#> Dataset 6 Dataset 7 Dataset 8 Dataset 9 Dataset 10 +#> parent_0 88.52275400 82.666781678 86.8547308 91.7779306 82.14809450 +#> k_parent 0.05794659 0.009647805 0.2102974 0.1232258 0.00720421 +#> sigma 5.15274487 7.040168584 3.6769645 6.4669234 6.50457673 #> #> $FOMC #> Dataset 6 Dataset 7 Dataset 8 Dataset 9 Dataset 10 @@ -241,15 +240,15 @@ such matrices is returned. #> g 0.44845068 0.526942415 0.66091965 0.65322767 0.342652880 #> sigma 1.35690468 2.221302196 1.34169076 2.87159846 1.942067831 #>parms(fits, transformed = TRUE)#> $SFO -#> Dataset 6 Dataset 7 Dataset 8 Dataset 9 Dataset 10 -#> parent_0 88.522754 82.666782 86.854731 91.777931 82.148094 -#> log_k_parent_sink -2.848234 -4.641025 -1.559232 -2.093737 -4.933090 -#> sigma 5.152745 7.040169 3.676964 6.466923 6.504577 +#> Dataset 6 Dataset 7 Dataset 8 Dataset 9 Dataset 10 +#> parent_0 88.522754 82.666782 86.854731 91.777931 82.148094 +#> log_k_parent -2.848234 -4.641025 -1.559232 -2.093737 -4.933090 +#> sigma 5.152745 7.040169 3.676964 6.466923 6.504577 #> #> $FOMC #> Dataset 6 Dataset 7 Dataset 8 Dataset 9 Dataset 10 -#> parent_0 95.5585751 92.6837649 90.7197870 98.38393896 94.848146 -#> log_alpha 0.2916741 -0.6996015 0.4941466 0.07181817 -1.271085 +#> parent_0 95.5585751 92.6837649 90.7197870 98.38393897 94.848146 +#> log_alpha 0.2916741 -0.6996015 0.4941466 0.07181816 -1.271085 #> log_beta 2.5675088 2.6493701 1.6108523 1.48095106 1.932278 #> sigma 1.8476712 1.9167519 1.0660627 3.14605557 1.622278 #> -- cgit v1.2.1