On 29/10/2008, at 2:41 PM, stephen sefick wrote:
#this is my stab at - I am sure that I am missing something. If this
doesn't make sense then please ask for more details. #This may show
my low level of programing knowledge
hester. <- c(1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4)
value <- rnorm(16)
x <- data.frame(value, hester.)
z <-
(if(x[,"hester."]==1){
x[,"value"]*6.250}
else
if(x[,"hester."]==2){
x[,"value"]*3.125}
else
if(x[,"hester."]==3){
x[,"value"]*2.100}
else
if(x[,"hester."]==4){
x[,"value"]*1.600})
Does this do what you want?
> h <- rep(1:4,each=4)
> z <- c(6.25,3.125,2.1,1.6)[match(h,1:4)]
> x <- data.frame(hester.=h,value=z)
cheers,
Rolf Turner
######################################################################
Attention:\ This e-mail message is privileged and confid...{{dropped:9}}
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
