[R] R-help; generating censored data

[Christopher Kelvin]

Hello,
 can i implement this as 10% censored data where t gives me failure and x censored.
Thank you

p=2;b=120
n=50

set.seed(132);
r<-sample(1:50,45)
t<-rweibull(r,shape=p,scale=b)
t
set.seed(123); 
cens <- sample(1:50, 5) 
x<-runif(cens,shape=p,scale=b) 
x

Chris Guure
Researcher,
Institute for Mathematical Research
UPM