Displaying 17 results from an estimated 17 matches for "mmhg".
Did you mean:
mmh
2000 Sep 23
2
Units
I used the AR modelling written for R (S) on blood pressure and heart rate
signals. I used 60 one second samples and a model order of 20. I used the
"ar" finction in the "ts" package.
Given that blood pressure is measured in mmHg would the spectral density (on
the graph displayed be [mmHg]sq/Hz ?
And the heart rate is measured in Beats Per Minute (bpm) - so would the
displayed spectral density be in (bpm)sq/Hz ?
I'm sorry if this seems a trivial question, however the resultant values
seem inconsistent with published d...
2009 Dec 01
1
An R vs. SAS Discrepancy: How do I determine which is correct?
...Parameter Standard
Variable Label DF Estimate Error
t Value
Intercept Intercept 1 58.20326 1.57802
36.88
SEX SEX 1 2.91108 0.35753
8.14
DIABP Diastolic BP mmHg 1 0.20675 0.01504
13.75
AGE Age (years) at examination 1 -0.08085 0.02088
-3.87
Parameter Estimates
Variable Label DF Pr > |t|
Intercept Intercept...
2018 Apr 18
3
Problem with regression line
..., 175)
SimpleLinearReg1=lm(Age ~ BloodPressure)
summary(SimpleLinearReg1)
eq = paste0("y = ", round(coeff[2],1), "*x ", round(coeff[1],1))
plot(Age, BloodPressure, pch = 16, cex = 1.3, col = "blue",
main = eq, xlab = "Age (Year)", ylab = "Blood Pressure (mmHg)")
abline(SimpleLinearReg1, col="red")
mean(Age)
mean(BloodPressure)
abline(h=142.53, col="green")
abline(v=45.13, col="green")
But I cannot get the regression line. Can anybody tell me what's wrong with the codes ? I would appreciate very much. Thanks for an...
2010 Jun 08
2
problem with if else statement
Dear colleagues,
What did I not understand ?
->my intention
I want to create a new variable:
In plain language:
If someone is taking anithypertensive treatment (med.hyper==1)
table(med.hyper)
med.hyper
0 1
472 97
I want to subtract 5 mmHg (rr.dia.2m-5) from the measured diastolic
blood pressure (rr.dia.2m)
if not treated - the value of the measured diastolic blood pressure
should remain the same
->my code (data frame is attached !)
rr.dia2.corr<-if(med.hyper==1)
{
rr.dia.2m-5
} else
{
rr.dia2.corr==rr.dia.2m
}
R warning
Wa...
2018 Jan 03
1
summary.rms help
...# label is in Hmisc
label(cholesterol) <- 'Total Cholesterol'
label(blood.pressure) <- 'Systolic Blood Pressure'
label(sex) <- 'Sex'
units(cholesterol) <- 'mg/dl' # uses units.default in Hmisc
units(blood.pressure) <- 'mmHg'
# Specify population model for log odds that Y=1
L <- .4*(sex=='male') + .045*(age-50) +
(log(cholesterol - 10)-5.2)*(-2*(sex=='female') + 2*(sex=='male'))
# Simulate binary y to have Prob(y=1) = 1/[1+exp(-L)]
y <- ifelse(runif(n) < plogis(L), 1, 0)
ddist...
2018 Apr 18
0
Problem with regression line
...eg1=lm(Age ~ BloodPressure)
> summary(SimpleLinearReg1)
> eq = paste0("y = ", round(coeff[2],1), "*x ", round(coeff[1],1))
> plot(Age, BloodPressure, pch = 16, cex = 1.3, col = "blue",
> main = eq, xlab = "Age (Year)", ylab = "Blood Pressure (mmHg)")
> abline(SimpleLinearReg1, col="red")
> mean(Age)
> mean(BloodPressure)
> abline(h=142.53, col="green")
> abline(v=45.13, col="green")
>
> But I cannot get the regression line. Can anybody tell me what's wrong with the codes ? I would...
2012 Jun 09
1
combining different types of graphics (scatterplots, boxplots) using lattice
...t$age, 1 ),
cbind ( cimt$ant.mean, cimt$sbp, 2 ),
cbind ( cimt$ant.mean, cimt$ldl, 3 ),
cbind ( cimt$ant.mean, cimt$hdl, 4 ))
trial = as.data.frame(trial)
names(trial) = c("cimt","x","group")
trial$group.f =
factor(trial$group,label=c("Age(years)","SBP(mmHg)","LDL(mg/dL)","HDL(mg/dL)"))
x11(height=6,width=14)
xyplot (cimt~x|group.f, data=trial,
scale=list(x=list(relation="free")),as.table=T,col="dark grey",
strip=strip.custom(which.given=1, bg="transparent"),ylab="Mean CIMT
(mm)",layout=...
2018 Apr 20
1
Further questions
...te0("y = ", round(coeff[2],1), "x + ", round(coeff[1],1))
plot(Age, BloodPressure, pch = 16, cex = 1.3, col = "blue",
main = "Graphe de la relation entre l'?ge et la pression art?rielle",
xlab = "Age (ann?e)", ylab = "Pression art?rielle (mmHg)")
abline(SimpleLinearReg1, col="red")
res <- signif(residuals(SimpleLinearReg1), 2)
pre <- predict(SimpleLinearReg1)
segments(Age, BloodPressure, Age, pre, col="red")
library(calibrate)
textxy(Age, BloodPressure, res, cex=0.7) 2)
2) I also need your help plotting...
2002 Sep 13
1
design package (plot problems)
...<- 'Age'
$ label(cholesterol) <- 'Total Cholesterol'
$ label(blood.pressure) <- 'Systolic Blood Pressure'
$ label(sex) <- 'Sex'
$ units(cholesterol) <- 'mg/dl' # uses units.default in Hmisc
$ units(blood.pressure) <- 'mmHg'
$
$ # Specify population model for log odds that Y=1
$ L <- .4*(sex=='male') + .045*(age-50) +
+ (log(cholesterol - 10)-5.2)*(-2*(sex=='female') + 2*(sex=='male'))
$ # Simulate binary y to have Prob(y=1) = 1/[1+exp(-L)]
$ y <- ifelse(runif(n) < plogis(...
2008 May 29
2
Troubles plotting lrm output in Design Library
...Hmisc
> label(cholesterol) <- 'Total Cholesterol'
> label(blood.pressure) <- 'Systolic Blood Pressure'
> label(sex) <- 'Sex'
> units(cholesterol) <- 'mg/dl' # uses units.default in Hmisc
> units(blood.pressure) <- 'mmHg'
>
> # Specify population model for log odds that Y=1
> L <- .4*(sex=='male') + .045*(age-50) +
+ (log(cholesterol - 10)-5.2)*(-2*(sex=='female') + 2*(sex=='male'))
> # Simulate binary y to have Prob(y=1) = 1/[1+exp(-L)]
> y <- ifelse(runif(n) <...
2005 Aug 22
1
How to add legend of plot.Design function (method=image)? (if (!.R.) )
...label(cholesterol) <- 'Total Cholesterol'
label(blood.pressure) <- 'Systolic Blood Pressure'
label(sex) <- 'Sex'
units(cholesterol) <- 'mg/dl' # uses units.default in Hmisc
units(blood.pressure) <- 'mmHg'
# Specify population model for log odds that Y=1
L <- .4*(sex=='male') + .045*(age-50) +
(log(cholesterol - 10)-5.2)*(-2*(sex=='female') + 2*(sex=='male'))
# Simulate bin
ary y to have Prob(y=1) = 1/[1+exp(-L)]
y <- ifelse(...
2010 Aug 14
1
How to add lines to lattice plot produced by rms::bplot
...' # label is in Hmisc
label(cholesterol) <- 'Total Cholesterol'
label(blood.pressure) <- 'Systolic Blood Pressure'
label(sex) <- 'Sex'
units(cholesterol) <- 'mg/dl' # uses units.default in Hmisc
units(blood.pressure) <- 'mmHg'
# Specify population model for log odds that Y=1
L <- .4*(sex=='male') + .045*(age-50) +
(log(cholesterol - 10)-5.2)*(-2*(sex=='female') + 2*(sex=='male'))
# Simulate binary y to have Prob(y=1) = 1/[1+exp(-L)]
y <- ifelse(runif(n) < plogis(L), 1, 0)
ddist...
2018 Apr 18
1
Problem with regression line
...odPressure)
>> summary(SimpleLinearReg1)
>> eq = paste0("y = ", round(coeff[2],1), "*x ", round(coeff[1],1))
>> plot(Age, BloodPressure, pch = 16, cex = 1.3, col = "blue",
>> main = eq, xlab = "Age (Year)", ylab = "Blood Pressure (mmHg)")
>> abline(SimpleLinearReg1, col="red")
>> mean(Age)
>> mean(BloodPressure)
>> abline(h=142.53, col="green")
>> abline(v=45.13, col="green")
>>
>> But I cannot get the regression line. Can anybody tell me what's wron...
2005 Aug 22
0
How to add legend of plot.Design function ( method=image)?
...label(cholesterol) <- 'Total Cholesterol'
label(blood.pressure) <- 'Systolic Blood Pressure'
label(sex) <- 'Sex'
units(cholesterol) <- 'mg/dl' # uses units.default in Hmisc
units(blood.pressure) <- 'mmHg'
# Specify population model for log odds that Y=1
L <- .4*(sex=='male') + .045*(age-50) +
(log(cholesterol - 10)-5.2)*(-2*(sex=='female') + 2*(sex=='male'))
# Simulate bin
ary y to have Prob(y=1) = 1/[1+exp(-L)]
y <- ifelse(...
2008 Jun 13
4
Sweave: looping over mixed R/LaTeX code
Dear guRus,
I would like to loop over a medium amount of Sweave code, including both R and LaTeX chunks. Is there any way to do so? As an illustration, can I create a .tex file like this using a loop within a .Rnw file, where the "1,2,3" comes from some iteration variable in R?
################################################
\documentclass{article}
\usepackage{Sweave}
\begin{document}
2018 Feb 14
0
Unexpected behaviour in rms::lrtest
...> label(cholesterol) <- 'Total Cholesterol'
> label(blood.pressure) <- 'Systolic Blood Pressure'
> label(sex) <- 'Sex'
> units(cholesterol) <- 'mg/dl' # uses units.default in Hmisc
> units(blood.pressure) <- 'mmHg'
>
> # Specify population model for log odds that Y=1
> L <- .4*(sex=='male') + .045*(age-50) +
+ (log(cholesterol - 10)-5.2)*(-2*(sex=='female') + 2*(sex=='male'))
> # Simulate binary y to have Prob(y=1) = 1/[1+exp(-L)]
> y <- ifelse(runif...
2010 Oct 06
2
A problem --thank you
dear:teacher
i have a problem which about the polr()(package "MASS"), if the response must have 3 or more levels?
and how to fit the polr() to 2 levels?
thank you.
turly yours
[[alternative HTML version deleted]]