R/get.set.R

get.set <- function( k , data){
data <- data[,c('left','right')]
df1<-data.frame( data , r = runif(nrow(data)))
w <- with( df1 , left +   (right - left)  * r ) 
if1<-ifelse(w == Inf , df1$left , w)
return(if1)
}

Try the MIICD package in your browser

Any scripts or data that you put into this service are public.

MIICD documentation built on May 2, 2019, 11:01 a.m.