> #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
---------------------------------------------
I suspect some random values should be included, making the code :
> 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*rnorm(16))
Kind regards
Joris
______________________________________________
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.
