data(knobjs)
sapply(
1:length(knobjs),
function(k){
assign(names(knobjs)[k], knobjs[[k]], envir = .GlobalEnv)
}
)
data(exps)
temp <- read_knobjs(paste("knobjActMult", 1:10, sep=""))
mean_risks <- compute_mean_risks(temp, "A title")
mean_risks
Run the code above in your browser using DataLab