diff options
Diffstat (limited to 'analysis/learning.R')
| -rw-r--r-- | analysis/learning.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/analysis/learning.R b/analysis/learning.R index c8c61b8..cb8a3b4 100644 --- a/analysis/learning.R +++ b/analysis/learning.R @@ -80,7 +80,7 @@ constraints=apply(inputs,1,function(row){ min_coverage=min((data_seed%>%filter(wireless==wi,wakeupfor==wa))$coverage) max_coverage=max((data_seed%>%filter(wireless==wi,wakeupfor==wa))$coverage) ## Generate random points (10 per scenarios) - n=10 + n=20 current_inputs=tibble( wireless=rep(wi,n), wakeupfor=rep(wa,n), @@ -96,7 +96,7 @@ constraints=apply(inputs,1,function(row){ tree_final=tibble(cbind(current_inputs,tibble(simkey=predictions_tree,model="tree"))) rbind(knn_final,tree_final) }) -inputs=do.call("rbind",constraints) +inputs=do.call("rbind",constraints)%>%distinct() ## Dimension Energy/Coverage ggplot(data_seed%>%mutate(wakeupfor=as.character(wakeupfor)), aes(coverage,energy,color=simkey))+geom_point()+ |