Iron-regulatory proteins secure iron availability in cardiomyocytes to prevent heart failure
- SabaHaddad
- YongWang
- BrunoGaly
- MortimerKorf-Klingebiel
- ValentinHirsch
- Abdul M.Baru
- FatemehRostami
- Marc R.Reboll
- JörgHeineke
- UlrichFlögel
- StephanieGroos
- AndréRenner
- KarlToischer
- FabianZimmermann
- StefanEngeli
- JensJordan
- JohannBauersachs
- Matthias W.Hentze
- Kai C.Wollert
- TiborKempf
Results
Reduced iron content, IRE binding activity, and transferrin receptor expression in the failing human heart
library(tidyverse)
#> Warning: package 'tibble' was built under R version 3.6.2
#> Warning: package 'purrr' was built under R version 3.6.2
#> Warning: package 'dplyr' was built under R version 3.6.2
labels <- list('non-failing heart (NF)', 'failing heart (F)')
data<-structure(list(NF = c("99", "96", "100", "105", "NA_integer_", "NA_integer_", "NA_integer_", "NA_integer_", "NA_integer_", "NA_integer_" ), F = c(52L, 40L, 38L, 18L, 11L, 5L, 42L, 55L, 53L, 39L)), row.names = c(NA, 10L), class = "data.frame")
data[data == 'NA_integer_'] <- NA
data %>% mutate_all(as.numeric) -> data
t.test(data$NF, data$F)
#>
#> Welch Two Sample t-test
#>
#> data: data$NF and data$F
#> t = 10.866, df = 10.695, p-value = 4.118e-07
#> alternative hypothesis: true difference in means is not equal to 0
#> 95 percent confidence interval:
#> 51.54831 77.85169
#> sample estimates:
#> mean of x mean of y
#> 100.0 35.3
df <- setNames(do.call(rbind.data.frame,
lapply(data, function(d) data.frame(d[1], d[2]))),
labels)
results <- t.test(df$`non-failing heart (NF)`, df$`failing heart (F)`)
results$statistic
#> t
#> 0.2051717
results$estimate
#> mean of x mean of y
#> 75.5 68.0
results$p.value
#> [1] 0.8569285
Consistent with previous
reports MKdRK11 LSS+12 iron
concentration was significantly lower in LV tissue samples from patients with advanced
heart failure than in LV tissue samples from unused donor hearts. As shown by
electrophoretic mobility shift assays, IRE binding activity was significantly (p <
ceiling(results$p.value * 1000.0)/ 1000.0
df$NF <- df$`non-failing heart (NF)`
df$F <- df$`failing heart (F)`
boxplot(df[3:4],
data=df,
cex.lab=0.65,
xlab="Fig. 1 IRE binding activity for non-failing (NF) and failing (F) hearts.",
ylab="IRE binding activity (%)",
col="orange",
border="brown",
ylim = c(0, 120)
)
References
LSS+12
Przemysław Leszek, Barbara Sochanowicz, Małgorzata Szperl, Piotr Kolsut, Kamil Brzóska, Walerian Piotrowski, Tomasz M. Rywik, Bożena Danko, Halina Polkowska-Motrenko, Jacek M. Różański, and et al. Myocardial iron homeostasis in advanced chronic heart failure patients. International Journal of Cardiology, 159(1):47–52, Aug 2012. URL: https://doi.org/10.1016/j.ijcard.2011.08.006, doi:10.1016/j.ijcard.2011.08.006.
MKdRK11
Micha T. Maeder, Ouda Khammy, Cris dos Remedios, and David M. Kaye. Myocardial and systemic iron depletion in heart failure. Journal of the American College of Cardiology, 58(5):474–480, Jul 2011. URL: https://doi.org/10.1016/j.jacc.2011.01.059, doi:10.1016/j.jacc.2011.01.059.