Displaying 1 result from an estimated 1 matches for "meansbp".
Did you mean:
meandbp
2007 Oct 10
4
simple function with if -> lapply to dataframe
...Thanking you in advance,
Cheers, Georg.
***********************
Georg Ehret
Institute of Genetic Medicine
Johns Hopkins University
Baltimore
> extractsign<-function(x){
+ if (x<0) a<--1
+ else a<-1
+ return (a)
+ }
> a
meanSBP meanSBP_tttcorr res_asb_SBP res_asb_SBP_tttcorr meanDBP
meanDBP_tttcorr res_asb_DBP res_asb_DBP_tttcorr
one -0.04 -0.01 -0.11 -0.05
0.18
0.24 0.18 0.24
two 0.06 0.01 0.33 0.24
0.00
-0.02 0...